首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为了验证一个正整数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
2017-03-26
54
问题
为了验证一个正整数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,在代码编辑窗门中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: FUriCtion prime(ByVal n As Integer) As Boolean ’******考生编写****** Dim flact As Boolean flag=IIf(n>1,True,False) For m=2To n/2 If n Mod m=0Then flaq=False Exit For End If Next m prime=flag ’******************** End Function Private Sub Form Click() ’******考生编写****** Dim sun As Integer For n=200To300 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 Close1 End Sub 步骤2:按<F5>键运行程序,单击各个按钮测试验证。 步骤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/BmGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下事件过程:PrivateSubForm_Active()DimScore(1to3)AsIntegerDimiAsIntegerDimtAsVariantFori=3To1step-1Score(i)
设窗体上有一个名称为HSl的水平滚动条,如果执行了语句:HSI.Value=(HSl.Max—HSI.Min)/2+HSl.Min则:
在面向对象方法中,()描述的是具有相似属性与操作的一组对象。
假定窗体的名称为Form1,对该窗体编写如下代码:PrivateSubForm_Load()Form1.Caption="计算机"Me.Caption="等级"Caption="考试"EndS
下列程序段的执行结果为______。X=2Y=1IfX*Y<1ThenY=Y-1ElseY=-1PrintY-X>0
数值型数据包括()两种。
在程序运行时,可以通过______方法来移动滚动条的位置。
为了定义自己的鼠标光标,首先应把MousePointer属性设置为【】,然后把【】属性设置为一个图标文件。
在关系模型中,二维表的行称为______。
随机试题
与腹腔相通的鞘膜积液类型:
在RHEL5系统中,使用mysql命令链接到MySQL数据库服务器以后,执行()操作可用来查看当前服务器的已有数据库列表。
多层降尘室是根据()原理而设计的。
判断一个人在组织中是否是管理者的标准是:他或她是否有()。
下列不属于护士的心理素质的是()。
中药饮片的包装必须注明的内容有
慢性血源性骨髓炎有效的治疗方法是()
根据《生产过程危险和有害因素分类与代码》的规定,生产过程中的危险、有害分为()大类()小类。
如图,直线ι1∥ι2,则α为()。
下面与嵌入式处理器复位相关的叙述中,错误的是()。
最新回复
(
0
)