首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为了验证一个正整数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
41
问题
为了验证一个正整数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全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文本框,并编写如下程序:OptionBase1PrivateSubForm_Click() Dimarr DimStartAsInteger,FinishAsInteger DimSu
负责数据库中查询操作的数据库语言是()。
语句PrintSgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是()。
数据库系统在其内部具有3级模式,用来描述数据库中全体数据的全局逻辑结构和特性的是()。
下面关于VB应用程序的叙述中正确的是
以下关于文件的叙述中,错误的是
下列描述中,不符合良好程序设计风格要求的是
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是
设:a=2,b=8,c=6,d=3,表达式a>bAndNot(c>d)Ord>c的值是()。
设x是小于10的非负数。对此陈述,以下正确的VB表达式是
随机试题
乳房脓肿应做乳腺囊性增生病可做
背景资料:某二级公路的主要工序见下表。
下列()设施既可以用于排地下水,也可用于排地面水。
甲公司为增值税一般纳税人企业,适用的增值税税率为17%。2012年1月,甲公司自行建造某项生产线,该生产线由A、B、C、D四个设备组成。建造过程中发生外购设备和工程物资成本5000万元,增值税为850万元,人工成本1000万元,资本化的借款费用100万
FinalCut采集磁带后得到的文件的数字格式是()。
分析下面谱例。要求:写出其旋律特点。
单位来了一位新领导,经常当众批评下属,同事们都对他很不满,甚至有同事拉拢你一起抵触领导,此时你该怎么做?
解决刑事责任的方式包括()。
以下关于三重DES加密的叙述中,正确的是(45)。
下列关于Applet的方法中,()是返回HTML中设定的值。
最新回复
(
0
)