填空题

下列程序运行后的输出结果是 (9)
Private Sub f(k,s)
s=1
For i=1 To k
s=s*i
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i,s)
Sum=Sum+s
Next
Print Sum
End Sub

【参考答案】

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

填空题
下面程序运行后，单击命令按钮，输出的结果是 (6) 。 Private Sub Command1_Click() Dim aYo(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
填空题
首先执行循环体，然后再进行条件判断，决定是否结束循环的循环语句是 (7) 。
相关试题