2. 计算机
  3. 有如下事件过程： Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(

有如下事件过程： Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(

admin2015-09-23  34
问题 有如下事件过程：
Private Sub Form_Load()
    Show
    Dim Arr() As Variant
    Arr = Array(1, 3, 5, 7, 9, 11, 13, 15)
    Call converse(Arr)
    For i = 0 To 7
        Print arr(i);
    Next i
End Sub
    以上程序的功能是，通过调用Converse过程，将数组Arr中的元素逆序存放并输出。过程Converse的正确代码是
选项 A、Private Sub converse(dim a() as Variant )
Dim T
For i = LBound(A) To UBound(A)
T = a(i)
a(i) = a(UBound(A) - i)
a(UBound(A) - i) = T
Next i
End Sub
B、Private Sub converse(dim a() as Variant)
Dim T
Dim J As Integer
J = (LBound(A) + UBound(A)) / 2
For i = LBound(A) To J
T = a(i)
a(i) = a(UBound(A) - i)
a(UBound(A) - i) = T
Next i
End Sub
C、Private Sub converse(a() As Variant)
Dim T
For i = LBound(A) To UBound(A)
T = a(i)
a(i) = a(UBound(A) - i)
a(UBound(A) - i) = T
Next i
End Sub
D、Private Sub converse(a() As Variant)
Dim T
Dim J As Integer
J = Int((LBound(A) + UBound(A)) / 2)
For i = LBound(A) To J
T = a(i)
a(i) = a(UBound(A) - i)
a(UBound(A) - i) = T
Next i
End Sub
答案D
解析 采用for循环的方式，实现将数组元素逆序排列，判断循环终止的条件为数组A的最小下标和最大下标和的一半，并且定义变量T，作为中间变量用来互换中心对称的元素。故正确答案为选项D。
转载请注明原文地址:https://jikaoti.com/ti/ByJ0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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