假定文本框是Text1 Dim s() As String, i As Integer, N As Doubles = Split(Text1.Text, ",")For i = 0 To UBound(s) Print "第"; i + 1; "个数是"; s(i) N = N + Val(s(i))NextPrint "数字的和是"; N 注意,数字间的分隔符要用半角的逗号,不要用全角的。
Split(Text1.Text,",")