2. 计算机
  3. 在窗体上画一个名称为Text1的文本框，并编写如下程序： Option Base1 Private Sub Form Click() Dim arr Dim Start As Integer，Finish As Intege

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

admin2019-06-11  34
问题 在窗体上画一个名称为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/cAUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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