有如下的一个函数过程:Function fn(ByVal num As Long) Dim k As Long k= 1 num = Abs(num) do while num k = k * (num Mod 10)

admin2010-09-11  23

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

选项 A、12
B、6
C、3
D、1

答案B

解析 本题的难点在于理解求余和整除运算。当“num=123”时,程序计算过程为“3×2×1=6”。
转载请注明原文地址:https://jikaoti.com/ti/jEg0FFFM
0

最新回复(0)