VB6.0 BQ聊天系统

Question

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   Dim mystr As String
    Winsock1.GetData mystr
    Dim ip As String
    Dim qqnum As String
    Dim arr() As String
    Dim state As String
    arr = Split(mystr, "*####*,*####*", -1, vbTextCompare)
    ip = arr(0)
    qqnum = arr(1)   //就是这里出现下标越界
    state = arr(2)
    cnn.Execute "update tb_state set 在线状态=" & state & ",IP='" & ip & "' where 聊天号码='" & qqnum & "'"
End Sub
代码出现实时错误‘9’下标越界
请各路大神看看，求解答为什么会出现错误   这里不是没有声明数组arr的大小吗？

Answer 1

单步跟踪一下，在arr = Split(mystr, "*####*,*####*", -1, vbTextCompare)这儿设置一个断点。你看看mystr 的内容，应该是不包含  "*####*,*####*" 这个字符串的。
因此 Split( ) 之后，arr数组只有一个元素 arr(0)，你再访问其它下标，肯定就越界了。