Question

vb6.0 生成不重复的随机数

但我不要每次都是重复的那种！
把随机数赋给四个文本框。
但为什么有的方法生成的数总是
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
这种代码出现的随机数每次都是这个顺序。

Answer 1

dim a%,b%,c%,d%

sub asdf
randomize
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

Answer 2

不建议单纯的用RANDOMIZE...对于VB来说,伪随机还是有规律的.....可以考虑用时间的秒数做为随机因子..

追问

代码呢？

Answer 3

在按钮中输入代码：
Dim a(5)
Randomize
t = 0
For i = 1 To 4
x = Int(Rnd() * 100) + 1
a(i) = x
Next i
Text1.Text = a(1)
Text2.Text = a(2)
Text3.Text = a(3)
Text4.Text = a(4)
假定4个文本框的名称分别为text1,text2,text3,text4。在VB6.0中调试成功。

追问

我说的是生成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
就可以了。
作用是初始化随机数生成器，不然每次生成的数都是重复的。

Answer 4

在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。 为了生成某个范围内的随机整数，可使用以下公式： Int((upperbound - lowerbound + 1) * Rnd + lowerbound) 这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。 注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。
在调用随机数值时为保证随机数的随机性，必须先使用无参数的 Randomize 语句初始化随机数

追问

代码呢？

追答

Randomize
应该写在循环里面