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

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

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

在按钮中输入代码：
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中调试成功。

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