vba的计算代码

Question

计算t=h1+e+r, 不需要在窗体中显示 ，在代码中计算出即可

Answer 1

Private Sub CommandButton1_Click()
Select Case ComboBox1.Text
Case "+"
CommandButton1.Caption = Val(TextBox1.Text) + Val(TextBox2.Text)
Case "-"
CommandButton1.Caption = Val(TextBox1.Text) - Val(TextBox2.Text)
Case "*"
CommandButton1.Caption = Val(TextBox1.Text) * Val(TextBox2.Text)
Case "/"
CommandButton1.Caption = Val(TextBox1.Text) / Val(TextBox2.Text)
End Select
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "+"
ComboBox1.AddItem "-"
ComboBox1.AddItem "*"
ComboBox1.AddItem "/"
End Sub
是不是这效果追问

不是这么复杂的，就是在代码中求出t=？，最简单的加法例子就可以
例如h1=text1.text
e=text2.text
r=text2.text
t=h1+e+r这种

本回答被提问者采纳