首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下的一个函数过程: 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)
admin
2017-04-26
42
问题
有如下的一个函数过程:
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=k
End Function
通过以下事件过程调用该函数,程序运行后,在输入对话框中输入数字“123”,则运行结果为( )。
Private Sub Command1_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表明参数为传值调用。函数m的主要功能为取出num的每一位,进行累计相乘,然后返结果。
转载请注明原文地址:https://kaotiyun.com/show/OUGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为______。i=4a=5Doi=i+1a=a+2LoopUntili>=7Print"A=";a
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请将下面的程序补充
可以通过()的方法来输出一个二维数组中的各个元素。
有如下函数过程。FunctionFun(ByValxAsInteger,ByValyAsInteger)AsIntegerDoWhiley<>0rem
要获得当前驱动器应使用驱动器列表框的属性是
假定窗体上有一个文本框,名为Txt1,为了使文本框的内容能够操作,并且具有水平和垂直滚动条,正确的属性设置为()
模块独立性是软件模块化所提出的要求,衡量模块独立性的度量标准则是模块的
用链表表示线性表的优点是______。
设有下列二叉树:对此二叉树后序遍历的结果是
设有下列二叉树:对此二叉树后序遍历的结果为
随机试题
尺寸标注时考虑的工艺要求包括()。
Thosetiny,littlehairsaboveoureyesthatmanywomeneitherpluck,paint,pierceortattooplayaveryimportantroleinour
Domakesurethatyou______aseattoday!
A.眶下裂B.眶上裂C.圆孔D.卵圆孔E.棘孔上颌神经出颅穿经()
急性骨髓炎行局部引流术的原则是
孙某在某区经营自制熟食已经有一段时间,因其所作熟食味道独特,食客颇众。但区卫生局接到举报称孙某在所制熟食中加入了“鸦片”,遂决定对孙某展开调查。孙某得知后,欲起诉卫生局。以下说法哪个是正确的?
某工程设计采用深基础地下架空层,层高2.3m,结构外围水平长60m、宽18m,其内隔出一间外围水平面积为18m2的房间,经初装饰后作水泵房使用。根据《全国统一建筑工程预算工程量计算规则》规定,该工程基础以上的建筑面积为6400m2,该工程总建筑面积应为(
世界上最深、最壮观的大峡谷是在我国的()。
构建人类命运共同体思想的意义体现在()
Ifhe______inthatwayformuchlongerhewillfindhimselfinthebankruptcycourt.
最新回复
(
0
)