问题
填空题
阅读下列程序。 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】 。
答案
参考答案：1231 131211
解析： 事件过程声明了一个二维数组，并利用循环产生3*3数组，由题干可知，该数组对角线元素全部为1，其余元素为3。调用fun过程时，采用了虚实结合的方法，然后执行该过程。在过程中访问x数组就是事件过程中的数组，优先输出了x数组的所有元素值，由于在输出时执行了Print x(j，k)，并且输出数据语句后有分号，因此只输出一行。