Public Structure jilu
Dim name As String
Dim time As String
End Structure
Public data(6) As jilu
Sub ReadDat()
Dim st As IO.StreamReader = New IO.StreamReader("E:\xiangmulianxi\pintulianxi\Writer.txt")
Dim i As Integer
Dim str, str2 As String
Dim da, dat As String()
For i = 0 To 4
str = st.ReadLine()
da = Split(str, ",")
str2 = st.ReadLine()
dat = Split(str2, ",")
Next
st.Close()
For i = 0 To 4
data(i).name = da(i)
data(i).time = dat(i)
Next i
End Sub
我把程序改了一下可运行总是说数组下标越界和索引有问题
能帮忙看一下是怎么回事吗 谢谢了

Public Structure jilu
Dim name As String
Dim time As String
End Structure
Public data(6) As jilu
Sub ReadDat()
Dim st As IO.StreamReader = New IO.StreamReader("E:\xiangmulianxi\pintulianxi\Writer.txt")
Dim i As Integer
Dim str, str2 As String
Dim da, dat As String()
For i = 0 To 4
str = str +st.ReadLine()&","
'da = Split(str, ",")
'str2 = st.ReadLine()
'dat = Split(str2, ",")
Next
da=Split(str, ",")
st.Close()
For i = 0 To 4
data(i).name = da(i)
data(i).time = dat(i+1)
Next i
End Sub