下面程序段的运行结果是【 】。 Option Base 1 Private Sub swap(a()As InteSer) For I=1 to 10\2 t=a(i) a(i)=a(10-1+1) a(10-1+1)=t Next1 End Sub P

admin2013-03-30  41

问题 下面程序段的运行结果是【  】。
Option Base 1
Private Sub swap(a()As InteSer)
For I=1 to 10\2
t=a(i)
a(i)=a(10-1+1)
a(10-1+1)=t
Next1
End Sub
Private Sub Form_Click()
Dim x(10)As Integer
For I=1 to 10
x(i)=I*2
Next1
Swap x()
For1=1 to 10
Print x (i)
Next I
End 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数组。在该过程中,将数组的第一个元素和最后一个元素交换位置,依此类推,返同事件过程后输出交换后的数组全部元素。
转载请注明原文地址:https://kaotiyun.com/show/6Erp777K
0

最新回复(0)