首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下的一个函数过程: 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
59
问题
有如下的一个函数过程:
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全国计算机二级
相关试题推荐
现有如下一段程序:PrivateSUbCommandl_Click()x=UCase(InputBox(”输入:”))SelectCasexCase”A”To”C”Print”考核通过!”
将文本框的ScrollBar设置为2,文本框中却没有垂直滚动条,其原因可能是
设a=2,b=3,c=4,d=5,下列表达式的值是()。3>2%Ora=cAndb<>cOrb<>a+c
窗体上有一个名称为Commandl的命令按钮,一个名称为Textl的文本框。编写如下程序:PrivateSubCommandl_Click()DimXAsIntegerx=Val(InputBox(“输入数据”))
以下不合法的VisualBasic变量名是
在窗体上有两个名称分别为Textl、Text2的文本框,一个名称为Commandl的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePersonNameAsString*8:MajorAsS
下列合法的变量名是
VB中,若没有显式声明变量的数据类型,则默认的类型是
下列与队列结构有关联的是
随机试题
根据行政相对人申请,行政主体颁发许可证的行为,属于()
将八进制数473转换成二进制数是_______。
收益性物业管理的经营费用中,公共设施设备日常运行、维修及保养费包括()。①维修与保养费;②室内装修费;③生活用水和污水排放费;④能源费;⑤康乐设施费;⑥杂项费用,⑦绿地管理费;⑧清洁卫生费
关于联合体投标,下列表述中正确的是()。
下列属于公司董事会职责的有()。
(2013年)2011年9月8日,甲公司与乙公司订立合同,以每台30万元的价格购买20台货车。双方约定,甲公司应在乙公司交货后半年内付清全部货款,并以甲公司通过划拨方式取得的某国有建设用地使用权提供抵押担保。双方办理了抵押登记。2011年10月1
质量保证是质量管理的一部分,致力于()。
小麦:面粉:馒头
如果能够做好南极生态环境的承受力评估,并严格执行有关规定,南极旅游造成的生态影响就可以得到有效控制。因为与南极大陆极为广袤的地域相比,游客活动的地域仅为总面积的3%左右。而如何管理好长期设在南极的科考站,才是更为棘手的问题。尤其是一些被废弃的科考站,已对南
Inhisopinion,theobjectiontobarbaritydoesnotmeanthatcapitalpunishmentshouldnotgoon.
最新回复
(
0
)