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