首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有一个命令按钮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
2021-04-07
44
问题
在窗体中有一个命令按钮Command1,两个文本框Text0和Text1,按钮Command1对应的代码过程如下:
Private Sub Command1_Click()
Dim m,k As Integer
Dim flag As Boolean
m=Val(Me!TextO)’输入一个整数
Do While 1
k=2
flag=True
D0 While k<=m/2 And flag
If m Mod k=0 Then
flag=False
Else
k=k+1
End If
Loop
If flag Then
Me!Text1=m’输出计算结果
Exit De
Else
m=m+1
End If
Loop
End Sub
运行程序,输入12,单击按钮,程序的输出结果是( )。
选项
A、13
B、12
C、11
D、其他整数
答案
A
解析
根据题目要求,输入一个整数赋值给m;外层Do While循环条件设置为“1”,表示循环条件永远为“真”,第一次执行循环语句时:k=2;flag:true;内层D0 While k<=m/2 And flag循环条件为true,进入内层循环的循环体语句,if m mod k=0条件为真,执行flag=false语句,内层循环体语句执行结束,然后判断第二次执行的循环条件Do While k<=m/2 And flag循环条件为false,内层循环结束,进入外层循环语句if flag判断条件为false,执行语句m=m+1,m的值为13;继续进行外层循环,第二次执行循环语句时:k=2;flag=false;内层Do While k<=m/2 And flag循环条件为false,内层循环不执行,进入外层循环语句if flag判断条件为true,执行语句Me!Text1=m,文本框Text1中显示的内容为13,然后执行exit do语句,结束整个循环,所以最终程序输出的结果为13。故选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/k3Sp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。设置表对象“tEmp”中“聘用时间”字段的有效性规则为:200
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计好表对象“tBorrow”、“tReader”和“tBook”,查询对象“qT”,窗体对象“fReader”,报表对象“rReader”和宏对象“rPt”。请在此基础上按以下要求补充设计
考生文件夹下存在一个数据库文件“samp3.accdb",里面已经设计好表对象“tBorrow”、“tReader”和“tBook”,查询对象“qT”,窗体对象“fReader”、报表对象“rReader”和宏对象“rpt”。请在此基础上按照以下要求补充设
考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tCollect”,查询对象“qT”,同时还设计出以“tCollect”为数据源的窗体对象“fCollect”。试在此基础上按照以下要求补充窗体设计:将窗体标题栏上的显示文
在考生文件夹下有一个数据库文件“samp2.accdb”,里面已经设计好了两个表对象“tNorm”和“tStock”。请按以下要求完成设计。创建一个查询,按输入的产品代码查找其产品库存信息,并显示“产品代码”、“产品名称”和“库存数量”。当运行该查询时
若要将“产品”表中所有供货商是“ABC”的产品单价下调50,则正确的SQL语句是
以下选项中表示定义了10个整型数构成的数组,数组元素为NewArray(1)至NewArray(10)的是()。
在使用报表设计器设计报表时,如果要统计报表中某个字段的全部数据,应将计算表达式放在
VBA中,将字符代码转换为对应字母的函数是
下列表达式计算结果为日期类型的是()。
随机试题
Shellyhadpreparedcarefullyforherbiologyexaminationsothatshecouldbesureofpassingitonherfirst______.
妊娠忌用的中成药是()。
塔式起重机上必备的安全装置有哪些?
沉降位移观测点的要求。
甲汽车租赁公司拟购置一批新车用于出租,现有两种投资方案,相关信息如下:方案一:购买中档轿车100辆,每辆车价格10万元,另需支付车辆价格10%的购置相关、税费。每年平均出租300天,日均租金150元/辆,车辆可使用年限8年,8年后变现价值为0,前5年每年
地陪小陈接待一旅游团在A市游览,原计划5月5日16点旅游团乘飞机离开A市到B市,5月4日小陈接到通知。因机票问题该团必须提前乘坐5月5日10点的航班离开A市到B市。5月5日8点当小陈带游客乘旅游车快到机场时,团内一名客人焦急地告诉小陈,她的一块名贵手表遗忘
∫xcosxdx=_______。
()是班级活动的主要形式。
下面关于命令DOFORMXXNAMEYYLINKED的叙述中,()是正确的。
(中国矿业大学2010年试题)Morethan600milliongirlsliveinpovertyinthedevelopingworld.Manyofthemare【C1】______inschooland
最新回复
(
0
)