在vb中，如何把文本文档中的数据读入到二维数组中，并且使二维数组的下标不越界

Question

如果谁能给我做出这道题，我会永远感激他的！！！！！！！！！！

Answer 1

Private Sub Form_Click()
Dim temp As String, str As String
Dim w1 As Integer, w2 As Integer '维数
Dim a() As Integer, b() As Integer
Dim i As Integer, j As Integer, k As Integer
w1 = 0
w2 = 0
Me.Text1.Text = "矩阵的初始状态为："+ vbCrLf
Me.Text2.Text = "转置后的矩阵："+ vbCrLf
Open "d:\in6.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
w1 = w1 + 1
k = 0
For j = 1 To Len(temp)
If (Mid(temp, j, 1) = " ") And (Mid(temp, j + 1, 1) <> " ") Then
k = k + 1
End If
Next
If k > w2 Then
w2 = k
End If
Loop
Close #1

ReDim a(w1 - 1, w2) As Integer
ReDim b(w2, w1 - 1) As Integer
w1 = 0
Open "d:\in6.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
k = 1
w2 = 0
For i = 1 To Len(temp)
If (Mid(temp, i, 1) <> " ") Then
For j = i To Len(temp)
If (Mid(temp, j, 1) = " ") Or (j = Len(temp)) Then
str = ""
str = Mid(temp, i, j - i + 1)
a(w1, w2) = Val(str)
i = j
w2 = w2 + 1
Exit For
End If
Next
End If
Next
w1 = w1 + 1
Loop
Close #1
For i = 0 To UBound(a, 1)
For j = 0 To UBound(a, 2)
b(j, i) = a(i, j)
str = CStr(a(i, j))
str = str + " "
str = Mid(str, 1, 6)
Me.Text1.Text = Me.Text1.Text + str
Next
Me.Text1.Text = Me.Text1.Text + vbCrLf
Next
For i = 0 To UBound(b, 1)
For j = 0 To UBound(b, 2)
str = CStr(b(i, j))
str = str + " "
str = Mid(str, 1, 6)
Me.Text2.Text = Me.Text2.Text + str
Next
Me.Text2.Text = Me.Text2.Text + vbCrLf
Next
End Sub
记得 textbox 的 MultiLine 设置成ture