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编辑过]

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

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

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

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

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

谢谢~哦，明白了，朋友说的MSDN是什么？是查找函数的东东么？
因为VB是初学，还需要很多高手朋友的帮忙指正~谢谢！