填空题

下面程序运行后，单击命令按钮，输出的结果是______。
Private Sub Command1_Click()
Dim a%(1 To 5),1%,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

【参考答案】

s=120

<上一题目录下一题>

热门试题

填空题

下列程序的运行结果是______。 Sub abcd(ByValn As Integer) n=n+5 End Sub Private Sub Form_Click() nx%=3 Callabcd(nx%) Printnx% End Sub

填空题

每个VB对象都有其特定的属性，可以通过______来设置，对象的外观和对应的操作由所设置的值来确定。