2007-02-08 19:13:05| 分类: Visual Basic | 标签: |举报 |字号大中小 订阅
从1-3000里选出100个不重复的数字
代码如下:
Dim arrayID() As Integer
Dim str
Private Sub Command1_Click()
ReDim arrayID(100) As Integer
'产生不重复的随机数
Randomize
arrayID(0) = 3000 * Rnd() + 1
For i = 1 To 99
arrayID(i) = 3000 * Rnd() + 1 '产生1-3000的随机数
For j = 0 To i - 1
'如果对比中出现相同的,退出j的循环,重新执行本次i的循环,直到没有相同的出现
If arrayID(i) = arrayID(j) Then i = i - 1: Exit For
Next j
Next i
str = ""
For i = 0 To 99
str = str & arrayID(i) & ","
Next i
MsgBox str
End Sub
评论