Question

请教VB编程大侠们，怎么把text文本框中的数字字符赋值给一个数组，详细描述如下，要考试了不会弄，急急急

详细要求如下，比如：在text文本框中输入1,6,15,21,23,39,51,57,59,61,73,78等内容，要求将以上数字赋值给数组a(),语句是不是：a=Array(val(Text1.Text))，但是我试过了，运行有错误，应该不对！希望各位VB编程高手赐教，不甚感谢，答好了予给高分！急用，急急！谢谢！

Answer 1

如果方本框中的输入形式就是由逗号分隔的号,可以这样写:
a=split(text1.text,",")

Answer 2

dim a() as integer
a=split(text1.text,",")
for i=0 to ubound(a)
debug.print a(i)
next