首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有一个命令按钮Command1,三个文本框Text0、Text1个Text2,命令按钮对应代码过程如下: Private Sub Command1_Click() Dim i,f1,f2 As Integer:Dim flag As
在窗体中有一个命令按钮Command1,三个文本框Text0、Text1个Text2,命令按钮对应代码过程如下: Private Sub Command1_Click() Dim i,f1,f2 As Integer:Dim flag As
admin
2017-10-24
56
问题
在窗体中有一个命令按钮Command1,三个文本框Text0、Text1个Text2,命令按钮对应代码过程如下:
Private Sub Command1_Click()
Dim i,f1,f2 As Integer:Dim flag As Boolean
f1=Val(Me!Text0)
f2=Val(Me!Textl)
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和Textl中分别输入15和25,单击按钮后文本框Text2中显示的结果是
选项
A、5
B、10
C、15
D、25
答案
A
解析
程序开始时,f1和f2的值分别是从文本框。Text0和Textl中输入的值15和25,然后利用if语句判断f1和f2两个数的大小,变量i中存放f1和f2中较小者的值,-flag初始值为true,程序进入Do While循环语句,首先判断循环条件“i>1 And flag”,结果为true,循环体中的if语句,只有当f1和f2同时能被i整除,flag才会被赋值为false,否则将变量i减1,继续进行Do While循环的条件判断,一旦f1和f2同时能被i整除,变量flag被赋值为false,则整个循环结束,将变量i的值输出到文本框Text2中,所以只有当变量i为5时,才能同时被住(15)和f2(25)整除,本题程序的功能是求两个数的最大公约数,故选项A正确。
转载请注明原文地址:https://kaotiyun.com/show/YhMp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
栈底至栈顶依次存放元素A、B、C、D,在第五个元素E入栈前,栈中元素可以出栈,则出栈序列可能是______。
如图9-7所示的报表的类型是图9-7“学生信息输出”报表
定义了二维数组B(2to6,4),则该数组的元素个数为______。
要实现报表按某字段分组统计输出,需要设置______.
一个向量第一个元素的存储地址是100,每个元素的长度为2,则第5个元素的地址是()。
Access数据库中,为了保持表之间的关系,要求在主表中修改相关记录时,子表相关记录随之更改。为此需要定义参照完整性关系的()。
若某链表最常用的操作是在最后一个结点之后插入一个结点和删除最后一个结点,则采用______存储方式最节省时间。
当文本框中的内容发生改变时,触发的事件名称是()。
度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为______。
随机试题
其中D由y=x,y=0,x2+y2=π2及x2+y2=π2/4所围成的第一象限部分.
________是社会主义经济制度的基础。
滴虫阴道炎患者,经过治疗后现无自觉症状,欲自行停药。护士告知该病的治愈标准为
女,42岁,月经量增多5年,痛经并进行性加重3年,G2P1。妇科检查:经产型外阴,宫颈光滑,子宫均匀性增大,如孕3月,活动度差,质韧,有压痛。若术中探查发现除子宫球形均匀增大、右侧卵巢子宫内膜异位囊肿外,盆壁腹膜表面见较多紫蓝色结节,术后还应该
血凝块回缩的主要原因是
A.贴剂B.凝胶贴膏C.膏药D.橡胶贴膏E.软膏剂除另有规定外,要求检查释放度的剂型是()
当发生裁决被人民法院依法裁定撤销或者不予执行的情形时,下列说法不正确的是哪几项?()
“多一把衡量的尺子,就多一批好学生。”请联系教育学、教育心理学知识进行论述。(烟台莱山)
A、 B、 C、 D、 C确认图片内容为两位男士在一个拱道下面迎面遇到的画面。
Athirdlikelyexplanationforinfantileamnesiainvolvesincompatibilitiesbetweenthewaysinwhichinfantsencode’informatio
最新回复
(
0
)