首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
53
问题
有如下程序:
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全国计算机二级
相关试题推荐
用随机函数产生(100,200)范围整数的表达式是______。
在关系数据库中,元组的集合称为关系。通常标识元组的属性或最小属性组称为【】。
______函数用于返回n个空格。
下列语句执行后的输出结果是______。Wage=26Print"工资";PrintWage
在考生文件夹中有一个工程文件execise107.vbp及窗体文件execise107.frm。在名为Form1的窗体上已经绘制出所有控件,如下图所示。在运行时,如果单击Move按钮,则窗体上的汽车图标每0.1秒向右移动一次(初始状态下不移动);如果单击
在循环体中,可以使程序转让控制权,以便让操作系统处理其他的事件的语句是______。
设a=2,b=3,c=4,d=5,下列表达式的值是Nota<=COr4*c=b^2Andb<>a+c
表达式Val(".123E2")的值是()。
随机试题
局部用冷1小时可出现()
某咨询机构受一汽车销售公司的委托,对某地区家用轿车消费市场进行分析预测,该咨询机构从委托单位得到了该地区每万人家用轿车销售量数据,并通过其他途径采集了人均收入有关信息,见表4-1。为了预测2021年该地区家用轿车的销售量,咨询单位拟采用德尔菲法
某日用化妆品厂本月销售600套自产旅行化妆品套装.每套由下列产品组成:自产门红一支(不含税价48元),外购防晒霜一瓶(15元),自产香水一瓶(20元),塑料包装袋(2元)。每套产品单价为85元,以上均为不含税价,其本月销售套装产品应当缴纳的消费税为(
下列名山中,()是唯一受过古代皇帝封禅的名山。
“骏马能历险,犁田不如牛;坚车能载重,渡河不如舟”。这句话启发我们在用人方面要坚持()。
蓄积器官是毒物在体内的蓄积部位。毒物在蓄积器官内的浓度高于其他器官,但对蓄积器官不一定显示毒作用。这种毒作用也可以通过某种病理生理机制,由另一个器官表现出来,这种器官叫作效应器官。根据上述定义,下列判断正确的是()。
小张工作的时间是12点到19点,某天小张在上班时间先后参加了两个时长为半小时的讨论会,两个讨论会开始时小张手表上的时针和分针都呈90度角。则两个会议的开始时间最多间隔()。
下列关于综合布线系统的描述中,错误的是()
Thereisadifferencebetweenscienceandtechnology.Scienceisamethodofanswering(51)questions,technologyisamethodofs
Youwillhearpartofaconversationbetweentwocompanyemployees,awomancalledRoseandamancalledSteve.Foreachquestio
最新回复
(
0
)