填空题

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

<上一题目录下一题>

热门试题

填空题

下列程序段的执行结果为 (7) 。 Dim A(10,10) For i=2 To 4 For i=4 To 5 a(i，j)=i*j Next j Next i Print A(2,5)+A(3,4)+A(4,5)

填空题

在关系模型中，把数据看成一个二维表，每一个二维表称为一个 (4) 。