Private Sub Command1_Click()
Dim Result As String
Dim Sum As Long
Sum = 0
For i = 1 To 100
If IsSushu(i) = True Then
Sum = Sum + i
Result = Result & " " & i
End If
Next
MsgBox Result & vbNewLine & "=========总和为========" & Sum
End Sub
Function IsSushu(ByVal Num As Integer)'判断是否是素数
Dim Sushu As Boolean
Sushu = True
If Num >= 2 Then
For i = 2 To Num - 1
If (Num Mod i) = 0 Then
Sushu = False
Exit For
End If
Next
IsSushu = Sushu
Else
IsSushu = False
End If
End Function
Dim Result As String
Dim Sum As Long
Sum = 0
For i = 1 To 100
If IsSushu(i) = True Then
Sum = Sum + i
Result = Result & " " & i
End If
Next
MsgBox Result & vbNewLine & "=========总和为========" & Sum
End Sub
Function IsSushu(ByVal Num As Integer)'判断是否是素数
Dim Sushu As Boolean
Sushu = True
If Num >= 2 Then
For i = 2 To Num - 1
If (Num Mod i) = 0 Then
Sushu = False
Exit For
End If
Next
IsSushu = Sushu
Else
IsSushu = False
End If
End Function