下面程序段的运行结果是【15】。Option Base 1Private Sub

问题填空题

下面程序段的运行结果是【15】。Option Base 1Private Sub Swap (a() As Integ For I=1 to 10\2t=a(I) a(I)=a(10-I+1) a(10-I+1)=t Next IEnd SubPrivate Sub Form_Click()Dim x(10) As Integer For I=1 to 10 x(I)=I*2 Next I Swap x() For I=1 to 10 Print x(I) Next IEnd Sub

答案

参考答案：20 18 16 14 12 10 8 6 4 2

解析：本题考查考生数组虚实结合的问题，在该事件过程中，定义并生成了x数组，该数组共10个元素，分别是 2 4 6 8 10 12 14 16 18 20，接着使用了不带Call的调用语句，实际参数和虚拟参数都是数组，是地址传送，在过程中访问的数组就是事件过程中的x数组。在该过程中，将数组的第一个元素和最后一个元素交换位置，依此类推，返回事件过程后输出交换后的数组全部元素。