Question

VB求高手解答。。。 command1下的代码运行为什么不能正确输出对应的结果。

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Long
a = Val(Text1.Text)
b = Val(Text1.Text)
If Label1.Caption = "-" Then
c = a - b
Else
If Label1.Caption = "+" Then
c = a + b
Else
If Label1.Caption = "*" Then
c = a * b
Else
c = a / b

End If
End If
End If

Label2.Caption = "=" & c

End Sub
Private Sub chengfa_Click()
Label1.Caption = "*"
End Sub
Private Sub chufa_Click()
Label1.Caption = "/"
End Sub

Private Sub jiafa_Click()
Label1.Caption = "+"
End Sub

Private Sub jianfa_Click()
Label1.Caption = "-"
End Sub
Private Sub clear_Click()
Text1.Text = ""
Text2.Text = ""
Label1.Caption = ""
Label2.Caption = ""
End Sub
Private Sub quit_Click()
Unload Me
End Sub

Answer 1

根据你的条件判断逻辑，只要不是加减乘号，其余都归为除法运算，包括什么运算符都不点，只要点击command1也同样进行除法运算。 建议你用select case语句

Answer 2

select case Label1.Caption
case "-"
c=a-b
case "*"
c=a*b
case "/"
c=a/b
case else
c=a+b
end select
Label2.Caption = "=" & c