但我不要每次都是重复的那种!
把随机数赋给四个文本框。
但为什么有的方法生成的数总是
7,5,2,3
7,0,8,4
8,7,3,9
8,0,9,3
5,7,0,4
2,6,8,5
9,2,6,5
1,9,6,0
5,1,7,2
0,2,3,9
9,4,2,1
1,6,4,7
3,6,2,1
5,0,4,9
...
dim a%,b%,c%,d%
sub asdf
a = Int(10 * Rnd)
Do
b = Int(10 * Rnd)
Loop Until b <> a
Do
c = Int(10 * Rnd)
Loop Until c <> b And c <> a
Do
d = Int(10 * Rnd)
Loop Until d <> b And d <> a And d <> c
End sub
这种代码出现的随机数每次都是这个顺序。
代码呢?
我说的是生成0-9的随机数。
追答将
For i = 1 To 4
x = Int(Rnd() * 100) + 1
a(i) = x
Next i
改成:
For i = 1 To 4
x = Int(Rnd() * 10)
a(i) = x
Next i
我说的是a,b,c,d,四个integer变量
追答在sub asdf和a = Int(10 * Rnd)之间加一行:
Randomize
就可以了。
作用是初始化随机数生成器,不然每次生成的数都是重复的。
代码呢?
追答Randomize
应该写在循环里面