Question

VB编写产生随机整数的函数,产生30个1~100之间的随机数

VB编写产生随机整数的函数,产生30个1~100之间的随机数

Answer 1

int(100*rnd())，循环 30 次即可。

Answer 2

Private Sub Command1_Click()
Cls
Dim i As Integer
Dim a(30) As Integer
For i = 1 To 30
a(i) = 1 + Int(Rnd * 100)
Print a(i)
Next
End Sub