阅读下列程序。 Option Base 1 Private Sub Form_C
题型:填空题
问题:
阅读下列程序。
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】 。