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

admin2019-03-14  23

问题 在窗体上画一个名称为Text1的文本框,并编写如下程序:
Option Base 1
Private Sub Form_Click()
  Dim arr
  Dim Start As Integer, Finish As Integer
  Dim 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

解析 程序中将变量arr初始化为有4个元素的数组,使用Lbound和Ubound函数分别获取数组下标的上下限,然后将数组中的元素值相加,用整除运算求它们的平均值。算式可写为(12+4+8+16)/ 4=(40)/4=10。所以答案为B。
转载请注明原文地址:https://kaotiyun.com/show/B6Up777K
0

最新回复(0)