首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下的一个函数过程: Function fn(ByVal num As Long) Dim k As Long k=1:num=Abs(num) Do While num k=k*(num
有如下的一个函数过程: Function fn(ByVal num As Long) Dim k As Long k=1:num=Abs(num) Do While num k=k*(num
admin
2020-07-22
47
问题
有如下的一个函数过程:
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 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/EgHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当窗体最小化时缩小为一个图标,设置这个图标的属性是()。
以下能够触发文本框Change事件的操作是()。
在窗体上画2个名称分别为Label1和Label2的标签,然后编写如下程序代码:SubS(LAsLabel,ByValaAsInteger)L.Caption="1234"a=a*aEndSubPriv
在数据库系统中,给出数据模型在计算机上物理结构表示的是
假设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是()。
假定有如下语句:answer$=MsgBox("String1",,"String2","String3",2)执行该语句后,将显示一个信息框,单击其中的“确定”按钮,则answer$的值为
以下不能用Print方法输出数据的对象或窗口是
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是
假设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是()。
设树T的深度为4,其中度为1,2,3,4的结点个数分别为4,2,1,1。则T中的叶子结点数为
随机试题
关于药物不良反应的预防,错误的方法是
残疾人最好的口腔卫生措施是婴幼儿期
尿路结石的主要症状是
屏护是采用遮挡、护罩、护盖、箱闸等将带电体同外界隔绝开来。屏护装置应有足够的尺寸,应与带电体保持足够的安全距离:遮挡与低压裸导体的距离不应小手()m。
运用成本法也可以估测设备的非正常变现价格。( )
按照公众角色类型划分,公关活动包括()。
公安机关担负着平息暴乱、骚乱、对付恐怖事件,追捕、围歼暴力犯罪,执行武装内卫,防范外来侵犯等武装性质的任务。( )
A、 B、 C、 D、 A
WritealettertoenquireatravelagencyaboutthetriptoMountTai.Somenecessarydetailsmustbeincluded.Youshouldwrite
Historianshaveonlyrecentlybeguntonotetheincreaseindemandforluxurygoodsandservicesthattookplacein18th-century
最新回复
(
0
)