首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
29
问题
有如下程序:
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全国计算机二级
相关试题推荐
以下语句的输出结果是______。PrivateSubCommand1_Click()x=10y=1Printx+y=101;EndSub
MsgBox函数的返回值的类型是______。
在程序中添加一个命令按钮和两个文本框,并在命令按钮中编写如下代码:PrivateSubCommand1_Click()a=Text1.Textb=Text2.Textc=LCase(A.d=UCase(B)Pri
要使Label控件中显示的文字超出它的宽度时能自动换行,应该把它的WordWrap属性设置为______。
在考生文件夹中有工程文件execise110.vbp及窗体文件execise110.frm。如下图所示,在名为Form1的窗体上有一个Labe1控件,4个Text控件及7个命令按钮,其功能如下,(1)开始启动工程时,界面上除Input及Quit按钮
表达式Fix(-32.68)+Int(-23.02)的值为【】。
设有以下循环结构Do循环体LoopWhile<条件>则以下叙述中错误的是
设y是整形变量,能判断y为奇数的表达式是
以下不能在“工程资源管理器”窗口中列出的文件类型是
随机试题
行政程序
A.内踝正下方凹陷处B.外踝正下方凹陷处C.外踝尖与跟腱之间凹陷处D.内踝尖与跟腱之间凹陷处(2010年第115,116题)申脉穴的定位是(题)
根据营业税改征增值税试点相关规定,下列各项中,应征收增值税的是()。
构成团队有效性的要素有()
党的十八届三中全会通过的《中共中央关于深化改革若干重大问题的决定》指出,()是社会主义市场经济制度的重要实现形式。
创新:僵化
在线性表的链式存储结构中,其存储空间一般是不连续的,并且()
RelationsbetweentheUnitedStatesandColombiasufferedformanyyearsbecauseofanincidentinvolvingtheRepublicofPanama
WhatfirstinspiredMartinMiddleton’sinterestintravelling?
A、Theeducationproblems.B、Thediscriminationproblems.C、Thepopulationproblems.D、Thedebtproblems.D
最新回复
(
0
)