Private Sub Command1_Click()
Dim str1() As String
Dim str2() As String
Dim arr() As String
Dim rows As Integer
Dim cols As Integer
Dim i As Integer
Dim j As Integer
Open "c:\in.txt" For Input As #1
rows = 0
Do Until EOF(1)
rows = rows + 1
ReDim Preserve str1(rows) As String
Line Input #1, str1(rows)
cols = UBound(Split(str1(rows), ","))
Loop
Close #1
ReDim arr(rows, cols) As String
For i = 1 To rows
str2 = Split(str1(i), ",")
For j = 0 To cols
arr(i, j) = str2(j)
Print "arr(" & i & "," & j & ")=" & arr(i, j),
Next
Print
Next
End Sub

1,1,0,0,2,0,3,3，
2,3,0,0,5,3,3,3，
这就是in.txt内容  谢谢

这是我的in 文件 但是我怎么弄都不对 我觉得是这个TXT文件的原因 但是找不出来