首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下程序: Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=nu
在窗体上画一个命令按钮,然后编写如下程序: Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=nu
admin
2010-09-11
44
问题
在窗体上画一个命令按钮,然后编写如下程序:
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num\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)
Print r
End Sub
程序运行后,单击命令按钮,在输入对话框中输入“345”,输出结果为【 】。
选项
答案
60
解析
程序首先要求用户输入一个数,然后将这个数转化为长整型传递入函数fun。本题中传入的数字是345。
函数fun中首先将传入的参数取绝对值,然后进入循环:
第一次循环结束的时候:
k=5
num=34
第二次循环结束的时候:
k=20
num=3
第三次循环结束的时候:
k=60
num=0
转载请注明原文地址:https://kaotiyun.com/show/1Pmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序创建了一个线程并运行,请填空,使程序完整。publicclassThreadTest{publicstaticvoidmain(Stringargs[]){Helloh=newHello();______;t.start(
每个Applet程序必须有一个类是______类的子类。
下列程序的输出结果是publicclassfff{voidprintValue(intm){do{System.out.println("Thevalueis"+m);}while(-
下列工具中为需求分析常用工具的是()。
一个项目具有—个项目主管,—个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于【】的联系。
设A为已定义的类名,则下列声明A类的对象a的语句中正确的一项是
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中,数据独立性最高的阶段是______。
实体完整性约束要求关系数据库中元组的______属性值不能为空。
在面向对象方法中,______描述的是具有相似属性与操作的一组对象。
算法的空间复杂度是指
随机试题
男性,36岁,间歇性上腹痛3年,空腹时加重,进食后缓解,胃镜检查示十二指肠壶腹部溃疡,病人近日上腹胀痛伴呕吐,呕吐物量多,为隔餐食物,腹上区有震水音。静脉补钾一般尿量应至少在()
A.妊娠性龈炎B.青春期龈炎C.慢性边缘性龈炎D.慢性牙周炎E.伴糖尿病的牙周炎
设乙公司对外负债80余万元无力偿还,甲公司对此债务应否承担责任?何某打算加入甲公司,并拟人资20万元,下列几种方式中,不符合《公司法》的是:
历史文物包括以下各项中的()。
依据《中华人民共和国城镇国有土地使用权出让和转让暂行条例》规定,城市土地出让和转让可采取多种方式,其中协议方式适用于()。
自然垄断通常会导致政府监管,而它存在的前提条件是
下列选项中,属于基金运作费的有()。Ⅰ.审计费Ⅱ.律师费Ⅲ.过户费Ⅳ.经手费
2008年年底,我国网民数从1997年的62万增加到2.98亿,居世界第2位。其中宽带网民数达到2.7亿,手机网民数达到1.2亿。互联网普及率达到22.6%,超过全球平均水平。2008年年底,我国互联网的国际出口带宽由1997年的25.4Mbps
运用先进典型对学生进行思想品德教育,这是德育的()
Itcarrieswhitebloodcellsanddisease-fightingchemicalscalledantibodiestoplaceswhereforeigninvaderssuchasbacteria
最新回复
(
0
)