Randomize '随机种子初始化Dim Int_A As IntegerInt_A=Int(Rnd()*10) '生成0-9之间的随机整数Int_A=Int(Rnd()*100) ‘生成0-99之间的随机整数
Int((upperbound - lowerbound + 1)Rnd + lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数。
不是Rnd(number)VB使用Rnd 函数产生随机数。
Rnd 函数，返回一个包含随机数值的 Single。
Rnd 函数示例 本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。
Dim MyValue MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间。
vb生成10个不重复的随机数代码：Private Sub Command1_Click()Dim a(9) As Integer For i = 0 To 9 GoTo way1 End If Next p End If Print a(i)Next i End Sub
260-500范围内生成随即数!?语法 Rnd[(number)]可选的 number 参数是 Single 或任何有效的数值表达式。
返回值 如果 number 的值是 Rnd 生成 小于 0 每次都使用 number 作为随机数种子得到的相同结果。
大于 0 序列中的下一个随机数。
等于 0 最近。