有下面程序代码: 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  28

问题 有下面程序代码:
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://jikaoti.com/ti/a6x0FFFM
0

最新回复(0)