首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() MsgBox f(24,18) End Sub Public Function f(m As Integer,n As I
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() MsgBox f(24,18) End Sub Public Function f(m As Integer,n As I
admin
2019-02-19
59
问题
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码:
Private Sub Command1_Click()
MsgBox f(24,18)
End Sub
Public Function f(m As Integer,n As Integer)As Integer
Do While m< >n
Do While m>n
m=m-n
Loop
Do While m<n
n=n-m
Loop
Loop
f=m
End Function
窗体打开运行后,单击命令按钮,则消息框的输出结果是
选项
A、2
B、4
C、6
D、8
答案
C
解析
本题考查VBA程序设计的知识。当调用函数时,形参m=24,n=18;然后进入循环,由于m>n,所以执行m=m-n,m的值变为6;第2次循环时由于m<n,所以执行n=n-m,n的值变为12;第3次循环时由于m<n,所以执行n=n-m,n的值变为6,此时结束循环返回6。
转载请注明原文地址:https://www.kaotiyun.com/show/EL0p777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
(1)有一个名为samp1.mdb数据库。修改职工表“employee”,增加“姓名”字段。其数据类型为文本型长度为6,并对应职工号添加其姓名,见下表。(2)判断并设置表“employee”的主键,同时将上面增加的“姓名”字段隐藏。(3)设置表“emp
在关于输入掩码的叙述中,正确的是()。
以下关于VBA运算符优先级比较,叙述正确的是()。
执行如下语句:a=InputBox(“1”,“2”,“3”)将显示一个输入的对话框,在对话框的输入区中将显示的信息是()。
不能进行索引的字段是()。
某窗体中有一命令按钮,在“窗体视图”中单击此命令按钮,运行另一个应用程序。如果通过调用宏对象完成此功能,则需要执行的宏操作是()。
在考生文件夹下有一个数据库文件“samp2.mdb”,里面已经设计好两个表对象“认”和“tB”,请按以下要求完成设计。(1)创建一个查询,查找并显示所有客人的“姓名”、“房间号”、“电话”和“人住日期”4个字段的内容,将查询命名为“qT1”。
在窗体中有一个文本框Text1,编写事件代码如下:PrivateSubForm_Click()X=val(Inputbox(“输入x的值”))Y=1IfX0ThenY=2Text1.Value=Y
在Access中为窗体上的控件设置[Tab]键的顺序,应选择“属性”对话框的()。
运动会中一个运动项目可以有多名运动员参加,一个运动员可以参加多个项目。则实体项目和运动员之间的联系是
随机试题
实际上普通话和方言不是同一层次上的交际工具。普通话是全民共同语,是官方语言,而方言是区域性的,是民间语言。通过明确________,普通话和方言可以做到并行不悖,甚至________,相得益彰。填入横线处的词语最恰当的一项是:
睾丸的主要功能是
在高寒冰冻地区,()是评价岩石工程性质的一个重要指标。
根据《建设工程工程量清单计价规范》的规定,关于幕墙工程量的计算,下列说法错误的是()。
建筑防爆基本措施中的减轻性技术措施有哪些?
ERP在会计电算化中指()。
在编制企业预算时,应采用的编制程序是()。
条件充分性判断:A.条件(1)充分,但条件(2)不充分B.条件(2)充分,但条件(1)不充分C.条件(1)和(2)单独都不充分,但条件(1)和(2)联合起来充分D.条件(1)充分,条件(2)也充分E.条件(1)和(2)单独都不充分,条件(1)和(
设三阶矩阵A的特征值为λ1=一1,λ2=2,λ3=4,对应的特征向量为ξ1,ξ2,ξ3,令P=(一3ξ2,2ξ1,5ξ3),则P-1(A*+2E)P等于().
61)Itishardtopredicthowscienceisgoingtoturnout,andifitisreallygoodscienceitisimpossibletopredict.Ifthe
最新回复
(
0
)