单选题
编写如下程序代码： Option Base 1 Private Sub Form_Click() Dim x．t Dim i As Integer Dim n As Integer x=Array(一8，20，15，10，一30，13，17) n=UBound(x) For i=1 To n／2 t=x(i) X(i)=x(n—i+1) x(n—i+1)=t Next i Print x(n) End Sub 当程序运行时，单击窗体产生的输出结果为( )。
【正确答案】
D
【答案解析】解析：在程序开始之前，使用Option Base 1语句声明数组下标从1开始。在Form_Click事件过程中定义了默认数组x，然后使用Array函数给数组元素赋值，UBound函数可以获得数组下标的上限值，然后赋值给变量n，n=7。在For循环中变量i的初始值为1终止值为n／2，For循环体语句的功能是对数组首尾两个数进行互换，循环结束后数组中的元素依次为(17，13，一30，10，15，20，一8)，故最后输出x(n)的值为数组最后一个元素的值，D选项正确。本题选择D选项。