有如下的一个函数过程： 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

A．12

B．6

C．3

D．1