VB6 怎样求多个Text控件里数字之和，要实时显示在一个Label控件中！

Private Sub Text1_Change(Index As Integer)
Dim dblSum As Double
dblSum = 0
For i = 0 To 4
dblSum = dblSum + Val(Text1(i).Text)
Next
Me.Label1.Caption = dblSum
End Sub
【
请添加下列控件
我用了5个元素的数组文本框和一个标签】本回答被网友采纳

在每个TextBox的TextChange事件中加入代码，如：
a=val(text1)
b=val(text2)
c=val(text3)
label=a+b+c本回答被提问者采纳

TextBox的TextChange事件输入代码：
Label控件=val(Text控件1)+val(Text控件2)+val(Text控件3)