从1--30自然数中随机取出6个不重复的数,如何用VB程序实现?

Question

从1--30自然数中随机取出6个不重复的数,如何用VB程序实现?

Answer 1

Private Sub Command1_Click()
Dim MyValue
Dim a(5)
For i = 0 To 5
ttt:
Randomize ' 对随机数生成器做初始化的动作。
MyValue = Int((30 * Rnd) + 1) ' 生成 1 到 30 之间的随机数值。
For j = 0 To i
If a(j) = MyValue Then GoTo ttt '如果有相同数就重新生成一个
Next j
'如果没有重复就记录到数组
a(i) = MyValue
Next i

For i = 0 To 5
s = s & a(i) & ","
Next i
Print s
End Sub