有如下的一个函数过程：
Function fn(ByVal num As Long)
Dim k As Long
k= 1
num = Abs(num)
do while num
k = k * (num Mod 10)
num= num\10
Loop
fn=k
End Function
以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字123，该过程的运行结果是 ______。
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n = CLng(n)
r = fn(n)
Print r
End Sub

A．12

B．6

C．3

D．1