【求助】TAT 排序过后前面会多出一个0

Private Sub Command1_Click()
For X = 0 To 29
c = List1.List(X)
If c Mod 400 = 0 Then
List2.AddItem c
Else
If c Mod 4 = 0 And c Mod 100 <> 0 Then
List2.AddItem c
End If
End If
Next X
End Sub
----------------------------------------
Private Sub Command2_Click()
Dim d As Integer, e As Integer, f As Integer
d = List2.ListCount
For e = 0 To d - 2
For f = e + 1 To d
If Val(List2.List(e)) > Val(List2.List(f)) Then
temp = Val(List2.List(e))
List2.List(e) = Val(List2.List(f))
List2.List(f) = temp
End If
Next f
Next e
End Sub
-------------------------------------------
Private Sub Form_Load()
Dim A As Integer
For A = 1 To 30
b = Int(2900 * Rnd + 100)
List1.AddItem b
Next A
End Sub
就第二段内个排序 ，前面会自己多出来一个0