2. 计算机
  3. 编写如下程序： Private Sub Form_Click() Dim a a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) n = InputBox("请输入一个小于10的正整数") i

编写如下程序： Private Sub Form_Click() Dim a a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) n = InputBox("请输入一个小于10的正整数") i

admin2015-10-23  57
问题 编写如下程序：
Private Sub Form_Click()
    Dim a
    a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
    n = InputBox("请输入一个小于10的正整数")
    i = UBound(a)
    For k = n To (i - n) / 2 + n
        x = a(k)
        a(k) = a(i)
        a(i) = x
        i = i - 1
    Next k
    For k = 0 To UBound(a)
        Print a(k);
    Next k
End Sub
程序运行后，单击窗体，并输入4，则输出结果是
选项 A、1  2  3  4  5  6  7  8  9  10
B、10  9  8  7  6  5  4  3  2  1
C、1  2  3  4  10  9  8  7  6  5
D、1  2  3  4  5  10  9  8  7  6
答案C
解析 程序意思是将以从输入的数值为开始下标，以数组的最大下标为结束下标，以这两个下标的均值为中心，对调两个下标之间的数组元素值。输入4，以下标为4的数组元素开始，以下标为9的数组元素结束，a（4）和a（9），a（5）和a（8），a（6）和a（7）对调元素值，得到数组a为(1, 2, 3, 4, 10, 9, 8, 7, 6, 5)，故选择C项。
转载请注明原文地址:https://kaotiyun.com/show/HPLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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