关于vb文本框相加问题

[dqlh1122]

比如说:文本1+文本2+文本3=文本4中文本1中输入1,文本4中就应该显示结果1,文本2中输入2时文本4中就应该显示结果3,依次推算.

[daisy8675]

Option Explicit

Private Sub Text1_Change()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
End Sub
Private Sub Text2_Change()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
End Sub

Private Sub Text3_Change()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
End Sub

吐血一下

[weiweiplay]

Private Sub Text1_Change()
If IsNumeric(Text1) Then
Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
End If
End Sub
Private Sub Text2_Change()
If IsNumeric(Text2) Then
Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
End If
End Sub

Private Sub Text3_Change()
If IsNumeric(Text3) Then
Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
End If
End Sub