春水游鱼
春芽
共回答了18个问题采纳率:88.9% 举报
Private Sub Command1_Click()
Dim xx As Integer
Dim N As Long,Flags As Boolean
Dim ii As Integer
Dim 素数个数 As Integer
Dim 素数总和 As Integer
素数个数 = 0
素数总和 = 0
KLKL:
N = Int((200 - 3) * Rnd() + 2)
Flags = True
For ii = 2 To Sqr(N)
If N Mod ii = 0 Then
Flags = False
Exit For
End If
Next
If Flags = False Then
GoTo KLKL
Else
素数个数 = 素数个数 + 1
素数总和 = 素数总和 + N
If 素数个数 = 10 Then
MsgBox "2-200 10个随机素数的和是:" & 素数总和
Exit Sub
Else
GoTo KLKL
End If
End If
End Su
1年前
10