首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为了验证一个正整数n(n>3)是否为素数,最直观的方法是,看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有1个名称为Text1的文本框。请根据上面的算法
为了验证一个正整数n(n>3)是否为素数,最直观的方法是,看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有1个名称为Text1的文本框。请根据上面的算法
admin
2020-07-22
77
问题
为了验证一个正整数n(n>3)是否为素数,最直观的方法是,看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有1个名称为Text1的文本框。请根据上面的算法,编写判断一个正整数是否为素数的函数prime,然后用这个函数找出200~300之间的所有素数,求出这些素数的和,将该数在文本框中显示出来,并存入文件out5.txt中。
要求:编写函数prime的代码,然后在Form Click事件过程中调用该函数,并计算素数的和。事件过程中已给出了把素数和保存到文件中的代码,考生不得修改。
注意:请务必把求得的和在文本框中显示出来,这样才能存入文件out5.txt,否则没有成绩。
选项
答案
步骤1:打开考生文件夹中的工程文件sjt5.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Function prime(ByVal n As Integer) As Boolean ’ ****** 考生编写 ****** Dim flaq As Boolean flag= IIf(n>1,True,False) For m=2 To n/2 If n Mod m=0 Then flag=False Exit For End If Next m prime=flag ’ ********************************** End Function Private Sub Form Click() ’******考生编写****** Dim sun As Integer For n=200 To 300 If prime(n) Then Sum=Sum+n End If Next n Text1.Text=Sum ’ ************************ Open App.Path &"\out5.txt"For Output As #1 Print #1,Text1.Text Close 1 End Sub 步骤2:按
键运行程序,单击各个按钮测试验证。 步骤3:按要求将文件保存至考生文件夹中。
解析
题目要求计算200~300之间的素数和,可通过一个循环来实现,在循环里面逐个判断200~300之间的数是否为素数,如果是计算累加和。
函数prime用来判断输入参数n是否为素数,方法是2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。设计程序的时候,通过循环来实现,循环变量m从2开始,循环结束条件为n/2,Step为1,如果n mod m为0,表示m将n整除,n不是素数。
转载请注明原文地址:https://kaotiyun.com/show/kgHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于图片框、图像框的叙述中,正确的是
以下能够触发文本框Change事件的操作是()。
下列关于窗体的描述中,错误的是()。
下列叙述中正确的是()。
窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下:PrivateSubCommand1_Click() DimpAsInteger p=m(1)+m(2)+m(3) PrintpEndSubPrivate
下列叙述中正确的是
在利用菜单编辑器设计菜单时,为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键,可以将该菜单项的标题设置为
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是
在考生目录下有一个工程文件vbsj5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写
下列说法中,错误的是
随机试题
信誉第一
共济运动失调时可出现()
影像与实物不相似,称为
A.直接扩张血管B.阻断α1受体C.阻断钙通道D.促进K+外流E.NO供体,通过释放NO发挥作用硝普钠松弛血管平滑肌的作用机制是
某企业转让一项专利权,与此有关的资料如下:该专利权的账面余额50万元,已摊销20万元,计提资产减值准备5万元,取得转让价款28万元,应交营业税1.4万元。假设不考虑其他因素,该企业应确认的转让无形资产净收益为()万元。
黄河公司以其房屋作抵押,先后向甲银行借款100万元,乙银行借款300万元,丙银行借款500万元,并依次办理了抵押登记。后丙银行与甲银行商定交换各自抵押权的顺位,并办理了变更登记,但乙银行并不知情。因黄河公司无力偿还三家银行的到期债务,银行拍卖其房屋,仅得价
使用任务管理器可以终止程序和进程。()
Whatisthelatestproblemfacingpeoplewhodrivetoschool?
Whatjobdidthemangetfirst?Hegotthefirstjobas______.
ThepassagedepictsthedifficultyofstemcellresearchinSouthKorea.DoctorRohclaimedthatmostofthestemcelllinescr
最新回复
(
0
)