首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写如下函数来判断a是否为素数,若是,则函数返回True;否则返回False。 Function prime(a As Integer)As Boolean Dim k As Integer,isprime As Boolean If a<2Then
某人编写如下函数来判断a是否为素数,若是,则函数返回True;否则返回False。 Function prime(a As Integer)As Boolean Dim k As Integer,isprime As Boolean If a<2Then
admin
2017-03-26
59
问题
某人编写如下函数来判断a是否为素数,若是,则函数返回True;否则返回False。
Function prime(a As Integer)As Boolean
Dim k As Integer,isprime As Boolean
If a<2Then
isprime=False
Else
isprime=True
k=2
Do While k<a/2And isprime
If a Mod k=0Then
isprime=False
Else
k=k+1
End If
Loop
End If
prime=isprime
End Function
在测试时发现有1个非素数也被判断为素数,这个错判的数是( )。
选项
A、0
B、1
C、4
D、6
答案
C
解析
本题考查循环的运行。如果输入的数据小于2,那么肯定不是素数,更改isprime的值为False。如果数据大于等于2,当等于2时,isprime为True,同时k<a/2不成立,a为2时为素数,当a为4时,k<2不成立,则误判断4也是素数,因此不符合素数的定义。
转载请注明原文地址:https://kaotiyun.com/show/QmGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于栈的描述中错误的是______。
属性窗口分为4个部分,这4个部分分别是______。
假定窗体的名称为Form1,对该窗体编写如下代码:PrivateSubForm_Load()Form1.Caption="计算机"Me.Caption="等级"Caption="考试"EndS
要使目录列表框(名称为Dir1)中的目录随着驱动器列表框(名称为Drive1)中所选择的当前驱动器的不同而同时发生变化,则应:
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度:1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTyPeAngKAsIntegerSinxAsSin
数据结构作为计算机的一门学科,主要研究数据的逻辑结构、对各种数据结构进行的运算,以及()
关系数据库管理系统能实现的专门关系运算包括______。
以下合法的VisualBasic标识符是
在程序运行期间可以将图形装入窗体、图片框或图像框的函数是
随机试题
检察院直接受理属于国家机关工作人员利用职权实施的其他重大犯罪案件,必须符合下列条件
应用利尿剂期间观察内容包括
患儿2个月,男。因生后20天起,进食进水均易吐入院。起病以来食欲好,大小便正常,未经诊治,查血总蛋白45g/L(4.5g/dl),白蛋白25g/L(2.5g/dl)。最易出现的是
A、柴胡疏肝散B、趁痛散C、调肝汤D、膈下逐瘀汤E、一贯煎治疗绝经综合征肾虚肝郁证,应首选
患者,女,52岁,因患慢性阿米巴痢疾入院,医嘱用2%小檗碱灌肠治疗。灌肠后药液应保留()
采用普通程序开庭审理民事纠纷过程中,准备开庭后正确的审理顺序是()。
《荷塘月色》原文这几天心里颇不宁静。今晚在院子里坐着乘凉,忽然想起日日走过的荷塘,在这满月的光里,总该另有一番样子吧。月亮渐渐地升高了,墙外马路上孩子们的欢笑,已经听不见了;妻在屋里拍着闰儿,迷迷糊糊地哼着眠歌。我悄悄地披了大衫,带土门出去。
某保险公司开设一种人寿险:投保人逐年缴纳一定保费至60岁时可获得20万元保险金,保费随起保年龄的增长而增加。41岁的某甲精心计算后发现,若从46岁起投保,可最大限度降低保费,遂在向保险公司投保时谎称自己46岁。3年后保险公司发现某甲申报年龄不实。对此,保险
张教授:上个世纪80年代以来,斑纹猫头鹰的数量急剧下降,目前已有濒临灭绝的危险。木材采伐公司应对此负有责任,它们大量采伐的陈年林区是猫头鹰的栖息地。李研究员:斑纹猫头鹰数量的下降不能归咎于木材采伐公司。近30年来,一种繁殖力更强的条纹猫头鹰进入陈年林区,
WhatisMr.Bush’smainpurposeofthetrip?
最新回复
(
0
)