阅读下列程序：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) =3Next kNext jCall fun(x( ) )End SubPrivate Sub fun(a( ) )For j = 1 to 3For k = 1 to 3Print a(j, k);Next kNext jEnd Sub运行程序时，输出的结果是 1。