Private Sub Command1_Click()
Dim mArr(2), i%, j%, k%
k = 0
For i = 999 To 100 Step -1
For j = 2 To Int(Sqr(i))
If i Mod j = 0 Then Exit For
If j = Int(Sqr(i)) Then
mArr(k) = i
Print i
k = k + 1
End If
Next j
If k = 3 Then Exit For
Next i
Print Join(mArr, ", ")
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024