填空题

下列程序运行后的输出结果是______。
Private Sub f(k,s)
　　s=1
　　For j=1 To k
　　　　S=S*j
　　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
<上一题 目录 下一题>
热门 试题

填空题
函数Int(Rnd*10)+10的值的范围是______。
填空题
下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。 Private Sub Form_Click() Dim i As Integer Open Num．txt”For Output As#1 For i=1 To 8 ______ Next Close#1 End Sub
相关试题