VB 随机数

来源：百度知道 编辑：UC知道 时间：2024/05/26 21:53:33
要一次性生成5到100之间的20个随机整数。
怎样实现？

Int(Rnd(20)*96+5)吗？

你那个不行
Dim i As Integer
Dim a(20) As Integer

For i = 1 To 20
a(i) = Int((96 * Rnd) + 5)
Print "a(" & i & ") ="; a(i)
Next i
这样产生a(1)到a(20)共20个随机数
你把这个放在button下运行就看到了

Dim intArray(19) As Integer '存产生的二十个随机数
Dim intI As Integer
Randomize
For intI = 1 To 20
intArray(intI - 1) = Int(Rnd * 100)
Next intI