首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码: Private Sub Commandl_Click() MsgBox f(24 ,18) End Sub Public Function f(m As Integer,
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码: Private Sub Commandl_Click() MsgBox f(24 ,18) End Sub Public Function f(m As Integer,
admin
2020-07-17
60
问题
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:
Private Sub Commandl_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—m
Loop
Loop
f=m
End Function
窗体打开运行后,单击命令按钮,则消息框的输出结果是( )。
选项
A、2
B、4
C、6
D、8
答案
C
解析
题目中命令按钮的单击事件是使用Msg—Box显示过程f的值。在过程f中有两层Do循环,传人参数m= 24,n=18,由于m>n所以执行m=m —n =24 —18 =6.内层第1个Do循环结束后m=6,n=18;此时m小于n,所以再执行n=n—m=18 —6=12,此时m=6,n=12;再执行n=n—m后m=n=6;m< >n条件满足,退出循环,然后执行f=m的赋值语句,即为f=m=6。
转载请注明原文地址:https://kaotiyun.com/show/1Xcp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在考生文件夹下,“sampl.accdb”数据库文件中己建立两个表对象(名为“员工表”和“部门表”)。试按以下要求,完成表的各种操作:(1)分析两个表对象“员工表”和“部门表”的构成,判断其中的外键,并将外键字段名称存入所属表的属性说明中。
考生文件夹下存在一个数据库文件“sam03.accdb”,里面已经设计好表对象“tUser”,同时还设计出窗体对象“fEdit”和“fLlser”。请在此基础上按照以下要求补充“fEdit”窗体的设计:(1)将窗体中名称为“IRemark”的标签
考生文件夹下存在一个数据库文件“samp2.accdb”,里面已经设计好“tCourse”、“tGrade”、“tStudent”三个关联表对象和一个空表“tTemp”,试按以下要求完成设计:(1)创建一个查询,查找并显示含有不及格成绩的学生的“
学生选修课程的关系模式为SC(S群,Sn,Sd,Sa,C#,G)(其属性分别为学号、姓名、所在系、年龄、课程号和成绩);C(C#,Cn,P#)(其属性分别为课程号、课程名、先选课)。关系模式中包含对主属性部分依赖的是
学生选课成绩表的关系模式是SC(S#,C#,G),其中S#为学号,C#为课号,G为成绩,学号为20的学生所选课程中成绩及格的全部课号为
现有表示患者和医疗的关系如下:P(P#,Pn,Pg,By),其中P#为患者编号,Pn为患者姓名,Pg为性别,By为出生日期,Tr(P#,D#,Date,Rt),其中D#为医生编号,Date为就诊日期,Rt为诊断结果。检索在1号医生处就诊的男性病人姓名的表达
为窗体中的命令按钮设置单击鼠标时发生的动作,应选择设置其属性对话框的
随机试题
含硫油品的沉积物为什么会自燃?
心理学通常以人们掌握概念的途径不同将概念分成日常概念和
患者空腹血糖11.1mmol/L(200mg/dl),尿糖阳性,多食、多饮、多尿。患者尿量增多的原因是
下列不属于X线管电参数的是
下列不属于基金客户服务的原则的是()。
根据公司法律制度的规定,下列选项中,属于上市公司监事会职权有()。(2002年)
全陪导游员要根据旅游团的不同类型和实际需要准备相关知识,了解和充实客源国(地)的()等方面的知识。
项目范围说明书说明了为什么要进行这个项目,明确了项目目标和主要可交付成果,是项目实施的重要基础。项目和子项目都要编写范围说明书。一般来说,项目范围说明书要由项目团队来写。项目范围说明书是项目团队和项目委托方双方签订协议的基础,项目利益相关者通过项目范围说明
[*]
有如下程序代码:PrivateSubForm_Click()DimxAsInteger,yAsInteger,BumAsIntegerX=3y=xDoUntilx>=6num
最新回复
(
0
)