下面程序段的运行结果是 1。Option Base 1Private Sub swap(a()As InteSer)For I=1 to 10\2t=a(i)a(i)=a(10-1+1)a(10-1+1)=tNext1End SubPrivate Sub Form_Click()Dim x(10)As IntegerFor I=1 to 10x(i)=I*2Next1Swap x()For1=1 to 10Print x (i)Next IEnd Sub

1、

【正确答案】 1、正确答案：20 18 16 14 12 10 8 6 4 2

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