在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: Option Base 1 Private Sub Commandl_Click() Dim a As Variant a=Array(1,2,

admin2017-06-21  4

问题 在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:
    Option Base 1
    Private Sub Commandl_Click()
       Dim a As Variant
       a=Array(1,2,3,4,5)
       Sum=0
       For i=1 TO 5
          Sum=Sum+a(i)
       Next i
       x=Sum/5
       For i=1 To 5  
         If a(i)>x then Print a(i)
       Net i
    End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是

选项 A、12
B、123
C、345
D、45

答案D

解析 本题考查数组和循环。在Commandl的Click事件代码里面,定义了数组a,并通过Array函数给数组赋初值。接下来通过For循环计算数组元素的累加和Sum,得到累加和后x=Sum/5来计算平均值。最后通过For循环,打印大于平均值的元素。
转载请注明原文地址:https://jikaoti.com/ti/MBy0FFFM
0

随机试题
最新回复(0)