首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(ByVal aura As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10):n
有如下程序: Function fun(ByVal aura As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10):n
admin
2020-04-18
22
问题
有如下程序:
Function fun(ByVal aura 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/bMTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列不能作为“容器”(即可以在其中放置其他控件)的是()。
负责数据库中查询操作的数据库语言是()。
在窗体上画一个组合框,一个命令按钮和一个文本框,其名称分别为Combol,Command1和Text1,然后编写如下事件过程:PrivateSubForm_Load()Combol.AddItem"AAAAA"Combol
在文本框中,要设置显示的文本颜色,应该设置()属性。
现有表示患者和医疗的关系如下:P(P#,Pn,Pg,By),其中P#为患者编号,Pn为患者姓名,Pg为性别,By为出生日期,Tr(P#,D#,Date,Rt),其中D#为医生编号,Date为就诊日期,Rt为诊断结果。检索在1号医生处就诊的病人姓名的表达式是
要求当鼠标在图片框Picturel中移动时,立即在图片中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是()。
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动"按钮,则将数组a中的最大值移动到数组的最前面,其他
在面向对象方法中,不属于“对象”基本特点的是()。
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示"打开"对话框时,希望在该对话框的"文件类型"栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为( )。
请根据以下各小题的要求设计Visual.Basic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画出包含三个命令按钮的控件数组,名称为cmdl,下标分别为0、1、2,Caption分别为“开始”、“停止”和“退出”,如图3(a)所示
随机试题
安溪铁观音的品质特点:外形条索(),呈青蒂绿腹蜻蜓头状。
都城过百雉,国之害也。(《左传·郑伯克段于鄢》)
委托书授权不明的()
下列选项中,急性胰腺炎患者术前护理措施不包括()。
按照工程监理规范的相关要求,监理工程师在对建设工程实施监理时,应当采取的形式有()。
单一证券的系统风险是由下列哪项来衡量的?
如图,曲线C1是以原点O为中心,F1,F2为焦点的椭圆的一部分,曲线C2是以O为顶点,F2为焦点的抛物线的一部分,A是曲线C1和C2的交点且∠AF2F1为钝角,若.设点C是C2上一点;若|CF1|=|CF2|,求△CF1F2的面积.
作为一名优秀培训师,如果能够具备较扎实的专业素养和基本的社会交往能力,或者是在培训市场上能够做出适合自己的选择,那么,就不可能找不到自己的位置。张某是一名优秀培训师,他没有找到工作职位,那么根据上述观点能够推出以下哪项结论?
新民主主义革命必须由无产阶级领导,这是()
Mostofthepeoplewhoappearmostoftenandmostgloriouslyinthehistorybooksaregreatconquerorsandgeneralsandsoldiers
最新回复
(
0
)