首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下程序: 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
54
问题
在窗体上画一个命令按钮,然后编写如下程序:
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全国计算机二级
相关试题推荐
建立一个类对象时,系统自动调用()。
若PAT是一个类,则程序运行时,语句“PAT{*ad}[3];”调用PAT的构造函数的次数是()。
下列有关函数重载的叙述中,错误的是()。
运算符重载时不需要保持的性质是()。
将E一R图转换为关系模式时,实体和联系都可以表示为()。
若Myclass是一个类名,且有如下语句序列Myclassc1,*c2;Myclass*c3=newMyclass;Myclass&c4=c1;上面的语句序列所定义的类对象的个数是()。
下列关于派生类构造函数和析构函数的说法中,错误的是()。
层次型、网状型和关系型数据库划分原则是()。
负责数据库中查询操作的数据库语言是()。
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码;PrivateSubCommand1_Click()s="ABBACDDCAB"Fori=6To2Step-2x=Mid(s,i,i)y=LeR(s,i)z=Right(s,i)z=x
随机试题
学校及其他教育机构领导体制
当今世界格局发展的趋势是()
患者女,17岁,头痛、咳嗽伴发热1周来诊,查体:T38.0℃,咽赤,右肺背侧下部可闻及小水泡音。患者又出现鼓膜炎、结膜炎,此外,还可能出现下列哪些病症
为了维持药物的疗效,应该
A.热邪B.风邪C.湿邪D.寒邪E.燥邪
城市污水一级处理工艺中采用的构筑物是()。
可以预防沥青混凝土路面横向接缝病害的措施是()。
某企业于2016年成立,当年发生经济业务如下:(1)领取了营业执照、房产证、土地使用证、商标注册证、银行开户许可证各一件,资金账簿记载实收资本1350万元,新启用其他营业账簿8本。(2)2月末将一间门面房租给某商户,签订财产租赁合同,租期2年,合同记载
Theonlysoundsarebirdcallsandthesoftnoise__________________________(当水缓缓推动草时草所发出的).
A、Havingregularmorningmeetings.B、Goingshoppingwithhiswife.C、Havingeveningdinnerathome.D、Havinginterviewwithjour
最新回复
(
0
)