阅读下列程序。 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运行程序时,输出结果为 【13】 。