2. 计算机
  3. 有如下的一个函数过程： Function fn(ByVal num As Long) Dim k As Long k=1：num=Abs(num) DO While num k=k*fhum Mod 10) num=hum＼10 Loop fn=k End

有如下的一个函数过程： Function fn(ByVal num As Long) Dim k As Long k=1：num=Abs(num) DO While num k=k*fhum Mod 10) num=hum＼10 Loop fn=k End

admin2015-05-30  22
问题 有如下的一个函数过程：
Function fn(ByVal num As Long)
Dim k As Long
k=1：num=Abs(num)
DO While num
k=k*fhum Mod 10)
num=hum＼10
Loop
fn=k
End Function
通过以下事件过程调用该函数，程序运行后，在输入对话框中输入数字“123”，则运行结果为(    )。
Private Sub Command 1_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
答案B
解析 本题考查函数功能分析。定义函数过程fn时，在参数前加上ByVal表明参数为传值调用。函数fn的主要功能为取出num的每一位，进行累计相乘，然后返回结果。
转载请注明原文地址:https://jikaoti.com/ti/YG60FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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