Private Sub Command1_Click()
Dim I as integer
For i=1 to 10 step 2
If i>=5 then
List1.additem str(i-3)
Else
List1.additem str(i)
Next i
End Sub
微信扫码预览、分享更方便