画一个Text1用于输入第一个数,画一个Text2用于输入第二个数,画一个Combo1用于选择运算法则,画一个Command1点击它开始计算!
在Form的Load中打
Combo1.AddItem "+"
Combo1.AddItem "-"
Combo1.AddItem "×"
Combo1.AddItem "÷"
Command1.Caption = "计算"
在Command1的Click中打
a = Val(Text1.Text)
b = Val(Text2.Text)
Select Case Combo1.Text
Case "+"
c = a + b
Case "-"
c = a - b
Case "×"
c = a * b
Case "÷"
c = a / b
End Select
MsgBox c
希望能帮到你~有什其他要求或问题可以追问我。