问题
填空题
阅读下列程序： 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) =3 Next k Next j Call fun(x( ) ) End Sub Private Sub fun(a( ) ) For j = 1 to 3 For k = 1 to 3 Print a(j, k); Next k Next j End Sub运行程序时，输出的结果是 【5】 。
答案
参考答案：133313331
解析： 事件过程定义中生成了3*3的数组，该数组的主对角线元素为1，其余元素为3。接着调用了通用过程。本题中调用通用过程时，进行虚实结合，在通用过程中访问的a数组就是事件过程中的x数组。在过程中，按行优先顺序输出了a数组所有元素的值。由于在输出时只执行了循环体的“print a(j，k);”，输出数据后有分号，因此输出一行，输出的结果是：133313331。