单项选择题

下列程序运行后的输出结果是______。
Private Sub f(k,s)
s = 1
for j = 1 To k
s=s*j
Next j
End Sub
Private Sub Command1_ Click ()
Sum = 0
for i = 1 To 3
Call f(i, s)
Sum = Sum + s
Next i
Print Sum
End Sub

A．0
B．3
C．6
D．9
<上一题 目录 下一题>
热门 试题

单项选择题
程序如下：Private Sub form_ Activate() Dim a As Integer for i=4 To 5 a=fun(i) Print a, Next iEnd SubPrivate Function fun(n)As Integer if n ＞0 then fun =n* fun(n-1) Else fun=1 End ifEnd Function 程序最后打印结果是______。
A．4 5
B．12 120
C．24 120
D．24 60
单项选择题
在窗体上添加一个命令按钮，其名为Command1，然后编写代码如下：Option Base 1Private Sub command1_ Click() Dim arr (4)As Integer Dim arrt (4) As Integer for i= 1 To 4 Arr (i)= i arr1 (n)= 2 * n + i Next i Print arr1 (n); arr(n)程序的运行结果为______。
A．3 11
B．11 3
C．10 3
D．3 13
相关试题