阅读下列程序。 Option Base 1 Private Sub Form. _Click() Dim x(3,3) For j=1 to 3 For k=l to 3 If j=k then x(j,k)=1 If j<>k then x(j,k)=k Next k Next i 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 运行程序时,输出结果为【 】。