Question

Vb列表框排序问题

题目设计是把列表框1里的数据加到列表框2中并进行升序排列：（不用列表框中排序那个属性，而是编写程序来实现）
请各位高手看下程序告诉我哪里出问题，为什么排序的目的达到但是列表框2里第一项没有数据，第二项有，第三项又没有，第四项又有，就是说项跟项之间不是紧凑地由上到下排列，而是隔一行一个。
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i
For i = 0 To List2.ListCount - 1
For j = 0 To List2.ListCount - 1
If Val(List2.List(j)) > Val(List2.List(j + 1)) Then
T = List2.List(j)
List2.List(j) = List2.List(j + 1)
List2.List(j + 1) = T
End If
Next j
Next i
End Sub

Answer 1

Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 0 To List1.ListCount - 1
For j = 0 To List1.ListCount - 2
If Val(List1.List(j)) > Val(List1.List(j + 1)) Then
T = List1.List(j)
List1.List(j) = List1.List(j + 1)
List1.List(j + 1) = T
End If
Next j
Next i

For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i
End Sub
以上程序通VB测试。

解决项跟项之间隔一行一个的问题只要把For j = 0 To List2.ListCount - 1改为For j = 0 To List2.ListCount - 2就可以了。

如果是For j = 0 To List2.ListCount - 1，那么当j=List2.ListCount - 1的时候，比较的就是Val(List1.List(List2.ListCount - 1)) 和Val(List1.List(List2.ListCount))，但是根本没有List1.List(List2.ListCount))这项，所以Val(List1.List(List2.ListCount))=0，所以Val(List1.List(j)) > Val(List1.List(j + 1))一定成立（如果你没有输入负数的话）。那么交换的时候就把数字和一个空字符串交换了。不断重复这个过程，就是相当于每两项之间多了一个空字符串（看上去就是隔了一行）。而For j = 0 To List2.ListCount - 2就可以把所有存在的项都比较完，就不会出现上述的情况。

有问题请Hi我。