Question

vb中三个textbox相乘得到一个数，再重新输入数据，重复多次，最后求和显示在一个textbox中，该怎么编程？

Answer 1

手机写的，不明白可以再问我。
假设要把textbox1,2,3相乘，用textbox4输出结果。
先建两个按钮，每次写完3个数据就点一下按钮1，会自动把每次算的乘积加起来，最后按一下按钮2来输出结果。手机打字不容易，就选我吧。

dim s as single
Private sub Command1_Click()
s=s +(val(textbox1.text)*val(textbox2.text)*val(textbox3.text))
'下面清除textbox里的数方便输入后面的数
textbox1.text=""
textbox2.text=""
textbox3.text=""
end sub

Private sub Command2.Click()
textbox4.text=s
end sub

Answer 2

添加4个text控件，加入以下代码，运行程序，光标会在第一个text，直接输入数据按enter键，即可
Dim sum As Double
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text3.SetFocus
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
sum = sum + Text1 * Text2 * Text3
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
Text4 = sum
End If
End Sub