大家好，我的程序有点问题
可不知道这个错误是什么意思，有人能帮帮我么？

lai_1.txt文件数据是 1 3 5 7
lai_2.txt文件数据是 2 4 6 8
lai_3.txt文件数据是 1 5 7 9

Private Sub Command1_Click()
Dim a(), i, j, m
Open App.Path + "\" + "lai_1.txt" For Input As #1
Open App.Path + "\" + "lai_2.txt" For Input As #2
Open App.Path + "\" + "lai_3.txt" For Input As #3
Open App.Path + "\" + "lai_4.txt" For Output As #4
ReDim a(2, 2, 1)
For i = 1 To 2
For j = 1 To 2
Input #1, a(i, j, 1)
Next j
Next i
ReDim Preserve a(2, 2, 10)
For i = 1 To 2
For j = 1 To 2
For m = 1 To 9
a(i, j, m + 1) = a(i, j, m)
Next m
Next j
Next i

ReDim Preserve a(2, 2, 11)
For i = 1 To 2
For j = 1 To 2
Input #2, a(i, j, 11)
Next j
Next i
ReDim Preserve a(2, 2, 20)
For i = 1 To 2
For j = 1 To 2
For m = 11 To 19
a(i, j, m + 1) = a(i, j, m)
Next m
Next j
Next i

ReDim Preserve a(2, 2, 21)
For i = 1 To 2
For j = 1 To 2
Input #3, a(i, j, 21)
Next j
Next i
ReDim Preserve a(2, 2, 30)
For i = 1 To 2
For j = 1 To 2
For m = 21 To 29
a(i, j, m + 1) = a(i, j, m)
Next m
Next j
Next i

For i = 1 To 2
For j = 1 To 2
For m = 1 To 30
Print #4, i; j; m; a(i.j.m) ——是这里出错了
Next m
Next j
Next i
Close #1, #2, #3, #4
MsgBox "wanbi"

End Sub

http://bbs.bc-cn.net/viewthread.php?tid=166636

哪里说了？是提示么？
可是什么是要求对象？

是说我的a()没定义？可是我定义了啊

我这里只看到 2楼的说了三个 ...
什么也没有说啊

楼上的你看到他说什么了？
我这里怎么什么也看不出来？？？？