填空题

下列程序运行后的输出结果是 【9】 。
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
<上一题 目录 下一题>
热门 试题

填空题
下列程序功能是，产生10个0-100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10)As Integer Dim max As Integer Randomize For i%=1 To 10 an(i%)= 【10】 Next max=an(1) For i%=2 to 10 if an(i%)＞max then max=an(i%) End If Next Print max End Sub
填空题
下列程序的功能是：将数据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 【8】 Next Close #1 End Sub
相关试题