首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有命令按钮Command1和三个文本框Text0、Text1、Text2,命令按钮对应的代码过程如下: Private Sub Command1_Click() Dim i,f1,f2 As Integer Dim flag
在窗体中有命令按钮Command1和三个文本框Text0、Text1、Text2,命令按钮对应的代码过程如下: Private Sub Command1_Click() Dim i,f1,f2 As Integer Dim flag
admin
2018-10-18
30
问题
在窗体中有命令按钮Command1和三个文本框Text0、Text1、Text2,命令按钮对应的代码过程如下:
Private Sub Command1_Click()
Dim i,f1,f2 As Integer
Dim flag As Boolean
f1=Val(MC Text0)
f2=Val(Me!Text1)
If f1>f2 Then
i=f2
Else
i=f1
End If
flag=True
Do While i>1 And flag
If f1 Mod i=0 And f2 Mod i=0 Then
flag=False
Else
i=i-1
End If
Loop
Me!Text2=i
End Sub
运行程序,在文本框Text0和Text1中分别输入15和20,则文本框Text2中显示的结果是
选项
A、5
B、15
C、20
D、10
答案
A
解析
程序开始时,f1租f2的值分别是从文本框Text0和Text1中输入的值15和25,然后利用if语句判断f1和f2两个数的大小,变量i中存放住和f2中较小者的值,flag.初始值为true,程序进入Do While循环语句,首先判断循环条件“i>1 And flag”,结果为true,循环体中的.f语句,只有当住和f2同时能被i整除,flag才会被赋值为false,否则将变量i减1,继续进行Do-While循环的条件判断,一旦f1和f2同时能被i整除,变量flag被赋值为false,则整个循环结束,将变量i的值输出到文本框Text2中,所以只有当变量i为5时,才能同时被f1(15)和f2(25)整除。
本题程序的功能是求两个数的最大公约数,所以选项A正确。
转载请注明原文地址:https://kaotiyun.com/show/TyMp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在报表中,要计算“数学”字段的最高分,应将控件的“控件来源”属性设置为()。
下列关于自动编号数据类型的叙述中正确的是()。
下列叙述中正确的是()。
为了从用户菜单返回到默认的系统菜单应该使用命令SET【】TODEFAULT。
栈和队列的共同点是()。
以下______选项定义了10个整型数构成的数组,数组元素为NewArray(1)至NewArray(10)?
结构化程序设计主要强调的是()。
在窗体上有一个命令按钮Commandl,编写事件代码如下:PrivateSuBcormmandl_Click()DimyAsIntegery=0Doy=InputBox(“y=”)IF(yMod10)+Int(y/1
Access数据库中,为了保持表之间的关系,要求在主表中修改相关记录时,子表相关记录随之更改。为此需要定义参照完整性关系的()。
空字符串的长度为()。
随机试题
企业文化是企业全体员工在从事商品生产和经营中形成的一种意识形态,其深层的企业文化也称为【】
HCO3-和H2CO3是血液中最重要的缓冲物质,其正常比值是()
急性弥漫性腹膜炎的临床表现有
女性,咽痛3天后出现洗肉水样尿,伴乏力,无水肿。如本例有血尿,首选下列哪项检查区分血尿来源
某抑郁症患者,25岁。复发情绪抑郁、悲观厌世,认为自己是历史罪人,只有死路一条,反复自杀未遂。该患者目前首选治疗方法是
根据《侵权责任法》第32条规定:“无民事行为能力人、限制民事行为能力人造成他人损害的,由监护人承担侵权责任。监护人尽到监护责任的,可以减轻其侵权责任。”下列哪类侵权人的责任由其监护人承担:
注册会计师通常依据各类交易、账户余额和披露的相关认定确定审计目标,根据审计目标设计审计程序。以下给出了采购交易的审计目标,并列举了部分实质性程序。(1)审计目标A.所记录的采购交易已发生,且与被审计单位有关。B.所有应当记录的采购交易均已
A、 B、 C、 D、 B每组图中第1,第3个图形上部图形外形不同但内部相同,下部图形相同,所以选择B。
在因特网中,文件传输服务采用的工作模式为【 】模式。
WhenOliviawasinAustralia,whatdidshedo?
最新回复
(
0
)