首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下的一个函数过程: Function fn(ByVal num As Long) Dim k As Long k=1:num=Abs(num) Do While num k=k
有如下的一个函数过程: Function fn(ByVal num As Long) Dim k As Long k=1:num=Abs(num) Do While num k=k
admin
2020-06-30
68
问题
有如下的一个函数过程:
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 Command l_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://kaotiyun.com/show/QmHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("请输入一个整数"))fun(x)
在窗体上画一个命令按钮,然后编写如下时间过程()。PrintSubCommand1_Click()a=InputBox("EntertheFirstinterger")b=InputBox("Enterth
有三个关系R,S和T如下:则由关系R和S得到关系T的操作是( )。
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
编写如下程序:PrivateSubCommand1_Click()Fori=1To4PrintSpace(12-3*i);Forj=1ToiPrintj;
在过程定义中,Private表示()。
随机试题
不属于远端小管特点的选项是()
营销管理注重技术环境的哪几个方面?()
男性,38岁,间断性左下腹疼痛伴腹胀3个月。一般状况尚可,结肠镜显示:乙状结肠环周狭窄。病理诊断:乙状结肠中分化腺癌。CT显示:左肝外侧叶约1.5cm占位,考虑转移癌可能性大。最适宜的治疗方案为
患儿女,10个月。腹泻5天入院。每日大便10余次,黄色蛋花汤样,水分多,伴有呕吐、尿少、轻咳。体检:T38.2℃,前囟、眼窝凹陷,皮肤弹性差,四肢稍凉。血白细胞7.5×109/L,血Na+125mmol/L,K+3.7mmot/L,BE﹣16mmol/
A.穿透作用B.荧光作用C.电离作用D.感光作用E.着色作用X线透视和摄影的基础是
小肠黏膜不能吸收的蛋白质分解物是()。
在国际贸易中,含佣价的计算公式是()。
关于中学化学教学中多媒体的使用,下列选项不恰当的是()。
冰心文学创作的基本思想是()。
计算机软件可分为系统软件和应用软件,按此分类方式,下列与其他三项不属于同一软件类型的是()。
最新回复
(
0
)