素数

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