有如下的一个函数过程: Function fn(ByVal num As Long) Dim k As Long k=1:mlm=Abs(num) Do While hum k=k*(num Mod 10) nuln=num|10 Loop fn=k En

admin2018-09-19  36

问题 有如下的一个函数过程:
Function fn(ByVal num As Long)
Dim k As Long
k=1:mlm=Abs(num)
Do While hum
k=k*(num Mod 10)
nuln=num|10
Loop
fn=k
End Function
通过以下事件过程调用该函数,程序运行后,在输入对话框中输入数字“123”,则运行结果为(    )。
Private Sub Commandl  .Click()
_Dim n As Long
Dim r As Long
n=InputBox(“请输入一个数值”.)
n=CLng(n):r=fn(n)
Print r
End Sub

选项 A、12
B、6
C、3
D、1

答案B

解析 本题考查函数功能分析。定义函数过程fn时,在参数前加上ByVal表明参数为传值调用。函数fn的主要功能为取出hum的每一位,进行累计相乘,然后返回结果。
转载请注明原文地址:https://kaotiyun.com/show/vIFp777K
0

最新回复(0)