首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下的一个函数过程: 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
74
问题
有如下的一个函数过程:
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)
窗体上有单选钮和列表框控件。单击名称为Option1、标题为"国家"的单选钮,向列表框中添加国家名称,如下图所示。Option1的单击事件过程如下:PrivateSubOption1_Click() Dimarr arr=Array("
有三个关系R,S和T如下:则由关系R和S得到关系T的操作是( )。
编写如下程序:PrivateSubCommand1_Click()Fori=1To4PrintSpace(12-3*i);Forj=1ToiPrintj;
在过程定义中,Private表示()。
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger n=2 Form=1To3 Printproc(n); NextmEndSubF
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click() x=0 DoWhilex
随机试题
在ASP.NET程序中执行完下面的代码后,ID为show的Label控件中显示的结果是()。inti=1;while(i
标志着艺术家意象创造的终结的是()
在施工投标前期工作中,编制投标人须知的重点在于()。
早期期货市场是远期合约市场。( )
燕贾祖璋①自从春风唤醒了芳草以后,依依袅袅的杨柳垂枝上的点点银色芽苞中,抽放着浅黄嫩绿的新叶;秃濯僵立的桃李枯丫间,也点缀着娇红洁白的花葩。当晶莹和暖的阳光照耀万物的时候,
张先生:应该向吸烟者征税,用以缓解医疗保健事业的投入不足。因为正是吸烟,导致了许多严重的疾病。要吸烟者承担一部分费用,来对付因他们不良习惯而造成的健康问题,是完全合理的。李女士:照您这么说,如果您经常吃奶油蛋糕,或者肥猪肉,也应该纳税。因为如同吸烟一样,
1960-1970年间,非洲国家津巴布韦境内的狩猎者猎捕了6500多头大象以获取象牙,这一时期津国大象总数从35000头下降到30000头以下。1970年津国采取了保护大象的措施,1970-1980年间逮捕并驱逐了800多名狩猎人。但是,到1980年津国大
李先生最近决定花5000美元购买一部1974年生产的R.R.牌二手车,这个价格比目前这种车的平均售价低50%。买了这部车后,需要花1万美元的维修费才能把它修好。由于这部车是古典型轿车,预计五年后会涨价70%,如果把它修好并使用五年后,将会赚2000美元。对
在关系数据库设计理论中,如果一个关系R满足1NF,但R的某个非码属性传递函数依赖于码,则关系R至多属于()。
设顺序表的长度为16,对该表进行简单插入排序。在最坏情况下需要的比较次数为()。
最新回复
(
0
)