首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有一个命令按钮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
2021-06-03
46
问题
在窗体中有一个命令按钮Command1,三个文本框Text0、Text1个Text2,命令按钮对应的代码过程如下:
Private Sub Command1_Click( )
Dim i, f1, f2 As Integer
Dim flag As Boolean
fl = Val(Me! Text0)
f2 = VaI(Me! Text1)
If f1 > f2 Then
1 = f2
Else
1 = 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和25,单击按钮后文本框Text2中显示的结果是( )。
选项
A、5
B、10
C、15
D、25
答案
A
解析
Text0中输入15,Text1中输入25,分别赋值给变量f1和f2,使用If—Else语句将f1和f2中较小的值赋给变量i;Do while … Loop循环语句的执行过程是:如果条件为真( True),则执行语句块,当执行到Loop语句时,将返回到While语句并对“条件”再次进行判断,如果仍为真(True),则重复前述过程。如果条件为假( False),则不执行语句块,而执行Loop之后的语句,本题中使用变量i和标志变量flag作为循环的条件,当i>1并且flag为true时,循环执行,循环体中使用If—Else语句,只有当fl或f2被i整除时,置标志变量flag为false,则循环结束,否则将变量i减1,循环执行结束时变量i中保存f1和f2的最大公约数,所以本题的结果为5,故本题选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/Bzvp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
下列关于DROPTABLE语句功能的描述中,正确的是
在学生表中使用“照片”字段存放相片,当使用向导为该表创建窗体时,照片字段使用的默认控件是
下列选项中,不属于Access内置函数的是
下列关于货币数据类型的叙述中,错误的是
“学生表”中有“学号”“姓名”“性别”和“入学成绩”等字段。执行如下SQL命令后的结果是()。SelectAvg(入学成绩)From学生表GroupBy性别
在Access数据库中创建一个新表,应该使用的SQL语句是
在结构化程序设计中,模块划分的原则是()。
下列程序的功能是输出100到200间不能被3整除的数,程序空白处应填写的语句是PrivateSubCommmandl_Click()DimXAsIntegerx=100DoUntilx_________
设表的长度为n。在下列结构所对应的算法中,最坏情况下时间复杂度最低的是
在"用户表"中有4个字段:用户名(文本型,主关键字),密码(文本型),登录次数(数字型),最近登录时间(日期/时间型)。在"登录界面"的窗体中有两个名为tUser和tPassword的文本框,一个登录按钮 Command0。进入登录界面后,用户输入用户名和
随机试题
“狂飙突进”运动
保持感光效应不变,摄影距离增加1倍,则管电流量应为原来的
砂仁的功效是白豆蔻的功效是
由于垂体异常所导致的甲减,首选的治疗药物是
( )是征税对象在内容上的具体化,它体现具体的征税范围。
有配偶而重婚的,或者明知他人有配偶而与之结婚的,处2年以下的有期徒刑或者拘役。据此可知()。
如果一名学生的生理年龄为10岁,而智力年龄为11岁,那么他的智商是()。
按照晏阳初的化农民与农民化主张能够彻底解决农民问题。
WhichofthefollowingisnotthemajornewspaperormagazineintheU.S.A.?
It’shightimewe_________cuttingdowntherainforests.
最新回复
(
0
)