vb如何将textbox中内容赋值给数组

text1.text="12,34,56"
temp=split(text1.text,",")
for i = 0 to ubound(temp)
debug.print temp(i)
next

dim arr
arr=split(textbox.text)
'作用：把textbox中的文字以逗号为分割赋值到arr数组

给你举个列子
从textbox读入数值到数组内(建立控件数组，即有五个textbox共享一个name属性)
Private Sub Command1_Click()
Dim var(1 To 5) As Integer
For i = 1 To 5
var(i) = Val(Text1(i - 1).Text)
Print var(i)
Next i
End Sub
你可以从这个例子中看到如你所愿的数据读取情况

定义数组 然后 从 textbox 中一个一个 给数组赋值