问题
单项选择题
在窗体上画一个文本框，然后编写如下代码：
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和3个整型变量，接着用Array函数定义了一个数组，并用LBound和UBound函数求出数组的上下界，分别存放在变量Start和Finish中，然后通过For循环求出数组中各元素的和，放在变量Sum中，最后将和除以数组的上界，实际上是求出数组各元素的平均值，即(12+4+8+16)/4=10，将在文本框中显示出来。