填空题

下面程序运行后，单击命令按钮，输出的结果是______。
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的和。程序运行后，单击窗体，输出结果为______。
相关试题