重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你这个是冒泡排序么?从大到小么?
网站建设哪家好,找创新互联公司!专注于网页设计、网站建设、微信开发、微信小程序、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了钦北免费建站欢迎大家使用!
For j = 0 To lstNetworkRisk.Items.Count - 1 应该改成
For j = i To lstNetworkRisk.Items.Count - 1
另外尽量不要用GOTO语句。而且完全也可以不用这个GOTO。
还有不知道你用的什么版本的.net 如果是3.5的完全可以直接用linq。
建议用 DataGridView(你用的是它吧?)内建的排序方法来排序。介绍和示例代码可以参考MSDN:
说一个可行的方案。你可以用3个ListBox,当然其中两个个可以设为不可见。先读两行加入到ListBox1中,接着读两行写入ListBox2中,如此循环到文件结束。按照你给的例子,现在Listbox
1中的items是A,B,E,F;而ListBox2中的Items是C,D,G,H。接下来的你应该就明白了吧,把ListBox2中的Items和对应的ListBox1中Item加到ListBox3中。下面简单写下代码,主要是处理问题的思路,代码很简单。
Private Sub DoList(ByVal filePath As String)
Dim str As String
Dim num
Dim listCount
Dim sr As StreamReader
sr = New System.IO.StreamReader(filePath, System.Text.Encoding.Default)
str = sr.ReadLine()
Do While (sr.Peek = 0)
For num=0 To 2
str = sr.ReadLine()
ListBox1.items.Add(str)
Next
num=0
For num=0 To 2
str = sr.ReadLine()
ListBox2.items.Add(str)
Next
Loop
sr.Close()
For listCount=o To ListBox2.Items.Count-1
ListBox3..Items.Add(ListBox1.Items(listCount).ToString+