VB.net 排序

你這個(gè)是冒泡排序么？從大到小么？

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)公司！專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、微信小程序、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了欽北免費(fèi)建站歡迎大家使用！

For j = 0 To lstNetworkRisk.Items.Count - 1 應(yīng)該改成

For j = i To lstNetworkRisk.Items.Count - 1

另外盡量不要用GOTO語句。而且完全也可以不用這個(gè)GOTO。

還有不知道你用的什么版本的.net 如果是3.5的完全可以直接用linq。

VB.NET中數(shù)據(jù)的排序問題

建議用 DataGridView（你用的是它吧？）內(nèi)建的排序方法來排序。介紹和示例代碼可以參考MSDN：

vb.net讀取txt文件，按照要求排序其中數(shù)據(jù)后顯示在listbox控件中。

說一個(gè)可行的方案。你可以用3個(gè)ListBox，當(dāng)然其中兩個(gè)個(gè)可以設(shè)為不可見。先讀兩行加入到ListBox1中，接著讀兩行寫入ListBox2中，如此循環(huán)到文件結(jié)束。按照你給的例子，現(xiàn)在Listbox

1中的items是A,B,E,F；而ListBox2中的Items是C,D,G,H。接下來的你應(yīng)該就明白了吧，把ListBox2中的Items和對(duì)應(yīng)的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+