首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
34
问题
有如下程序:
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全国计算机二级
相关试题推荐
下列操作中不能向工程中添加窗体的是()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画两个名称分别为Label1、Label2,标题分别为“开始位置”、“选中字符数”的标签;画三个文本框,名称分别为txtlnput、txtBegin
在考生文件夹下有一个工程文件sjt5.vbp,其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。要求:请去掉程序中的注
在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时,选中List1中若干个列表项,如图3-138(a)所示,单击“选中”按钮则把选中的项目移到List2中;单击“显示”按钮,则在Text1
在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Form1的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个名称为CmdChange、标题为“改变颜色”的命令按钮,窗体标题为“设置窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个标签,其名称为Labell,标题为“等级考试”,BorderStyle属性为1,可以根据标题自动调整大小;然后再画一个命令按钮,其名称和标题均
下面的程序运行时,单击窗体后,窗体上显示的结果是()。PrivateSubForm_Click()Dima(1To6)AsIntegerDimminl%,i%,j%,n%,t%,k%a(1)=8
下列说法中错误的是()。
设有如下的记录类型:PrivateTypeEmployeenumAsStringnameAsStringEndType则下列语句中正确的是()。
随机试题
以下说法不正确的是
目前临床常规应用抗-A抗-B试剂是
月最低工资标准适用于()。
甲公司是我国的一家建筑企业。随着目前建筑企业面临的激烈的竞争,甲公司计划全方位优化企业的资本结构、投资决策等。(1)公司目前的长期资本均为普通股,无优先股。股票的账面价值为3000万元。预计未来每年EBIT为600万元,所得税税率为25%。公司认为目前的
物业服务合同在物业管理活动中非常重要,维护各方在物业管理活动中的合法权益的内容不包括()
事业单位人事制度改革的基本思路是()。
假如你是机关工作人员,单位要召开一次关于“安全生产突击检查”的新闻发布会。领导让你负责这次发布会,你怎么办?
下图有2个二叉树,左边描述了一个三年期零息债券价格,右边描述短期利率,每个期间价格或利率上移的概率为50%,如果该债券上附加一个卖出期权,行权时间是t=1,行权价格是0.83。该带有卖出期权的债券价格是多少?
党的思想路线的基本内容是
A.ThemayorofManchesterisawoman.B.ThereisamayorinManchester.Whatisthesemanticrelationofthesetwosentences?
最新回复
(
0
)