![[单项选择题] 有如下的一个函数过程：Function fn(ByVal num As Long) Dim k As Long k= 1 num = Abs(num) do while num](http://www.mshxw.com/aiimages/31/251158.png "[单项选择题] 有如下的一个函数过程：Function fn(ByVal num As Long) Dim k As Long k= 1 num = Abs(num) do while num")
[单项选择题] 有如下的一个函数过程：Function fn(ByVal num As Long) Dim k As Long k= 1 num = Abs(num) do while numk = k * (num Mod 10)num= num10 Loop fn=kEnd Function 以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字123，该过程的运行结果是 ______。Private Sub Command1_Click() Dim n As Long Dim r As Long n = CLng(n) r = fn(n) Print rEnd Sub
A．12
B．6
C．3
D．1
参考答案：
B问题解析:
本题的难点在于理解求余和整除运算。当“num=123”时，程序计算过程为“3×2×1=6”。
