编写如下程序代码: Option Base 1 Private Sub Form_Click() Dim x.t Dim i As Integer Dim n As Integer x=Array(一8,20

admin2018-12-20  16

问题 编写如下程序代码:
    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
    当程序运行时,单击窗体产生的输出结果为(    )。

选项 A、20
B、17
C、lO
D、  一8

答案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选项。
转载请注明原文地址:https://kaotiyun.com/show/0NFp777K
0

最新回复(0)