首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有一个命令按钮Command1,两个文本框Text0和Text1,按钮Command1对应的代码过程如下: Private Sub Command1_Click() Dim m,k As Integer Dim flag As Boolean m=
在窗体中有一个命令按钮Command1,两个文本框Text0和Text1,按钮Command1对应的代码过程如下: Private Sub Command1_Click() Dim m,k As Integer Dim flag As Boolean m=
admin
2018-10-20
202
问题
在窗体中有一个命令按钮Command1,两个文本框Text0和Text1,按钮Command1对应的代码过程如下:
Private Sub Command1_Click()
Dim m,k As Integer
Dim flag As Boolean
m=Val(Me!Text0)’输入一个整数
Do While1
k=2
flag=True
Do、While k<=m/2And flag
Ifm Mod k=0Then
flag=False
Else
k=k+1
End If
Loop
If flag Then
Me!Textl=m’输出计算结果
Exit Do
Else
m=m+1
End If
Loop
End Sub
运行程序,输入12,单击按钮,程序的输出结果是
选项
A、13
B、12
C、11
D、其他整数
答案
A
解析
根据题目要求,输入一个整数赋值给m;外层D0wMe循环条件设置为“1”,表示循环条件永远为“真”,第一次执行循环语句时:k=2;flag=true;内层Do While k<=m/2And flag循环条件为true,进入内层循环的循环体语句,if m mod k=0条件为真,执行flag=false语句,内层循环体语句执行结束,然后判断第二次执行的循环条件Do While k<=m/2And flag循环条件为false,内层循环结束,进入外层循环语句if flag判断条件为fafse,执行语句m=m+1,m的值为13;继续进行外层循环,第二次执行循环语句时:k=2;flag=false;内层Do While k<=m/2And flag循环条件为false,内层循环不执行,进入外层循环语句if flag判断条件为true,执行语句Me!Text1=m,文本框Text1中显示的内容为13,然后执行exit do语句,结束整个循环,所以最终程序输出的结果为13,选项A正确。
转载请注明原文地址:https://kaotiyun.com/show/4uMp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
【】是窗体上用于显示数据、执行操作、装饰窗体的对象。
下列数据结构中,能用二分法进行查找的是()。
可以设置分组字段、显示分组统计数据的报表是()。
若要在子过程Procl调用后返回两个变量的结果,下列过程定义语句中有效的是()。
如果设置报表上某个文件框的控件来源属性为“=2*3+l”,则打开报表视图时,该文本框显示信息是______.
在SQL查询中,若要取得“学生”数据表中的所有记录和字段,其SQL语法为()。
通常把用户的要求转变成_____________的过程叫做软件开发过程。
For.....Next语句的使用格式为()。
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数独立性最高的阶段是______。
随机试题
美国公务员的录用考试比较注重考察应试者的()
细菌的侵袭力不包括
A.等容收缩期B.快速射血期C.快速充盈期D.减慢射血期E.等容舒张期左心室内压最低是()
药品批发企业购进药品应
某公路工程土方工程中,承包商没有在合同标明有松软石的地方遇到松软石,因此,工期提前1个月。但在另一合同中未标明坚硬岩石的地方遇到更多的坚硬岩石,开挖工作变得更加困难,工期因此拖延了5个月。由于工期拖延,使得施工不得不在雨季进行,按一般公认标准推算,影响工期
我国《企业会计准则》和《企业会计制度》规定,企业会计核算应当以()为基础。
预计利润表的编制依据不包括()。
Thenewly-builtcare,thewallsof______arepaintedlightgreen,isreallyapeacefulplaceforus,especiallyafterhardwork
exacerbate
InthispartoftheReadingsection,youwillread2passages.Youwillhave40minutestoreadthepassagesandanswertheques
最新回复
(
0
)