素数
来源:互联网 发布:安徽神机妙算软件 编辑:程序博客网 时间:2024/05/16 07:19
Private Function Judge()
Dim b As Integer
b = b / 1 * b
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Show
a = 0: b = 1
If Judge(b <> 0) Then
Do
a = a + b
b = b + 1
Loop While b <= 100
End If
Label2.Caption = a
End Sub