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

资产总额低于（）亿元人民币或存款余额低于（）亿元人民币的商业银行，按照《商业银行信息披露办法》规定进行信息披露确有困难的，经说明原因并制定未来信息披露计划，报中国银监会批准后，可免于信息披露。（《商业银行信息披露办法》第30条）

A、10，3

B、10，5

C、8，3

D、8，5