求教一个很简单的vb变成问题.点击命定按钮1要求使列表框中产生100个10到99之间的随机整数.这是我编得代码,可能错的很幼稚,由于刚学PrivateSubCommand1Click()Dima(100)AsIntegerFori=1To100i=i+1

Question

求教一个很简单的vb变成问题.点击命定按钮1要求使列表框中产生100个10到99之间的随机整数.
这是我编得代码,可能错的很幼稚,由于刚学Private Sub Command1_Click()
Dim a(100) As Integer
For i = 1 To 100
i = i + 1
a(i) = Int(Rnd * 90) + 10
Next i
List1.AddItem a(i)
End Sub,没办法,

Answer 1

i = i + 1
删除即可