VB编程问题，怎么调试，感激不尽！！！

Private Sub Command1_Click()
Dim precipitation_5(140, 720) As Single
Dim precipitation_6(140, 720) As Single
Dim precipitation_7(140, 720) As Single
Dim precipitation_8(140, 720) As Single
Dim precipitation_9(140, 720) As Single
Dim average(140, 720) As Single
Dim i, j
Open App.Path + "\precipitation_5.txt" For Input As #1
     For i = 1 To 140
       For j = 1 To 720
        Input #1, precipitation_5(i, j) '读入5月降水数据
       Next j
     Next i
Close #1
Open App.Path + "\precipitation_6.txt" For Input As #1
     For i = 1 To 140
       For j = 1 To 720
        Input #1, precipitation_6(i, j) '读入6月降水数据
       Next j
     Next i
Close #1
Open App.Path + "\precipitation_7.txt" For Input As #1
     For i = 1 To 140
       For j = 1 To 720
        Input #1, precipitation_7(i, j) '读入7月降水数据
       Next j
     Next i
Close #1
Open App.Path + "\precipitation_8.txt" For Input As #1
     For i = 1 To 140
       For j = 1 To 720
        Input #1, precipitation_8(i, j) '读入8月降水数据
       Next j
     Next i
Close #1
Open App.Path + "\precipitation_9.txt" For Input As #1
     For i = 1 To 140
       For j = 1 To 720
        Input #1, precipitation_9(i, j) '读入9月降水数据
       Next j
     Next i
Close #1
For i = 1 To 140
  For j = 1 To 720
   average(i, j) = (precipitation_5(i, j) + precipitation_6(i, j) + precipitation_7(i, j) + precipitation_8(i, j) + precipitation_9(i, j)) / 5
  Next j
Next i
Open App.Path + "\precipitation.txt" For Output As #1
     For i = 1 To 140
       For j = 1 To 720
        Input #1, precipitation_9(i, j) '输出平均降水数据
       Next j
     Next i
Close #1
End Sub

答案：
最后输出的时侯，Print错写成了Input了。好粗心

上一个：关于VB编程数据库的问题还有与access的建立
下一个：vb 编程问题，去除数据中不需要的数据