下面程序运行后，单击命令按钮，输出的结果是______。
Private Sub Command1_Click()
Dim a%(1 To 5)，i%，s
For i=1 To 5
a(i) =i
Next
s=Fun(A)Print "s="；s；
End Sub
Function Fun(a() As Integer)
Dim t，i%
t=1
For i=LBound(A)To UBound(A)t=t*a(i)
Next
Fun=t
End Function
第1题：
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click（）
Dim s，i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 。
55
第2题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) Fork=1 To 4 s=s+a(k) Next k Print s End Sub A.10 B.14 C.15 D.120
第3题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是。Private Sub Command1_Click()Dim aa = Array(1,2,3,4,5)For K = 1 To 4 S = S + a(K)Next K Print SEnd SubA. 10 B. 14 C. 15 D. 120
第4题：
在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click()
Dim a(10)，P(3) As Integer
k=5
For i=1 To 10
For i=1 To 3
For i=1 To 3
End Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。
第5题：
下面运行程序后,单击命令按钮,输出的结果是 【 】 。
Private Sub Command1_Click()
Dim a%(1 To 5),i%, s#
For i=1 To 5
a(i)=i
Next
s=Fun(a)
Print "s="; s;
End Sub
Function Fun(a() As Integer)
Dim t#, i%
t=1
For i=LBound(a) To UBound(a)
t=t a(i)
Next
Fun=t
End Function
第6题：
在窗体上有一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(5) As String
FOR i=1 To 5
a(i) =Chr(Asc("A") +(i-1))
Next
For Each b In a
Print b；
Next
End Sub
程序运行后，单击命令按钮，输出结果是
A．ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息
第7题：
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
第8题：
在窗体上画一个名称为 \"Command1\" 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
Dim a As String
A="123456789"
For i=1 To 5
Print Space（6-i）;Mid $ （a,______ ,2*i-1）
Next i
End Sub
程序运行后，单击命令按钮，窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。
第9题：
阅读下列程序： Function func(n As Integer)As Integer Sum = 0 For i = 1 To n Sum = Sum + (i + 1)* i Next i func = Sum End Function.Private Sub Command1_Click () Dim a As Integer a= 5 s = func (A)Print s End Sub 程序运行后，单击命令按钮，输出的结果为
A．80
B．60
C．70
D．15
第10题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：
Private Sub Command1_Click()
Dim a As Integer,b As Integer
x=10
y=20
End Sub
打开窗体运行后，单击命令按钮，消息框的输出结果为( )。