2. 计算机
  3. 编写如下程序代码： Option Base1 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=UBoun

编写如下程序代码： Option Base1 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=UBoun

admin2018-06-20  30
问题 编写如下程序代码：
Option Base1
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 j=1To n／2
!=x(i)
x(i)=x(n-i+1)
x(n-i+1)=t
Next i
Print x(n)
End Sub
当程序运行时，单击窗体产生的输出结果为(    )。
选项 A、20
B、17
C、10
D、-8
答案D
解析 在程序开始之前，使用Option Base1语句声明数组下标从1开始。在Form_Click事件过程中定义了默认数组x，然后使用Amy函数给数组元素赋值，UBound函数可以获得数组下标的上限值，然后赋值给变量n，n=7。在For循环中变量i的初始值为1终止值为n／2，For循环体语句的功能是对数组首尾两个数进行互换，循环结束后数组中的元素依次为(17，13，-30，10，15，20，-8)，故最后输出x(n)的值为数组最后一个元素的值，D选项正确。本题选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/ciGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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