Question

vb 6.0 中文本框中输出 数值总和

我用vb做了一个计算小程序，每次点击命令按钮 可以得到一个结果，如：1+2×3=7
在一个文本框中可以输出“1+2×3=7”。 因为要计算多个，最后还要求总和，我想再做个文本框 让它自动叠加 每次计算得出的结果，最后得到总和。
如：第1次计算1+2×3=7 文本框中要求显示 7
第2次计算1+2×4=9 文本框中要求显示 16
第3次计算1+2×5=11 文本框中要求显示 27
。。。 。。。
代码应该怎么写？？ 请高手指点。。。
可能表达有误，不好意思， 我想要的结果是 第1次计算得到的值 比如是7 这时文本框中出现7
第2次计算得到的值 比如是16 这时 文本框中出现23 依此类推。。。
说的太简单点 就是 程序怎么编写 才能让这个文本框把 每次得到的数值自动叠加

Answer 1

建立三个文本框，text1,text2.text3
text2和text3的Visible属性设为F
清空text1的text

建立六个按钮
command1的caption属性改为+
command2的caption属性改为-
command3的caption属性改为*
command4的caption属性改为/
command5的caption属性改为=
command6的caption属性改为 整除
command7的caption属性改为 求余

输入以下代码：

Option Explicit

Private Sub Command1_Click()
Text2.Text = Text1.Text
Text3.Text = "+"
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Text2.Text = Text1.Text
Text3.Text = "-"
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Text2.Text = Text1.Text
Text3.Text = "*"
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command4_Click()
Text2.Text = Text1.Text
Text3.Text = "/"
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command5_Click()
Dim a As Double
Select Case Text3.Text
Case "+"
a = Val(Text2.Text) + Val(Text1.Text)
Text1.Text = a
Case "-"
a = Val(Text2.Text) - Val(Text1.Text)
Text1.Text = a
Case "*"
a = Val(Text2.Text) * Val(Text1.Text)
Text1.Text = a
Case "/"
a = Val(Text2.Text) / Val(Text1.Text)
Text1.Text = a
Case "\"
a = Val(Text2.Text) \ Val(Text1.Text)
Text1.Text = a
Case "Mod"
a = Val(Text2.Text) Mod Val(Text1.Text)
Text1.Text = a
End Select
End Sub

Private Sub Command6_Click()
Text2.Text = Text1.Text
Text3.Text = "\"
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command7_Click()
Text2.Text = Text1.Text
Text3.Text = "Mod"
Text1.Text = ""
Text1.SetFocus
End Sub

Answer 2

Private Sub Command1_Click()
Static n%
n = n + 1
Text1.Text = "1+2*" & n + 2 & "=" & 1 + 2 * (n + 2)
Text2.Text = Val(Text2.Text) + 1 + 2 * (n + 2)
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
'这个程序有自动累加的功能(～ o ～)~zZ