2. 计算机
  3. 阅读下列程序。 Option Base 1 Private Sub Form _Click() Dim x(3,3) For j=1 to 3 For k=l to 3 If j=k then x(j,k)=1 If j＜＞k then x(j,k)=k

阅读下列程序。 Option Base 1 Private Sub Form _Click() Dim x(3,3) For j=1 to 3 For k=l to 3 If j=k then x(j,k)=1 If j＜＞k then x(j,k)=k

admin2009-05-20  32
问题 阅读下列程序。
Option Base 1
Private Sub Form _Click()
Dim x(3,3)
For j=1 to 3
For k=l to 3
If j=k then x(j,k)=1
If j＜＞k then x(j,k)=k
Next k
Next i
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
运行程序时，输出结果为【  】。
选项
答案1 2 3 1 1 3 1 2 1
解析 本题考查考生对数组虚实结合掌握的情况。事件过程声明了一个二维数组，并利用循环产生3*3数组，由题干可知，该数组对角线元素全部为1，其余元素为3。调用fun过程时，采用了虚实结合的方法，然后执行该过程。在过程中访问x数组就是事件过程中的数组，优先输出了x数组的所有元素值，由于在输出时执行了Print x(j,k)，并且输出数据语句后有分号，因此只输出一行。
转载请注明原文地址:https://kaotiyun.com/show/rl5p777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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