有如下程序： Function fun(ByVal hum As Integer)As Integer Dim k As Integer k=1 nuln=Abs(num) Do While hum k=k*(hum Mod 10)：hum=hu

admin2015-05-29 52

问题有如下程序：
Function fun(ByVal hum As Integer)As Integer
Dim k As Integer k=1
nuln=Abs(num)
Do While hum
k=k*(hum Mod 10)：hum=hum＼10
Loop
fun=k
End Function
Private Sub Form Click()
Dim nAs Integer,rAs Integer
n=InputBox("请输入一个数：")：n=Int(n)：r=fun(n)：Print r
End Sub
程序运行后，单击窗体，在输入对话框中输入246，输出结果为

选项 A、120
B、48
C、24
D、60

答案B

解析在函数：fun中会对传过来的参数num进行判断，如果不为0则进行循环，将各位数字乘到一起然后作为函数的返回值。

转载请注明原文地址:https://kaotiyun.com/show/qDQp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类