首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写如下函数来判断a是否为素数,若是,则函数返回True;否则返回False Function prime(a As Integer) As Boolean Dim k As Integer,ispfime As Boolean If a<2 Then
某人编写如下函数来判断a是否为素数,若是,则函数返回True;否则返回False Function prime(a As Integer) As Boolean Dim k As Integer,ispfime As Boolean If a<2 Then
admin
2013-01-23
61
问题
某人编写如下函数来判断a是否为素数,若是,则函数返回True;否则返回False
Function prime(a As Integer) As Boolean
Dim k As Integer,ispfime As Boolean
If a<2 Then
isprime=False
Else
isprime=Tme
k=2
Do While k<a/2 And isprime
If a Mod k=0 Then
isprime=False
Else
k==k+1
End If
Loop
End If
End Function
在测试时发现有一个非素数也被判断为素数,这个错判的数是【 】。
选项
答案
4
解析
所谓素数就是指只能被1和其本身整除,不能被其他任何数整除的数。本题函数中是先将a与2比较,小于2的返回False,大于2的返回True。再用Do While…Loop循环判断大于4的数是否为素数,所以非素数4就被错判为素数了。如果将程序修改正确,那么循环的条件需要修改为k<=a/2 And isprime。
转载请注明原文地址:https://kaotiyun.com/show/uyhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下程序的功能是,从键盘上输入若干数据,统计并输出最大值和最小值,当输入负数时结束输入,请填空。DimamaxAsSingle,aminAsSinglex=InputBox("请输入数据")amax=xamin=x
在窗体上添加文本框Text1,然后编写下列程序:PrivateSubForm_Load()Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsIn
数据流图用于抽象描述一个软件的逻辑模型,数据流图由一些特定的图符号构成。下列图符号不属于数据流图的是
以下程序的功能是,产生10个0~1000的随机整数,放入数组Arr中,然后输出其中的最大值。请完善下列程序。OptionBase1PrivateSubForm_Click()DimArr(10)AsInteger
窗体上没有任何控件,编写下列程序:OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(5,2,
数据库系统与文件系统的主要区别是
下列有关测试的论述中,错误的是
函数过程F1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。以下能正确实现上述功能的代码的是______。
以下关于函数过程的叙述中,正确的是______。
随机试题
女,32岁。外阴瘙痒伴分泌物增多4~5天。妇科检查:阴道黏膜散在红色斑点,阴道内多量脓性泡沫状分泌物,有臭味。该患者最可能的诊断是()
A.中毒性结肠扩张B.肠梗阻C.二者均是D.二者均非(2004年第121题)溃疡性结肠炎较常见的并发症是
口腔检查时,不正确的医、患体位为
建筑业企业资质分为()序列。
(2011年)关于营业税计算缴纳的说法,止确的有()。
采用低正常股利加额外股利政策的优点有()。
作为领导者,光靠聪明是远远不够的。人是有感情的社会动物,对领导者的评价往往带有较强的主观色彩。高智商的领导者倾向于抽象的表达方式,难以与下属们建立共识。而那些有个人魅力,会讲故事的领导者,却可以得到超出他们实际表现的评价。 这段文字意在表明(
事中监督是指监督主体在公安机关及其人民警察执法过程中进行监督。
据最近的统计,在需要同等学历的十个不同职业中,教师的平均工资五年前排列第九,而目前上升到第六;另外,目前教师的平均工资是其它上述职业的平均工资的86%,而五年前只是55%。因此,教师工资相对偏低的状况有了较大的改善,教师的相对生活水平有了很大的提高。上述论
下列程和序段的执行结果为 x=Int(Rnd()+9) SelectCaseX Case10 Print"excellent" Case9 Print"good" Case8 Prin
最新回复
(
0
)