首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下的一个函数过程: Function fn(ByVal num As Long) Dim k As Long k=1:num=Abs(num) Do While num k=k*(num Mod
有如下的一个函数过程: Function fn(ByVal num As Long) Dim k As Long k=1:num=Abs(num) Do While num k=k*(num Mod
admin
2018-12-20
22
问题
有如下的一个函数过程:
Function fn(ByVal num As Long)
Dim k As Long
k=1:num=Abs(num)
Do While num
k=k*(num Mod 10)
num=Bum\10
Loop
fn=k
End Function
通过以下事件过程调用该函数,程序运行后,在输入对话框中输入数字“123”,则运行结果为( )。
Private Sub Commandl_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/dVFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()DimxAsString,yAsStringx=Right("abcd",2)y=Mid("dcba",2,3)Ifx>
窗体上有一个名称为Frame1的框架(如图),若要把框架上显示的"Frame1"改为汉字"框架",下面正确的语句是( )。
有两个关系R,S如下:由关系R通过运算得到关系S,则所使用的运算为( )。
如果改变驱动器列表框的Drive属性,则将触发的事件是( )。
设在当前目录下有一个名为"file.txt"的文本文件,其中有若干行文本。编写如下程序:PrivateSubCommand1_Click() Dimch$,asciiAsInteger Open"file.txt"ForInpu
以下关于事件、事件驱动的叙述中,错误的是( )。
以下过程定义中正确的过程首行是( )。
下列链表中,其逻辑结构属于非线性结构的是
数据库管理系统是( )。
以下表达式与Int(3.5)的值相同的是
随机试题
马克思主义同中国实际相结合的第一次历史性飞跃的理论成果是()
心绞痛发生的原因和诱因不包括
工厂所需大宗原材料、燃料等从厂外直接运至车间或料库的目的是()。
项目经理与部门经理的工作在哪些方面不同?()。
下列关于书面声明的说法中,不正确的有()。
我国企业会计要素中的费用是指()。
从所给的四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性。
A、 B、 C、 D、 D题干每个图形中都有三角形,选项中只有D项符合。
论述法律解释的必要性。
Whenitcomestotheslowingeconomy,EllenSpiroisn’tbitinghernailsjustyet.Butthe47-year-oldmanicuristisn’tcutting,
最新回复
(
0
)