有如下程序: Function fun(ByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(nnm) Do While num k=k*(num Mod 10) num=num\10 L

admin2019-07-30  35

问题 有如下程序:
Function fun(ByVal num As Integer)As Integer
Dim k As Integer
k=1
hum=Abs(nnm)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function
Private Sub Form_Click()
Dim n As Integer
Dim r As Integer
n=InputBox("请输入一个数:")
n=Int(n)
r=fun(n)
Print r
End Sub
程序运行后,单击窗体,在输入对话框中输入246,输出结果为

选项 A、120
B、48
C、24
D、60

答案B

解析 程序从对话框中获得n的初值并转换成数字进行计算。DoWhile…Loop循环对传过来的数值进行处理。Nod为取余函数。代入变量和初值进行计算可得退出循环时k=48。选B。
转载请注明原文地址:https://kaotiyun.com/show/IpUp777K
0

最新回复(0)