Question

用vb实现两个数相加的问题

举个例子：
四个按钮上分别是1，2，+和=。还有一个文本框
1.我想通过按以上按钮在文本框内显示1+2
2.我想在代码中用一个变量代替这个加号，然后计算出文本框里式子的结果。按等号后，在文本框里显示出结果来。
我是个菜鸟，我想我应该表达清楚了，请高手赐教
emmett_08你好：
我是想实现一个计算器的功能。就是在文本框里写上运算式子（包括基本四则运算、小括号和一些基本函数），然后在代码中将文本框里的式子中的以上因素分别转化成可以进行运算的数字、运算符号和函数。但我是个初学者，对vb了解的还不太深。
能否对我的编程过程做出修改，谢谢

Answer 1

恩 计算器么？
1.text1.text=text1.text & 你单击那个按钮的Caption
2.代替加号可以在加号的单击事件中赋予变量一个值 再在等号的单击事件中用select case语句或if then语句判断就可以了

Answer 2

你去试验吧，下面的代码，肯定比你的想的要求还要好

Option Explicit
Dim a As Integer
Dim b As Integer
Private Sub Command1_Click()
Text1.Text = Text1.Text + Command1.Caption
a = a * 10 + Command1.Caption
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text + Command2.Caption

End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text + Command3.Caption
b = b * 10 + Command3.Caption

End Sub

Private Sub Command4_Click()
Text1.Text = a + b
End Sub

Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "1"
Command2.Caption = "+"
Command3.Caption = "2"
Command4.Caption = "="
End Sub

Answer 3

text1.text=1
text2.text=2
文本框结果:text3=trim(text1.text)+trim(text2.text)

Answer 4

Private Sub Command3_Click()
Text1.Text = Command1.Caption & Command3.Caption & Command2.Caption & "="
End Sub

Private Sub Command4_Click()
Text1.Text = Command1.Caption & Command3.Caption & Command2.Caption & "=" & CStr(Val(Command1.Caption) + Val(Command2.Caption))
End Sub

Private Sub Form_Load()
Command1.Caption = "1"
Command2.Caption = "2"
Command3.Caption = "+"
Command4.Caption = "="
End Sub