首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
2020-04-18
23
问题
有如下程序:
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/XuTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名为Commandl的命令按钮,然后编写以下程序:PrivateSubCommandl—Click()DimM(10)AsIntegerFork=1To10M(k)=12一kNe
设计窗体时双击窗体的任何位置,将打开()。
设窗体上有名称为Option1的单选按钮,且程序中有语句:IfOption1.Value=TrueThen下面语句中与该语句不等价的是( )。
编写如下程序:PrivateSubCommand1_Click()Dima(10)AsStrings="123456"n=Len(s)Fork=1Tona(k)=Mid(s,
为了每秒钟发生一次计时器事件,可以将Interval属性设置为()。
有如下的一个函数过程:Functionfn(ByValnumAsLong)DimkAsLongk=1:mlm=Abs(num)DoWhilehumk=k*(numMod10)nuln=num|10Loopfn=kEn
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
以下关于VB的叙述中,错误的是( )。
设变量x中的值是395,则下面语句的输出是Printx\100+((xMod100)\10)*10+(xMod10)*100
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为( )。
随机试题
网络层最重要的协议是()
关于胎盘娩出后所见的描述,下列哪种说法是错误的
急性梗阻性化脓性胆管炎最关键的治疗是
对某项目投资方案进行单因素敏感性分析,基准收益率15%,采用内部收益率作为评价指标,投资额、经营成本、销售收入为不确定性因素,计算其变化对IRR的影响如下表所示:不确定因素变化对IRR
凡具有观赏、文化或科学价值,()比较集中,环境优美,具有一定的规模和范围,可供人们游览、休息或进行科学文化活动的地区,划分风景名胜区。
下列各项,不能够引起负债和所有者权益项目同时发生变动的有()。
中国公民出境后非法前往其他国家或者地区被遣返的,出境入境证件签发机关自其被遣返之日起()不予签发出境入境证件。
对建筑和制造公司中工作场所安全的研究发现,当工作负荷增加时,受伤率上升。因为在工作负荷增加时,无经验的工人经常被雇用,受伤率的增加无疑归因于无经验工人的高事故率。下面哪一项如果正确,最能削弱上面的结论?
VBA程序的多条语句可以写在一行中,其分隔符必须使用符号
1 Thetrainclatteredoverpointsandpassedthroughastation.2 Thenitbegansuddenlytoslowdown,presumablyinobedience
最新回复
(
0
)