vb初级编程问题

来源：百度知道编辑：UC知道时间：2024/05/15 05:43:57

我想在一个文本框中输入10个数,这些数用逗号间隔形如:4,8,9,7...
我怎样才能读区出这些数放到一个数组中呢?我想知道用什么函数可以处理这些逗号,分别取出这些数呢?

Text1 = "4,8,9,7"
a = Split(Text1, ",")

放入后的数组就是a(),结果是
a(0) = 4
a(1) = 8
a(2) = 9
a(3) = 7

Private Sub Command1_Click()
Dim a() As String
a = Split(Text1.Text, ",")
MsgBox a(0)
MsgBox UBound(a) '从0算起，如果是3，则是4位，在for循环中作为终点
End Sub

dim tms() as string '定义一个数组变量
tms=split(text1,",")
tms(0)=4
tms(1)=8
tms(2)=9
tms(3)=7