Dim t1 As Integer
Dim t(9) As String
For t1 = 0 To 10
t(t1) = Int((100 - 1 + 1) * Rnd + 1)
List1.AddItem t(t1)
Next t1

问题一：如何可以在100里面生成10个不重复的随机数。并连续的生成10次。

思路我想是，定义一个数组，然后在1到100的随机数里AddItem 10个的数组
但不知道该如何一编，请高手指教！帮忙！谢谢！

[此贴子已经被作者于2007-7-3 13:25:35编辑过]

Randomize
i = Int((100 - 1 + 1) * Rnd + 1) 'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

谢谢楼上的朋友，但还是有重复的随机数出现~
有没有办法没有重复的？

Private Sub Command1_Click()

Dim t1, t2 As Integer
Dim t3 As String
Dim t(9) As String
For t1 = 0 To 9
Randomize
t2 = Int((100 - 1 + 1) * Rnd + 1)
List1.AddItem abc(CStr(t2), t)
Next t1

End Sub

Private Function abc(a As String, b() As String) As String
Dim i As Integer
Dim bol As Boolean
bol = False
For i = LBound(b) To UBound(b)
If b(i) = a Then
bol = True
Exit For
End If
Next
If bol = False Then
abc = a
Else
Randomize
abc = abc(CStr(Int((100 - 1 + 1) * Rnd + 1)), b)
End If
End Function
试试

谢谢楼上的朋友~不过还是有重复的，感觉重复的随机数的是减少了一点~

不会吧？还有重复的？
不可能吧？我用递归的方法，如果有重复就重新生成，直到不重复。怎么会还有重复的？

不好意思 有个地方改下。
Private Sub Command1_Click()

Dim t1, t2 As Integer
Dim t3 As String
Dim t(9) As String
List1.Clear
For t1 = 0 To 9
Randomize
t2 = Int((100 - 1 + 1) * Rnd + 1)
t2 = abc(CStr(t2), t)
List1.AddItem t2
t(t1) = t2
Next t1

End Sub

是的，有时没有重复，有时还是会有重复，我测试过了！

不好意思啊~~我一时忘记把数存到数组 导致没检查成功

谢谢楼上的朋友热心帮忙~现在我连续试了很多次，是没有重复了~
谢谢楼上朋友的帮忙！
另外请教高手朋友红色字部分的意思是怎么理解？谢谢！

Private Sub Command1_Click()

Dim t1, t2 As Integer
Dim t3 As String
Dim t(9) As String
For t1 = 0 To 9
Randomize
t2 = Int((100 - 1 + 1) * Rnd + 1)
List1.AddItem abc(CStr(t2), t)
Next t1

End Sub

Private Function abc(a As String, b() As String) As String
Dim i As Integer
Dim bol As Boolean
bol = False
For i = LBound(b) To UBound(b)
If b(i) = a Then
bol = True
Exit For
End If
Next
If bol = False Then
abc = a
Else
Randomize
abc = abc(CStr(Int((100 - 1 + 1) * Rnd + 1)), b)
End If
End Function