问题描述：
VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码
问题解答：
我来补答
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
