求100以内的素数的和

来源:互联网 发布:天猫 淘宝商城床单人床 编辑:程序博客网 时间:2024/03/29 12:51
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