首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(ByVal num As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While n
有如下程序: Function fun(ByVal num As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While n
admin
2013-10-16
31
问题
有如下程序:
Function fun(ByVal 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 nAs Integer,rAs 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/BLQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()Dimart(1To10)AsIntegerFori=1To10Art(i)=Int(R
在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand_Click()StaticbAsIntegerb=b+1EndSub运行程序,第3次单击
在窗体上画一个名称为Connand1的命令按钮,然后编写如下程序:PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDima(10,10)AsI
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程:PrivateSubCommand1Click()Dimarr1(10),arr2(10)Fori=1
下列语句执行后的输出结果是______。Wage=26Print"工资";PrintWage
在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2),新建一个窗体Form2。然后编写如下程序:PrivateSubCommand1_Click()msg$="Ret
在名为Form1的窗体上绘制一个命令按钮,名为Cmd1,标题为“复制”;再绘制一个文本框,名为Text1。请编写适当的事件过程,使得在运行时,若单击命令按钮,则把按钮上的标题复制到文本框中(如下图所示)。注意:程序中不得使用任何变量;文件
在名为Form1的窗体上建立一个名为Pic1的图片框,两个名称分别为Cmd1和Cmd2的命令按钮,标题分别为Print和Clear,如下图所示。编写适当的事件过程,要求程序运行后,每单击一次Print按钮,不使用任何变量,直接在图片框中显示“计算机等级考试
设a=2,b=3,c=4,d=5,下列表达式的值是Nota<=COr4*c=b^2Andb<>a+c
假定建立了一个名为Command1的命令按钮数组,则下列说法中错误的是()。
随机试题
2型糖尿病的基础治疗措施是
小儿遗尿下元虚寒证的治则是小儿遗尿脾肺气虚证的治则是
A.青光眼B.阵发性室上性心动过速C.有机磷酸酯类中毒D.琥珀胆碱过量中毒E.房室传导阻滞新斯的明可治疗
为避免药物的首过效应,不考虑其理化性质的情况下,可以考虑将其制成()。
医务人员使用麻醉药品依据的原则是
下列检测内容,不属于数字视频安防监控系统检测的是()。
影响人格形成与发展的社会因素有()
生产力发展的决定性条件是()。
单位同事在一起议论领导,你刚好在,议论的话传到领导耳朵里,他以为你也参加了议论,而同事以为是你告的状,你怎么办?
AlthoughsomeskepticspointstoArcticplacessuchasthehighlatitudesofGreenland,wheretemperaturesseemtohavefallen,
最新回复
(
0
)