有如下的一个函数过程: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=kEnd Function 以下是一个调用该函数的事件过程,在运行该程序后,在输入对话框中输入数字123,该过程的运行结果是 ______。Private Sub Command1_Click() Dim n As Long Dim r As Long n = CLng(n) r = fn(n) Print rEnd Sub