VB怎么生成随机数字？我要全部程序

Dim a(10) As Integer, i As Integer

Private Sub Form_Activate()
For i = 0 To 10 '循环10次
Randomize '每次产生都不一样
a(i) = Rnd() * 1000 + 1 '这里的1000可以是你要取的随机数字的范围
Print a(i)
Next
End Sub

你多给点分，我就给你全部程序

楼下的，你这个也叫完整程序阿，写的一点也不专业，糊弄人啊

冒汗....
很简单阿.....
怎么都抢阿

Dim minNum As Integer
Dim mazNum As Integer
minNum = 10
maxNUM = 99
RandomNum = minNum + (maxNUM - minNum) * Rnd()

给定一个最大数和最小数，则生成他们之间的一个随机数
如：上面就是生成一个10~99的随机数