Question

用VB怎么TEXT中的求和值

例：我在text中写入
12
35
16
点一个command1控键在Label1中显示它们的合值：63
是不是用SUM函数

Answer 1

3个文本框分别为text1,text2.text3,标签为label1,命令按钮为command1,代码为：
Private Sub Command1_Click()
Label1.Caption = Val(Text1.Text) + Val(Text2.Text)＋Val(Text3.Text)
End Sub
因为文本框的内容为字符型，所以要先转换为数值型，否则会进行字符串的连接。

追问

对不起，你可能理解错了。我说的只有一个Text1，是多行文本格式。求全部行了的和值，上面的结果是：12+35+16=63

Answer 2

Private Sub Command1_Click()
Dim a, s, i%
a = Split(Text1.Text, vbCrLf)
For i = LBound(a) To UBound(a)
s = s + Val(a(i))
Next
Label1= s
End Sub
'本程序 调试已通过,而且支持更多行数 ,非法数值 作0处理