首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(ByVal nuin As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do Wbile num k=k*(nu
有如下程序: Function fun(ByVal nuin As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do Wbile num k=k*(nu
admin
2017-04-25
46
问题
有如下程序:
Function fun(ByVal nuin As Integer)As Integer
Dim k As Integer k=1
num=Abs(num)
Do Wbile 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/xQGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:PrivateSubCommand1_Click()strText=InputBox("请输入"
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程;OptionBase0PrivateSubCommand1_Click()DimcityAsVariantcity=Array("北
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。PrivateSubForm_Click()StaticxAsInteger
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text2.Text=""T
假定程序中有以下语句:answer=MsgBox("String1",,"String2","String3",2)执行该语句后,将显示一个信息框,此时如果单击“确定”按钮,则answer的值为______。
下面循环语句巾在任何情况下都至少执行一次循环体的是()。
若要添加CommonDialog控件,则应从“工程”菜单中选定“部件”,在“部件”对话框的“控件”选项卡中选择______,将控件添加到工具箱中。
计时器事件之间的间隔通过【】属性设置。
下列符号常量的声明中,不合法的是
随机试题
赵某供职于某外资公司,一日下班之前,赵某的上司孙某(系该外资公司聘请的中国副总)打电话叫赵某去其办公室安排工作,工作安排后,孙某先是话语挑逗,后在赵某不同意的情况下与赵某发生了性关系。事后,赵某报案,孙某以涉嫌强奸罪被刑事拘留。后案件被某区检察院起诉到某区
案例:下面为一道物理习题和某同学的解答过程。,题目:如图9所示,铜棒质量m=0.1kg,静止放在相距L=8cm的水平导轨上,两者之间的动摩擦因数μ=0.5。现在铜棒中通以I=5A的电流,要使铜棒滑动,可在两导轨间加一垂直于铜棒的匀强磁场。求所加
教育的经济功能表现在教育可以直接创造物质财富。()
树下勤劳的蚂蚁来回____________,欢乐无比;而我坐在花园边的台阶上,尽情地吸吮着花草和泥土的芬芳,是那么的____________、舒心啊。依次填入画横线部分最恰当的一项是:()
A、 B、 C、 D、 B题干图形的曲线数依次是0,1,2,3,应选择有4条曲线的图形,选项中只有B符合。
甲因有事要长时间外出,临行前几天与乙约定,将甲的未婚妻赠与其的一块价值2万元的名贵手表交由乙保管,回来后请乙吃饭。3日后甲外出,同时将表交至乙处。2个月后,因乙急需用钱,便以2.5万元的价格将手表卖给丙,丙并不知道手表非乙所有。在丙付款后,乙将手表交付给丙
ThecrucialyearsoftheDepression,astheyarebroughtintohistoricalfocus,increasinglyemergeasthedecisivedecadeforA
Handsomemenandwomenoftenappeartobeblessedwithluckylives.Nowresearchhasshowntheyareclevererthanmostpeopleas
HowtoDuckCabinFeversAndOtherAchesonaPlane?[A]Onthefirstlegofthisseason’sholidaytraveltour,Ihadthedelight
A、DNAcansolveallthemysteriesinbiology.B、TheDNAoftwogroupsofgreenturtlesaretotallydifferent.C、TheuselessofD
最新回复
(
0
)