首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() MsgBox f(24,18) End Sub Public Function f(m As
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() MsgBox f(24,18) End Sub Public Function f(m As
admin
2013-02-04
36
问题
在窗体中添加一个名称为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>n,由于24>18,所以循环继续执行。m=m-n=24-18=6,此时m<n,条件不成立,退出第一个内循环。接着执行第二个内循环:首先判断m<n,条件符合,循环继续执行,n=n-m=18-6=12,此时n>m,第二个内循环的条件仍然符合,再次执行,n=n-m=12-6=6,此时,m=6,n=6,条件表达式的值为假,退出第二个内循环,再判断外层循环的条件m<>n,此时,条件表达式m<>n的值为假,退出外层循环,循环结束。函数的返回值为6,所以单击命令按钮,则消息框的输出结果是6。
转载请注明原文地址:https://kaotiyun.com/show/C0up777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在VisualFoxPro的表单设计中,为表格控件指定数据源的属性【】。
DAO模型层次中处在最项层的对象是______。
定义了二维数组A(2to5,5),则该数组的元素个数为______。
进入标准模块的方法有______。
数据库管理系统常见的数据模型有层次模型、网状模型和______三种。
二维表由行和列组成,每一行表示关系的一个______。
数据库概念设计的过程中,视图设计一般有三种设计次序,以下各项中不对的是______。
一棵树按照左子女一右兄弟表示法转换成对应的二叉树,则该二叉树中树根结点肯定没有【】子女。
下列关于模块的叙述中,错误的是()。
一棵二叉树十共有70个叶子结点与80个度为1的结点,则该二叉树中的总结点数为()。
随机试题
求过点A(1,0,-1)且分别满足下列条件的平面方程:(1)又过点B(2,1,-3),及B(-1,2,1);(2)又过点B(2,1,-3),且平行向量c={-1,2,1}:(3)平行于向量B={2,1,-3}及c=(-1,2,
急性白血病进入缓解期后,哪种疗法可以更好地消灭体内残存的白血病细胞()
成骨型骨肉瘤
同定资产清理的净损失,若属于自然灾害原因造成的损失,应()。
()是保税货物通关程序中向海关办理的第一个手续,是保税业务的开始,也是经营者与海关建立承担法律责任和履行监管职责的法律关系的起点。
张某犯A罪应判处13年有期徒刑,同时犯B罪、C罪分别应判处7年有期徒刑和11年有期徒刑。则下列各项中,决定执行的刑期符合规定的有()。
2016年甲公司有关待执行合同资料如下:2016年12月,甲公司与乙公司签订一份产品销售合同,约定在2017年2月底以每件1.2万元的价格向乙公司销售3000件Y产品,违约金为合同总价款的20%。2016年12月31日,甲公司已生产产品3000件并验收
Excerpt1:Salesofe-readerssurgedduringtheChristmasholidayseason,accordingtoaPewResearchCenterreport,whichs
HotcontroversyhasbeenarousedonthereportthatatanAmericanspokenEnglishtrainingcenterforchildren,studentswereta
A、Takingavacationabroad.B、Reviewingforhislastexam.C、Savingenoughmoneyforarainyday.D、Findingabetterwaytoearn
最新回复
(
0
)