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

在窗体上画一个名称为Text1的文本框，并编写如下程序： Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer,Finish As Integer Sum As Inte

admin2017-06-21  13
问题 在窗体上画一个名称为Text1的文本框，并编写如下程序：
Option Base 1
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
解析 本题中变量Start存放的是数组的下界，Finish存放数组的上界，因此For循环将遍历整个数组：在每次循环中将数组元素累加到累加和变量Sum中，循环结束后用累加和变量除以数组上界，由于数组下界从0开始，即求出数组平均值。
转载请注明原文地址:https://jikaoti.com/ti/oBy0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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