Question

VB中如何将一文本中的所有数字相加得出的结果到另一个文本？如text1里面有数字10 2 20 4，text2显示36

text1中的数字是一个数字隔一行，如：
10
2
20
4

Answer 1

Dim s() As String, i As Long, t As Long
s = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(s)
t = t + Val(s(i))
Next
Text2.Text = t

追问

能不能不通过按键，直接就将结果显示在text2里面呢

追答

你把上述代码放到Text1的Change事件中，那么当Text1的内容发生变化时Text2就会自动显示计算结果。即：

Private Sub Text1_Change()
Dim s() As String, i As Long, t As Long
s = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(s)
t = t + Val(s(i))
Next
Text2.Text = t
End Sub