Question

Vb中如何把一个textbox输入的数字不断相加到另一个textbox中?

Answer 1

Option Explicit

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim Mark As Boolean
If KeyCode = vbKeyReturn Then
If Right(Text2.Text, 1) <> "+" Or Right(Text2.Text, 1) <> "-" Then
If Len(Text2.Text) = 0 Then
Text2.Text = Text2.Text & Val(Text1.Text)
Else
If Val(Text1.Text) >= 0 Then
Text2.Text = Text2.Text & "+" & Val(Text1.Text)
Else
Text2.Text = Text2.Text & Val(Text1.Text)
End If
End If
End If
Text1.Text = ""
End If
End Sub

Answer 2

text3=text1+text2