Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, su As Integer
For i = 100 To 300
For j = 2 To Int(Sqr(i))
If i Mod j = 0 Then
Exit For
End If
Next
If j > Int(Sqr(i)) Then
su = su + i
If k Mod 10 = 0 Then Print
Print Format(i, "@@@@");
k = k + 1
End If
Next
MsgBox su
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024