阅读下面程序代码: Private Sub Command1_Click() Dim s As Integer s=0 a=Array(65,23,12,54,67,32,45,98,48,62) For k=0 T

admin2020-07-22  17

问题 阅读下面程序代码:
    Private Sub Command1_Click()
    Dim s As Integer
    s=0
    a=Array(65,23,12,54,67,32,45,98,48,62)
    For k=0 To 4
    If a(k)>a(9一k)Then
    s=s+a(k)
    End If
    Next k
    Print s
    End Sub
    此程序代码运行后的输出是(    )。

选项 A、35
B、186
C、221
D、285

答案B

解析 Array函数用来为数组元素赋值,即把一个数据集读入某个数组。本题中利用Array函数,将一组整型数据读入到数组变量a中,然后通过For循环结构依次判断数组首尾对应元素的大小关系,若“首元素”大于“尾元素”,则将首元素累加到变量s中。循环执行过程中,各变量的值如下表。

  最终变量s的值为186,所以B选项正确。
转载请注明原文地址:https://kaotiyun.com/show/YyHp777K
0

最新回复(0)