首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
49
问题
有如下程序:
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全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dima(1To10)Dimp(1To3)k=5Fori=1To10a(i)=iNextiFori=1To3p
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) DimaAsInteger,sAsInteger a=8 s
下列是一个体操评分程序。设满分为10分,20位评委,除去一个最高分和一个最低分,计算平均分。PrivateSubCommand1_Click()Max=0Min=10Fori=1To20n=Val(InputBox("请输入分数"))
下列说法正确的是
VisualBasic中的控件分为3类,它们是【】、ActiveX控件和可插入对象。
列表框的【】属性决定列表框中项目在程序运行期间是否按字母顺序排列,如果该属性为True,则按字母顺序排列显示,为False则按项目加入的先后顺序排列显示。
在窗体上画三个单选按钮,组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是()。
由Array函数建立的数组的名字必须是【】类型。
下列程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。PrivateSubCommand1_Click()x=Val(Text
随机试题
《现代汉语词典》(商务印书馆出版)属于()
Internet上使用的网络协议是基于________________协议。
支持:ITP诊断的是()(2005年)
当事人订立的损害社会公共利益的合同,应从( )时起没有法律约束力。
()是《巴塞尔新资本协议》的第三支柱。
2016年7月31日,甲公司发现2015年漏记一项长期股权投资的减值,该项长期股权投资是甲公司对A公司的具有控制权的投资,长期股权投资账面余额为1080万元,以前未计提减值准备,2015年12月31日,A公司财务状况出现严重恶化。长期股权投资的可收回金额为
刑事责任年龄是指法律规定行为人对自己的犯罪行为负刑事责任必须达到的年龄。下列关于刑事责任年龄说法正确的有()。
远程登录之所以能允许任意类型的计算机之间进行通信,是因为()。
OurheadmastertooktheAmericangueststovisitourschool.Ourheadmaster______theAmericanguests______ourschool.
HowtoBuildaStrongTeamSpirit1.Threeprinciplestobuildingateam■Teamworkisbasedon【T1】______【T1】_
最新回复
(
0
)