Private Sub Form_Click()
Dim a(9) As Integer, x As Integer
Randomize
For i = 0 To 9
'Randomize 如果在此处 则不会出现重复的数字 为啥呢 这里不能用吗
a(i) = Int(Rnd * 91 + 9)
Print a(i);
x = x + a(i)
Next i
Print "答案" & x
End Sub
我是在循环语句前面使用 就不会出现重复的数字了耶
“VB”中“randomize”的用法是;Randomize 用 number 将 Rnd 函数的随机数生成器初始化,该随机数生成器给 number 一个新的种子值。如果省略 number,则用系统计时器返回的值作为新的种子值。 注意 若想得到重复的随机数序列,在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 n