下列程序运行后的输出结果是【 】。 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

admin2013-04-11  26

问题 下列程序运行后的输出结果是【  】。
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

选项

答案9

解析 Rnd产生随机数的范围为(0.1110.999);因此,Rnd*10的范围为(0.111 9.999);Int()函数是取整, Int(Rnd*10)取整后的范围为(1 9);再加上10,所以试值的取值范围为(10 19)。
转载请注明原文地址:https://jikaoti.com/ti/B0O0FFFM
0

最新回复(0)