100以内的素数之和

Private Sub Command1_Click()

Dim s As Integer

Dim n As Integer

Dim m As Integer

Dim x As Integer

Dim flag As Boolean

s = 0: n = 2

Do While n <= 100

s = s + n

n = x

m = Int(Val(Text1.Text))

x = m - 1

flag = False

 

While n >= 2

    If m Mod x = 0 Then

    flag = True

    End If

    x = x - 1

    Wend

    If flog = True Then

End If

Loop

Print "2+3+...+97="; s

 

End Sub