2. 计算机
  3. 有下面程序代码： Private Sub Command1_Click() Dim a, s As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) k = 1 s = 0 D

有下面程序代码： Private Sub Command1_Click() Dim a, s As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) k = 1 s = 0 D

admin2020-01-02  43
问题 有下面程序代码：
Private Sub Command1_Click()
    Dim a, s As Integer
    a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
    k = 1
    s = 0
    Do
        s = s + a(k)
        k = k + 2
    Loop Until k > UBound(A)
    Print s
End Sub
程序运行产生的输出是
选项 A、45
B、20
C、16
D、25
答案B
解析 Array函数为数组a的元素赋值，使得a（0）～ a（8）的值被分别赋值为1～ 9；UBound(a)函数返回数组 <http://baike.baidu.com/view/209670.htm>可用的最大下标8，Do…Loop Until循环先执行循环体，后判断终止条件k >8是否成立，条件成立时，Do循环共执行4次，因此s=a（1）+a（3）+a（5）+a（7）=2＋4＋6＋8=20。故正确答案为选项B。
转载请注明原文地址:https://kaotiyun.com/show/xQTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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