Private Sub Command1_Click()
Dim s As Integer, n As Integer
s= 0: n = 1
DoWhile n <= 100
If IsPrimer(n) <> 0 Then
s = s + n
End If
n= n + 1
Loop
Print "1~100之内的素数的和是:" + Str(s)
'Label1.Caption = IIf(IsPrimer(Int(Val(Text2.Text)))= 0, "bushi", "shi”)
End Sub
Private Function IsPrimer(n As Integer) AsInteger
Dim i As Integer
For i = 2 To n - 1
If n Mod i = 0 Then
Exit For
End If
Next i
If i = n Then
IsPrimer = n
Else
IsPrimer = 0
End If
End Function