Question

用Excel VBA 做简单的计算器 求代码

界面是这样的 就是两个文本框Textbox输入数字，复合框Combobox选+、-、*、/，最后的命令按钮Commandbox能按一下就显示结果在上面，希望高手能给个代码，我做的首先就是Combobox没有显示+-*/，然后就是最后的结果怎么能显示在按钮上呢 谢谢啦 稍微有点儿急 希望能解答 可以追加分数

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
是不是这效果