随机产生10000个不重复的10位数字的程序。怎样做效率最高？

[wx0720]

随机产生10000个不重复的10位数字的程序。怎样做效率最高？

[Mars.CN]

用DO-LOOP
可以提高效率
OK?

[wx0720]

能不能帮我把程序写出来？谢谢

[kmzs]

这个...没20分钟执行的完吗？

[qjqmoney]

Private Sub Command1_Click()
Dim a As String
For i = 1 To 10000
Randomize
a = Mid(CStr(Rnd), InStr(CStr(Rnd), ".") + 1) & Mid(CStr(Rnd), InStr(CStr(Rnd), ".") + 1)
a = Left(a, 10)
MsgBox a
Next
End Sub

[cjhyahoo]

dim numberchar as string
dim i as interger
dim k as interger
dim number(10000)
numberchar=","
for i=1 to 10000
k=rnd*10000+1
if not instr("," &cstr(k) & ",",numberchar)
number(i)=k
numberchar=numberchar & cstr(k) & ","
else
i=i+1
end if
next