Private Sub Command3_Click()

a = a + 1
If a = 1 Then
Label9 = Text1
Text1 = ""
If (Label9 = Val(Label2) + Val(Label3)) Then
Label12 = "√"
Command3.Enabled = False
Command1.Enabled = True
a = 1


If (val(Label9) = Val(Label2) + Val(Label3)) Then

[此贴子已经被作者于2006-11-16 16:34:01编辑过]

Private Sub Command3_Click()

If Val(Text1.Text) < 1 And Text1.Text <> "0" Then
MsgBox "输入错误"
Else

a = a + 1
If a = 1 Then
Label9 = Text1
Text1 = ""
If (Val(Label9) = Val(Label2) + Val(Label3)) Then
Label12 = "√"
Command3.Enabled = False
Command1.Enabled = True
a = 1

End If

End If

If a = 2 Then
Label10 = Text1
Text1 = ""
If (Val(Label10) = Val(Label2) + Val(Label3)) Then
Label13 = "√"
Command3.Enabled = False
Command1.Enabled = True
a = 1

End If
End If

If a = 3 Then
Label11 = Text1
Text1 = ""
If (Val(Label11) = Val(Label2) + Val(Label3)) Then
Label14 = "√"
Command3.Enabled = False
Command1.Enabled = True
a = 1

End If
a = 0
Command2.Enabled = True
Command3.Enabled = False

End If

End If
End Sub

[此贴子已经被作者于2006-11-16 16:45:40编辑过]

[此贴子已经被作者于2006-11-16 16:59:05编辑过]