VB调试题!!!!

VB语言程序调试第10题
1、在考生目录下的Paper目录中，已有模块文件modify.bas。

2、程序功能
Modify.Bas模块中的PrintArray过程是用于打印一个5行5列的数字方阵，并使两对角线上元素均为1，其余均为2。
要求打印的数字方阵两列数字之间空3格，两行之间空一行。

3、要求
新建工程Modify.vbp，将Modify.bas模块加入到该工程中进行调试。

4、注意
只要修改标出出错位置的下面那一条语句即可，其余代码不要改动。

Attribute VB_Name = "Module"
Public Sub PrintArray()
'下面程序用于显示5行5列的数字方阵
'使两对角线上元素均为1，其余均为2
'要求显示的数字方阵两列数字之间空3格，两行之间空一行
'只要修改标出出错位置的下面那一条语句
Dim a(5, 5) As Integer
Dim i As Integer, j As Integer
For i = 1 To 5
For j = 1 To 5
'******** 错误1 *********
If i <> j Or i <> 6 - j Then
a(i, j) = 2
Else
a(i, j) = 1
End If
'******** 错误2 *********
Form1.Print a(i, j) + Space(3);
Next j
'******* 错误3 *******
Form1.Print : Form1.Cls
Next i
End Sub

    Private Sub Form_click()     Dim a(5, 5) As Integer     Dim i As Integer, j As Integer     For i = 1 To 5     For j = 1 To 5     If i <> j And i <> 6 - j Then     a(i, j) = 2     Else     a(i, j) = 1     End If          Form1.Print a(i, j) & Space(3);     Next j          If i Mod 2 = 0 Then Form1.Print     Form1.Print     Next i End Sub