2. 计算机
  3. 有如下的一个函数过程：Function fn(ByVal num As Long) Dim k As Long k= 1 num = Abs(num) do while num k = k * (num Mod 10)

有如下的一个函数过程：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  18
问题 有如下的一个函数过程：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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)