代码如下:
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