首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(By Val 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
有如下程序: Function fun(By Val 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
admin
2019-04-29
33
问题
有如下程序:
Function fun(By Val 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 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/HLUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设置定时器控件的Interva1属性为2000,Enabled属性为True,并且有下面的事件过程,程序运行时计算机将发出()次Beep声。SubTimer1_Timer()BeepEndSub
在考生文件夹中有一个工程文件sjt4.vbp。窗体上已有控件,如图3-128所示。请在属性窗口中将List1设置为可以多项选择(允许使用Shift键或Ctrl键进行选择)列表项。要求:双击List1中的某一项时,该项目被添加到List2中,同时在List1
以下能正确定义数据类型Systemlnfo的代码是()。
在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(
下列关于工程的叙述中错误的是()。
下列叙述中正确的是()。
产生100以内(不含100)2位随机整数的VisualBasic表达式是
设a=2,b=3,c=4,d=5,表达式Nota<=cOr4*c=b^2Andb<>a+c的值是()。
如下关于变体类型变量的叙述中,错误的是()。
某二叉树共有7个结点,其叶子结点只有1个,则该二叉树的深度为(假设根结点在第1层)
随机试题
现有一带传动,其主动轮的直径D1为200mm,转速,n1为1450r/min,从动轮直径D2为340mm,求此带传动的传动比i和从动轮的转速n2各为多少?
汽轮机启停或变工况过程中,轴封供汽温度是影响相对胀差的一个原因。()
寻思起就里。
女,65岁。无牙颌,全口总义齿修复5年,近来感义齿不合适,口角疼痛。检查见双口角湿白皲裂,上颌义齿承托区黏膜充血发红。假如上述检查无异常发现,最有助于快速诊断的是
关于子宫腺肌病的治疗,主要依据什么决定?()
依据《安全生产法》的规定,生产经营单位进行()等危险作业,应当安排专门人员进行现场安全管理,确保操作规程的遵守和安全措施的落实。
关于主、副井筒位置与工业广场位置确定的基本原则,说法正确的是()。
下列选项中,属于校内课程资源的是()。
办事员小李需要整理一份有关高新技术企业的政策文件呈送给总经理查阅。参照“示例1.jpg”、“示例2.jpg”,利用考生文件夹下提供的相关素材,按下列要求帮助小李完成文档的编排:文档的4个附件内容排列位置不正确,将其按1、2、3、4的正确顺序进行排列,但
Whatisanappropriatetitleforthispassage?Whatismentionedasadifficultyofpovertyeliminationeffortsbythepassage?
最新回复
(
0
)