Question

关于 VB split过程 的疑惑，请高手指点

Dim i As Long
'Dim st(0 To 25000) As String ’ 为什么去掉注释反而错了（现在状态为正确，a已定义）
st = Split(Text1.Text, " ", Val(Text4.Text))
For i = 1 To Val(Text4.Text)
a(i) = Val(st(i - 1))
Next i

Answer 1

你'Dim st(0 To 25000) As String 这行定义了25000个的数值
但st = Split(Text1.Text, " ", Val(Text4.Text))时，你怎么知道就正好是25000个呢？
于是就出错了。但你不定义，直接按有多少行创建多少个数组，就不会错了啊。
这个数值变长变少时，都要重新定义的啊，如果你前面定义25000个了
下面重新定义时，你要按分割的数量，ReDim重定义下数组，也是不会出错的。
但还不如不用定义，直接赋值来得快呢。

Answer 2

Dim st(0 To 25000) As String  相当于定义了一个字符串数组，split相当于又给他赋值了。这样会提示不能给数组赋值的。

写法：

Private Sub Command1_Click()
Dim i As Long
Dim st() As String          ' =========
st = Split(Text1.Text, " ", Val(Text4.Text))
For i = 1 To Val(Text4.Text)
    ReDim st(i) '========重定义数组
    a(i) = Val(st(i - 1))
    MsgBox a(i)
Next i
End Sub