问题
单项选择题
在窗体上画一个文本框,然后编写如下代码:
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