1.Private Sub Command1_click() a = Text1 b = Text2 c = Text3 If Text2 = "+" Then d = a + c End If If Text2 = "-" Then d = a - c End If If Text2 = "*" Then d = a * c End If If Text2 = "/" Then d = a / c End If Text4.Text = d End Sub 或者是CASE结构 Private Sub Command1_click() a = Text1 b = T...
1.(1)你根据操作符文本框的内容选择计算就行了:select case txtOperation.textcase "+"txtResult.text=cstr(cdbl(txtNum1.text)+cdbl(txtnum2.text)case "-"txtResult.text=cstr(cdbl(txtNum1.text)-cdbl...