Question

VB中text里面的数据怎么读出

文本框里面比如 随便输入，用逗号隔开的数字 2，43，53，0.54，5.7，34，-43，-4，等，怎样读取其中的例如53和5.7，点击按钮 然后相加或者别得用途。 抱歉了没积分

Answer 1

假定文本框是Text1

Dim s() As String, i As Integer, N As Double
s = Split(Text1.Text, ",")
For i = 0 To UBound(s)
Print "第"; i + 1; "个数是"; s(i)
N = N + Val(s(i))
Next
Print "数字的和是"; N

注意，数字间的分隔符要用半角的逗号，不要用全角的。

追问

谢谢您 我还想问下       

Private Sub Command4_Click()

Dim TEM
 TEM = Split(Text4.Text, ",") '换行形式TEM = Split(Text4.Text, vbCrLf)
Label2.Caption = TEM(0)
Label3.Caption = TEM(1)
Label4.Caption = TEM(2)
End Sub

这个代码只能在文本框里面横着逗号隔开输入，怎样让他既可以横着也可以竖着输入呢就是换行

然后都能提取显示

追答

TEM = Split(Text4.Text, ",")
改为
TEM = Split(Text4.Text, IIf(InStr(Text4.Text, ","), ",", vbCrLf))

追问

谢谢

Answer 2

Split(Text1.Text,",")