VB中randomize的用法

Question

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 Su... 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 展开 我是在循环语句前面使用 就不会出现重复的数字了耶

Answer 1

初始化随机数生成器。
语法
Randomize
[number]
可选的
number
参数是
Variant
或任何有效的数值表达式。
说明
Randomize
用
number
将
Rnd
函数的随机数生成器初始化，该随机数生成器给
number
一个新的种子值。如果省略
number，则用系统计时器返回的值作为新的种子值。
如果没有使用
Randomize，则（无参数的）Rnd
函数使用第一次调用
Rnd
函数的种子值。
注意
若想得到重复的随机数序列，在使用具有数值参数的
Randomize
之前直接调用具有负参数值的
Rnd。使用具有同样
number
值的
Randomize
是不会得到重复的随机数序列的。
Randomize
语句示例
本示例用
Randomize
语句初始化随机数生成器。由于忽略了数值参数，
所以
Randomize
用
Timer
函数的返回值作为新的随机数种子值。
Dim
MyValue
Randomize
'
对随机数生成器做初始化的动作。
MyValue
=
Int((6
*
Rnd)
+
1)
'
生成
1
到
6
之间的随机数值。