vb 下标越界。请高手帮忙解决

来源：百度知道 编辑：UC知道 时间：2024/05/16 11:22:38
Private Sub Command1_Click()
Dim bbb As String
Dim m() As String
Static i As Integer
Dim k As Long
m = Split(Text2.Text, vbCrLf) '

For k = 1 To CStr(UBound(m) - 1) '提取Text5.Text的行数，确定循环次数

a = Split(Text2.Text, vbCrLf)
For x = 1 To 1
If i = UBound(a) + 1 Then i = 0
bbb = a(i) & vbCrLf 总在此运行时 a（i）这里显示的是错误，下标越界

i = i + 1
Next x
Text3.Text = Text3.Text & Trim(StrJJ(Text1.Text, bbb)) & " " & vbCrLf '依次1窗口-2窗口数据
Next

End Sub

Private Sub Command1_Click()
Dim bbb As String
Dim m() As String
Static i As Integer
Dim k As Long
m = Split(Text2.Text, vbCrLf) '

For k = 1 To CStr(UBound(m) - 1) '提取Text5.Text的行数，确定循环次数

a = Split(Text2.Text, vbCrLf)
For x = 1 To 1
If i = UBound(a) Then i = 0 ''这里改动就可以了
bbb = a(i) & vbCrLf 总在此运行时 a（i）这里显示的是错误，下标越界

i = i + 1
Next x
Text3.Text = Text3.Text & Trim(StrJJ(Text1.Text, bbb)) & " " & vbCrLf '依次1窗口-2窗口数据
Next

End Sub