2. 计算机
  3. 编写如下程序代码： Option Base 1 Private Sub Command1_Click() Dim arr As Variant Dim i As Integer，n As Integer，s As Integ

编写如下程序代码： Option Base 1 Private Sub Command1_Click() Dim arr As Variant Dim i As Integer，n As Integer，s As Integ

admin2018-12-20  49
问题 编写如下程序代码：
    Option Base 1
    Private Sub Command1_Click()
    Dim arr As Variant
    Dim i As Integer，n As Integer，s As Integer
    arr=Array(1，2，3，4，5)
    s=0
    For i=1 To 5
    s=s+art(i)
    Next i
    n=s／5
    For i=l To 5
    If arr(i)>n Then Print arr(i)；
    Next i
    End Sub
    程序运行后，单击命令按钮Command1，输出结果为(    )。
选项 A、1 2 3
B、1 2
C、4 5
D、3 4 5
答案C
解析 在过程Command1_Click中定义了一个动态数组arr，并通过Array函数给数组进行初始化，在程序的通用声明区域使用语句OptionBasel，表示数组下标从1开始。第一个For循环的功能是：循环执行5次，每次将Arr(i)的值累加到变量s中，循环结束后s的值为1+2+3+4+5=15；语句n=s／5=3；最后一个for循环的功能是：循环执行5次，每次判断arr(i)的值是否大于n，如果大于n则输出arr(i)的值，由于n的值为3，动态数组arr中大于3的值只有4和5，故最终输出的结果为4和5，C选项正确。本题选择C选项。
转载请注明原文地址:https://www.kaotiyun.com/show/UwFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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