Dim b(7, 10) As Variant
Dim a As Integer
Dim c As Integer
Dim d As Integer
Private Sub Command1_Click()
'放入
b(0, 0) = 4
b(1, 0) = 7
b(2, 0) = 7
b(3, 0) = 6
b(4, 0) = 4
b(5, 0) = 5
b(6, 0) = 2
c = 0
While Not EOF(1)   '這邊出問題 不會自己獨 出現錯誤= =
Open "C:\Documents and Settings\Administrator\桌面\aaa.txt" For Input As #1
For i = 1 To b(c, 0)
Input #1, b(c, i)
If i = b(c, 0) Then i = 1
If i = b(c, 0) Then c = c + 1
Next i
Wend
Close #1