阅读下列程序。
Option Base 1
Private Sub Form_Click( )
Dim x(3, 3)
For j = 1 to 3
For k = 1 To 3
If j =k then x(J, k) = 1
If j < > k then x(j, k) = k
Next k
Next j
Call fun(x( ) )
End Sub
Private Sub fun(x( ) )
For j = 1 to 3
For k = 1 to 3
Print x(j, k);
Next k
Next j
End Sub
运行程序时,输出结果为【 】。