Question

VB中如何实现出现没有重复的随机数

Answer 1

用个大循环，每次产生一个随机 数，之后再用个小循环检查刚产生的数与此前产生的所有随机数对比，没有重复则记下此次产生的随机数，退出小循环，有重复的就直接退出小循环，此次产生的数不作处理。

追问

哥 第一题

追答

Dim a(1 To 10) As Integer

Private Sub Command1_Click()
Dim flag As Boolean
Randomize
For i = 1 To 10
flag = False
tmp = Int(Rnd * 64 + 25)
For j = 1 To i
If tmp - a(j) = 0 Then
flag = True
i = i - 1
Exit For
End If
Next
If Not flag Then a(i) = tmp
Next
For i = 1 To 9
For j = 1 To 10 - i
If a(j) < a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next
Next
Text1.Text = ""
For i = 1 To 10
Text1.Text = Text1.Text & a(i) & " "
Next
End Sub

追问

谢谢哥～