2. 计算机
  3. 阅读下列程序。 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 t

阅读下列程序。 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 t

admin2009-01-19  50
问题 阅读下列程序。
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
运行程序时，输出结果为【  】。
选项
答案1231 131211
解析 事件过程声明了一个二维数组，并利用循环产生3*3数组，由题干可知，该数组对角线元素全部为1，其余元素为3。调用fun过程时，采用了虚实结合的方法，然后执行该过程。在过程中访问x数组就是事件过程中的数组，优先输出了x数组的所有元素值，由于在输出时执行了Print x(j，k)，并且输出数据语句后有分号，因此只输出一行。
转载请注明原文地址:https://www.kaotiyun.com/show/035p777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)