Private Sub Command1_Click()
Dim i As Integer
Randomize
For i = 1 To 20
Print Int(Rnd * 90) + 10;
Next i
End Sub
...全文
26239打赏收藏
VB中Randomize语句不理解,请指教!
例:运行程序时产生20个不同序列的随机整数(范围:10-99) Option Explicit Private Sub Command1_Click() Dim i As Integer Randomize For i = 1 To 20 Print Int(Rnd * 90) + 10; Next i End Sub