有如下的一个函数过程： Function fn(By Val hum AS Long) Dim k As Long k=l num=Abs(nam) Do While nnmk=k*(nnm Mod 10)num=num\10 Loop fn=k End Function 以下是一个调用该函数的事件过程，运行程序后，在输入对话框输入数字“123”，该过程的运行结果是( )。 Private Sub Command5_Click()Dim n AS LongDim r AS Longn=InputBox(“请输入一个数值”)n=CLng(n)r=fn(n)Print r End Sub

A．12

B．6

C．3

D．1