首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下程序: Function fun (ByVal num As Long) As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num\10) num=nm\1
在窗体上画一个命令按钮,然后编写如下程序: Function fun (ByVal num As Long) As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num\10) num=nm\1
admin
2010-01-05
40
问题
在窗体上画一个命令按钮,然后编写如下程序:
Function fun (ByVal num As Long) As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num\10)
num=nm\10
Loop
fun=k
End Function
Private Sub Command1_ Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
MsgBox r
End Sub
程序运行后,单击命令按钮,在输入对话框中输入234,消息框显示的结果为【 】。
选项
答案
0
解析
程序将输入的内容234转变为长整型传入函数fun中,然后进入循环。
循环第一次结束的时候:k=23 num=23
循环第二次结束的时候:k=46 hum=2
循环第三次结束的时候:k=0 num=0
转载请注明原文地址:https://kaotiyun.com/show/wWwp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
下列语句中,错误的是()。
下列类模板的定义中语法格式错误的是()。
下面是重载为非成员函数的运算符函数原型,其中错误的是()。
在函数中,可以用auto、extern、register和static这四个关键字中的一个来说明变量的存储类型,如果不说明存储类型,则默认的存储类型是()。
某系统总体结构图如下图所示:该系统总体结构图的深度是()。
对于语句cout<<endl<<x;中的各个组成部分,下列叙述中错误的是()
下列因素中,对C++编译器区分重载函数无任何意义的是()。
已知一程序运行后执行的第一个输出操作是cout
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
在窗体中添加一个命令按钮(名称为Command1),然后编写如下代码:PrivateSubCommand1_Click()StaticbAsIntegerb=b+lEndSub窗体打开运行后,三次
随机试题
A、Thereismuchroomforinformationinit.B、Itholdsinformationforabout15to20seconds.C、Itholdsinformationalmostind
最有利于分权的沟通方式是()
男性,60岁,肝硬化5年,1周前腹水大量增多,给予利尿剂治疗,近日烦躁不安,动作不协调;轻度黄疸,两手举起时腕部阵发性颤抖,该患者首先应该考虑的疾病诊断是
关于尤文肉瘤的描述,错误的是
A、桂枝茯苓丸B、妇科千金片C、干金止带丸D、益母草胶囊E、妇炎平胶囊某女,35岁,患滴虫性阴道炎,霉菌检查阳性,症见带下量多,色黄味臭,阴部瘙痒。证属湿热下注导致的带下病,阴痒,治当清热解毒,燥湿止带,杀虫止痒,宜选用的成药是()。
提起附带民事诉讼必须在()。
宏观专题咨询研究包括()内容。
根据合伙企业法律制度的规定,有限合伙人的下列行为,不视为执行合伙事务的有()。
()中留下关于哈雷彗星的最早记录。
根据《收养法》的有关规定,下列关于一般收养法律关系中,收养人应当具备条件的表述,错误的是()。
最新回复
(
0
)