Private Sub Command1_Click()
Dim S() As String
Dim SS() As String
Dim MyTxt As String
Dim k As Integer
SS = Split(txt1CRC.Text, " ")
For k = 0 To UBound(SS)
S(UBound(S) + 1 + k) = SS(k)
Next
S = Split(txtSend.Text, " ")
For k = 0 To UBound(S)
MyTxt = MyTxt & S(k) & " "
Next
msgbox MyTxt
把SS数组的数据放入S数组的最后,系统提示下标越界,是怎么回事啊, 还有其他一些办法吗?