首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有一个命令按钮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
27
问题
在窗体中有一个命令按钮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://jikaoti.com/ti/dDC0FFFM
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计好表对象“tBorrow”、“tReader”和“tBook”,查询对象“qT”,窗体对象“fReader”,报表对象“rReader”和宏对象“rPt”。请在此基础上按以下要求补充设计
在考生文件夹下,存存一个数据库文件“samp1.accdb”,里面已经设计好表对象“tStud”。请按照以下要求,完成对表的修改。设置“性别”字段的默认值为“女”;设置“性别”字段值的输入方式为从下拉列表中选择“男”或“女”选项值。
在考生文件夹下,存在两个数据库文件和一个照片文件,数据库文件名分别为“samp1.accdb”和“dResearch.accdb”,照片文件名为“照片.bmp”。请按以下操作要求,完成表的建立和修改。将考生文件夹下“dResearch.accdb”数据
在考生文件夹下的“samp1.accdb”数据库文件中已建立了两个表对象(名为“员工表”和“部门表”)、一个窗体对象(名为“fTest”)和一个宏对象(名为“mTest”)。请按以下要求,按顺序完成对象的各种操作。设置相关属性,实现窗体对象(名为“fT
在考生文件夹下,“sampl.accdb”数据库文件中已建立表对象“tEmployee”。试按以下操作要求,完成表的编辑:在表结构中的“年龄”与“职务”两个字段之间增添—个新的字段:字段名称为“党员否”,字段类型为“是/否”型;删除表中职工编号为“00
在考生文件夹下有一个数据库文件“samp2.accdb”,里面已经设计好了两个表对象“tNorm”和“tStock”。请按以下要求完成设计。创建一个查询,按输入的产品代码查找其产品库存信息,并显示“产品代码”、“产品名称”和“库存数量”。当运行该查询时
考生文件夹下存在一个数据库文件“samp2,accdb”,里面已经设计好“tStud”、“tCourse”和“tScore”三个关联表对象及一个临时表对象“tTmp”。试按以下要求完成设计:创建一个查询,计算选课学生的平均分数,显示为“学号”和“平均分
结构化程序的三种基本结构是
下面过程运行之后,则变量J的值为PrivateSubFun()DimJAsIntegerJ=5DoJ=J+2LoopWhileJ>10EndSub
随机试题
________,拔剑四顾心茫然。
张某为了发展,注销了其原有的房地产经纪事务所,新成立了甲房地产经纪公司(以下简称甲公司),甲公司共有5家全资门店,5家门店具有统一的识别系统。2019年8月,甲公司在业务迅猛发展的态势下,确定了如下发展战略:(1)业务聚焦于高端住宅租赁市场;(2)业务向附
当屋架杆件在风吸力作用下由拉杆变为压杆时,其允许长细比为()。
根据《全国银行间债券市场金融债券发行管理操作规程》,下列说法正确的是()。[2017年9月真题]
应付账款是一种主要的商业信用形式,其特点是不必负担成本。()
设一个袋中共有n个黑球,现每次从中任意取出一球,然后放入一个白球.若如此试验n次后,袋中白球数的数学期望为a,试求第n+1次从袋中任取一球为白球的概率.
根据“歌手”表建立视图myview,视图中含有“歌手号”左边第~位是“1”的所有记录,正确的SQL语句是()。
下列给定函数中,函数fun的功能是:统计字符串中各元音字母(即A、E、I、O、U)的个数。注意:字母不分大小写。例如,输入"THIsisaboot”,则应输出是10220。请改正程序中的错误,使它能得出正确的结果。
Iappreciated_____theopportunitytostudyabroadtwoyearsago.
A、Alessonrequiresstudents’activeinvolvement.B、Studentsusuallytakeanactivepartinalecture.C、Moreknowledgeiscover
最新回复
(
0
)