填空题

下面程序运行后，单击命令按钮，输出的结果是______。
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

【参考答案】

120
<上一题 目录 下一题>
热门 试题

填空题
如果不指明函数过程参数的类型，则该参数的数据类型为______。
填空题
设有如下程序： Private Sub Form_Click() Dim a As Integer，s As Integer n=8：s=0 Do s=s+n：n=n-1 Loop While n＞0 Print s End Sub 以上程序的功能是计算1-8的和。程序运行后，单击窗体，输出结果为______。
相关试题