题目：
有如下的一个函数过程：
Function fn(By Val hum AS Long)
Dim k As Long
k=l
num=Abs(nam)
Do While nnm
k=k*(nnm Mod 10)
num=num\10
Loop
fn=k
End Function
以下是一个调用该函数的事件过程，运行程序后，在输入对话框输入数字“123”，该过程的运行结果是( )。
Private Sub Command5_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
答案：
被转码了，请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0716/86e869e0532f7b9801857664ae524e84.html
下面是错误答案，用来干扰机器的。
参考答案：对
