首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体中有文本框Text1和标签Label1。运行程序,输入大于0的整数m,单击按钮Command1,程序判断m是否为素数,若是素数,则Label1显示"m 是素数",否则显示"m 是合数"。事件代码如下: Private Sub Command1_Clic
窗体中有文本框Text1和标签Label1。运行程序,输入大于0的整数m,单击按钮Command1,程序判断m是否为素数,若是素数,则Label1显示"m 是素数",否则显示"m 是合数"。事件代码如下: Private Sub Command1_Clic
admin
2020-11-25
90
问题
窗体中有文本框Text1和标签Label1。运行程序,输入大于0的整数m,单击按钮Command1,程序判断m是否为素数,若是素数,则Label1显示"m 是素数",否则显示"m 是合数"。事件代码如下:
Private Sub Command1_Click()
m = Val(Me!Text1)
result = m & " 是素数"
k = 2
Do While k <= m / 2
If m Mod k = 0 Then
result = m & " 是合数"
【 】
End If
k = k + 1
Loop
Me!Label1.Caption = result
End Sub
程序【 】处应填写的语句是
选项
A、Exit
B、Exit Loop
C、Exit While
D、Exit Do
答案
D
解析
本题是考察输入的m是否为素数,素数是指除了1和它本身之外没有别的约数,所以在while循环里只要m对k不能整除,说明k不是m的约数,否则M有小于本身的约数就不是素数,下面就不用再判断了,直接跳出DO循环。DO…while退出时,用Exit do。因此,本题应选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/I6Sp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
考生文件夹下存在一个数据库文件“samp2.accdb”,里面已经设计好“tStud”“tCourse”“tScore”三个关联表对象和一个临时表“tTemp”及一个窗体“fTmp”。试按以下要求完成设计:(1)创建一个查询,查找并显示没有运动爱
在考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tTeacher”、窗体对象“frest”,报表对象“rTeacher”和宏对象“m1”。试在此基础上按照以下要求补充窗体设计和报表设计:(1)将报表对象rTeac
在考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”、窗体对象“fSys”和报表对象“rStud”。请在此基础上按照以下要求补充“fSys”窗体和“rStud”报表的设计:(1)在“rStud”报表的报表
在考生文件夹下,“samp1.accdb”数据库文件中己建立表对象“tNorm”。试按以下操作要求,完成表的编辑:(1)根据“tNorm”表的结构,判断并设置主键。(2)将“单位”字段的默认值属性设置为“只”、字段大小属性改为1;将“最
如果要求查询在运行时能够接受从键盘输入的查询参数,进行查询设计时,“输入参数值”对话框的提示文本在“设计网格”中应设置在()。
对于现实世界中事物的特征,在实体联系模型中使用()。
在Access数据库中创建一个新表,应该使用的SQL语句是()。
Access中,没有数据来源的控件类型是()。
从多个关系中抽取出所需要的属性组成新关系,应使用的操作是()。
一个兴趣班可以招收多名学生,而一个学生可以参加多个兴趣班。则实体兴趣班和实体学生之间的联系是
随机试题
治疗肾气亏虚型佝偻病的代表方是
定义的方法包括:()、()、示例定义、枚举定义、递归定义。
脐静脉插管的适应证包括
25岁,孕1产1,由于滞产压迫致尿瘘,漏尿开始出现时多是在:
早期食管癌的X线表现是
有关流行性出血热的描述下列哪项是错误的( )。
根据《行政诉讼法》的规定,因不动产提起的行政诉讼,由()管辖。
[A]Thefirstandmoreimportantistheconsumer’sgrowingpreferenceforeatingout:theconsumptionoffoodanddrinkinplac
quitenoisy
(1)WhencatastrophicfloodshitBangladesh,TNT’semergency-responseteamwasready.Thelogisticsgiant,withheadquartersin
最新回复
(
0
)