在窗体上画一个名称为Text1的文本框,并编写如下程序: Option Base1 Private Sub Form Click() Dim arr Dim Start As Integer,Finish As Intege

admin2019-07-30  32

问题 在窗体上画一个名称为Text1的文本框,并编写如下程序:
    Option Base1
    Private Sub Form Click()
    Dim arr
    Dim Start As Integer,Finish As Integer Sum As Integer
    arr=Array(12,4,8,16)
    Start=LBound(arr)
    Finish=UBound(arr)
    Sum=0
    For i=Start To Finish
    Sum=Sum+arr(i)
    Next i
    c=Sum/Finish
    Text1.Text=c
    End Sub
    运行程序,单击窗体,则在文本框中显示的是

选项 A、40
B、10
C、12
D、16

答案B

解析 本题中变量Stan存放的是数组的下界,Finish存放数组的上界,因此For循环将遍历整个数组;在每次循环中将数组元素累加到累加和变量Sum中,循环结束后用累加和变量除以数组上界,由于数组下界从0开始,即求出数组平均值。
转载请注明原文地址:https://kaotiyun.com/show/NlUp777K
0

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