下列关于地面水污染源的简化要求，说法错误的是（）。

A.根据污染源的具体情况，排放形式可简化为点源、线源、面源，排放规律可简化为连续恒定排放和非连续恒定排放

B.在地面水环境影响预测中，通常可以把排放规律简化为连续恒定排放

C.无组织排放可以简化成面源；从多个间距很近的排放口排水时，可以简化为点源

D.评价等级为三级时，海湾污染源简化与大湖（库）相同

有如下的一个函数过程：
Function fn(ByVal num As Long)
Dim k As Long
k=1:num=Abs(num)
Do While nuin
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=InputBox("请输入一个数值")
n=CLng(n):r=fn(n)
Print r
End Sub

A．12

B．6

C．3

D．1