有如下程序： Function fun(ByVal nuin As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do Wbile num k=k*(nu

admin2017-04-25 29

问题有如下程序：
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全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

为了清除窗体上的一个控件，下列正确的操作是______。
下列关于文件的叙述中，错误的是（）。
在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是______。
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程；PrivateSubCommand1_Click()a$="softwareandhardware"b$=Right(a$,8)
在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是______。
以下叙述中正确的是()。
单击一次命令按钮之后，下列程序段的执行结果为()。PubicSubProc(a()AsInteger)　StaticiAsInteger　Do　　a(i)=a(i)+a(i+1)　　i=i+1
下列程序执行后，变量x的值为()。Dima,b,c,dAsSingleDimxAsSinglea=10b=30c=400Ifb＞aThend=a:a=b:b=dEnd
窗体上有一个列表框和一个文本框，编写如下两个事件过程：PrivateSubForm_Load()List1.Addltem"Beijing"List1.Addltem"Tianjin"List1.Addltem"Shan
由Array函数建立的数组的名字必须是【】类型。

随机试题

下列不属于软件工程3个要素的是()。
在女士着装的要求中，套裙可以配便鞋。()
甲房地产开发公司(以下简称甲公司)招标获得一块“毛地”(有部分房屋需完成拆迁安置)的国有建设用地使用权，土地用途为居住用地，因故闲置一年，该项目再次启动6个月后，又因资金原因转让给乙房地产开发公司(以下简称乙公司)。3年后该项目建成，在成立业主大会前，由丙
组织规模越()，管理人员素质越()，环境越()，越倾向于集权。
所谓外资企业就是外国企业,属于外国主体。()
资料显示，电视并不能集中人的注意力。电视观众中，40％的人同时在阅读，21％的人同时在做家务，13％的人在吃喝，12％的人在玩赏他物，10％在烹饪，9％在写作，8％在打电话。而网络用户中，55％的人在使用计算机时不做任何他事，只有6％的人同时在打电话，只有
下列诗句描写泰山的是：
我国选举制度中选举权的平等性具体表现在()。(2010年多选54)
当有其他人存在时，人们不大可能去帮助别人，其他人越多，帮助的可能性越小，同时给予帮助前的延迟时间越长，这种现象叫作_____________，这种现象产生的原因主要有_____________、_____________和_____________。
A、Shecansendthemanadditionalinformation.B、Themanreceivedthewrongbill.C、Shewillcredittheman’saccount.D、Sheagr

最新回复(0)

有如下程序： Function fun(ByVal nuin As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do Wbile num k=k*(nu

二级VB

NCRE全国计算机二级

为了清除窗体上的一个控件，下列正确的操作是______。

下列关于文件的叙述中，错误的是（）。

在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是______。

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程；PrivateSubCommand1_Click()a$="softwareandhardware"b$=Right(a$,8)

在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是______。

以下叙述中正确的是()。

单击一次命令按钮之后，下列程序段的执行结果为()。PubicSubProc(a()AsInteger) StaticiAsInteger Do a(i)=a(i)+a(i+1) i=i+1

下列程序执行后，变量x的值为()。Dima,b,c,dAsSingleDimxAsSinglea=10b=30c=400Ifb＞aThend=a:a=b:b=dEnd

窗体上有一个列表框和一个文本框，编写如下两个事件过程：PrivateSubForm_Load()List1.Addltem"Beijing"List1.Addltem"Tianjin"List1.Addltem"Shan

由Array函数建立的数组的名字必须是【】类型。

下列不属于软件工程3个要素的是()。

在女士着装的要求中，套裙可以配便鞋。()

组织规模越()，管理人员素质越()，环境越()，越倾向于集权。

所谓外资企业就是外国企业,属于外国主体。()

下列诗句描写泰山的是：

我国选举制度中选举权的平等性具体表现在()。(2010年多选54)

当有其他人存在时，人们不大可能去帮助别人，其他人越多，帮助的可能性越小，同时给予帮助前的延迟时间越长，这种现象叫作_____________，这种现象产生的原因主要有_____________、_____________和_____________。

A、Shecansendthemanadditionalinformation.B、Themanreceivedthewrongbill.C、Shewillcredittheman’saccount.D、Sheagr

单击一次命令按钮之后，下列程序段的执行结果为()。PubicSubProc(a()AsInteger)　StaticiAsInteger　Do　　a(i)=a(i)+a(i+1)　　i=i+1

当有其他人存在时，人们不大可能去帮助别人，其他人越多，帮助的可能性越小，同时给予帮助前的延迟时间越长，这种现象叫作_______，这种现象产生的原因主要有_、_和_______。