单项选择题

在窗体上画一个文本框，然后编写如下代码：
Option Base 1
Private Sub Form_Click( )
Dim arr
Dim Start As Integer, Finish As Integer
Dim Sum As Integer
art=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

<上一题目录下一题>

热门试题

单项选择题

把窗体的KeyPreview属性设置为True，然后编写如下过程： Private Sub Form_KeyDown(KeyCode As Integer，ShiftAs Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer，Shift AsInteger) Print Chr(KeyCode+2) End Sub 程序运行后，如果按“A”键，则输出结果为______。

A．A
A
B．A
B
C．A
C
D．A
D

单项选择题

在窗体上画一个命令按钮，然后编写如下程序： Function fun1(ByVal Bum As Long)As Long Dim k As Long k=0 Bum=AbsfBum) Do While Bum k=k+(Bum Mod 10) Bum=Bum 10 Loop fun1=k End Function Private Sub Command1_Click( ) Dim n As Long n=InputBox( 请输入一个数 ) Print fun1(n) End Sub 程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为______。

A．3
B．4
C．9
D．10

相关试题