首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(By Val num As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10):num=num\10
有如下程序: Function fun(By Val num As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10):num=num\10
admin
2019-04-29
28
问题
有如下程序:
Function fun(By Val num As Integer)As Integer
Dim k As Integer k=1
num=Abs(num)
Do While num
k=k*(num Mod 10):num=num\10
Loop
fun=k
End Function
Private Sub Form_Click()
Dim n As Integer,r As Integer
n=InputBox("请输入一个数:"):n=Int(n):r=fun(n):Print r
End Sub
程序运行后,单击窗体,在输入对话框中输入246,输出结果为
选项
A、120
B、48
C、24
D、60
答案
B
解析
在函数fun中会对传过来的参数num进行判断,如果不为0则进行循环,将各位数字乘到一起然后作为函数的返回值。
转载请注明原文地址:https://kaotiyun.com/show/HLUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Commandl的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndTyp
在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经给出所有控件。程序运行时,单击“开始”按钮,则汽车图标向右运动;单击“停止”按钮则汽车停止运动;移动滚动条上的滚动框,可以改变汽车的运动速度(滚动框向右移动,速度减慢)。如图3-86所示。要求如下:
在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩形的左
在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图3-155所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
若将变量TestDate声明为Date类型,则下列为变量TestDate赋值的语句中正确的是()。
如下关于变体类型变量的叙述中,错误的是()。
设窗体文件中有下面的事件过程:PfivteSubCommand1_Click()Dimsa%=100PrintaEndSub其中变量a和s的数据类型分别是()。
某工厂生产中使用若干种原材料,原材料置于多个仓库中,并且同样的材料可放在不同的仓库中,则实体材料和实体仓库之间的联系是()。
在商场购物中,实体顾客和实体商品之间的联系是()。
在满足实体完整性约束的条件下
随机试题
《素问.刺热篇》把哪脏与额加以联系()(2001年第14题)
《关于贯彻的通知》(建规[2004]185号)规定,严格执行建设用地指标,促进土地资源的集约和合理利用的相关工作内容应包括()
在建设工程进度计划的实施过程中,监理工程师控制进度的关键步骤是( )。
关于计算机病毒防范措施主要有哪些?
创造性是指个体产生新奇独特的、______的产品的能力或特性。
下面这首诗,完成后面的题目。西村陆游乱山深处小桃源,往岁求浆忆叩门。高柳簇桥初转马,数家临水自成村。茂林风送幽禽语,坏壁苔侵醉墨痕。一首
熙宁四年:立《盗贼重法》。凡劫盗罪当死者,籍其家赀以赏告人,妻子编置千里……若复杀官吏,及累杀三人,焚舍屋百间,或群行州县之内,劫掠江海船筏之中,非重地,亦以重论。——《宋史.刑法志一》请运用中国法制史的知识和理论,分析上述材料并回答下列问题:
曲面x2+2y2+3z2=1的切平面与三个坐标平面围成的有限区域的体积的最小值为________.
Telecommunicationsstandfordevicesandsystemsthattransmitelectronicoropticalsignalsacrosslongdistances.Telecommuni
【S1】【S2】
最新回复
(
0
)