随机产生1000以内的10个质数，不重复。。

真心求助。。

给楼主顶一个

没人啊。。。

先找出质数（可以让程序自己找，也可以事先找好放到一个常量里面），在随机生成

Private Sub Command1_Click()
Dim i(10), j, k As Integer
Dim IsPrimeNumber As Boolean
For j = 0 To 9
Retry:
IsPrimeNumber = False
Do Until IsPrimeNumber
i(j) = Int(999 * Rnd) + 1 '随机赋值
Call check(i(j), IsPrimeNumber) '检查是否质数
Loop
For k = 0 To j - 1 '检查是否重复
If i(j) = i(k) Then GoTo Retry
Next
Next
For j = 0 To 9 '打印
Print i(j)
Next
End Sub
Private Sub check(ByVal n As Integer, ByRef isprime As Boolean) '检查是否质数
Dim i As Integer
isprime = True
For i = 2 To Int(n ^ 0.5)
If n Mod i = 0 Then
isprime = False
Exit For
End If
Next
End Sub

谢谢