首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为了验证一个正整数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
43
问题
为了验证一个正整数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全国计算机二级
相关试题推荐
下列关于数组的叙述中,正确的是
(1)在考生文件夹中有一个工程文件sjt3.vbp。程序的功能是输入用户名和密码。程序运行时,当输入密码到文本框Text7中时,如果“显示密码”复选框没有被选中,则在文本框Text3中同时显示“#”(如图所示);如果“显示密码”复选框被选中,再重新输入密码
当一个工程含有多个窗体时,其中启动窗体是()。
数据库系统在其内部具有3级模式,用来描述数据库中全体数据的全局逻辑结构和特性的是()。
阅读下面程序代码:PrivateSubCommand1_Click()DimsAsIntegers=0a=Array(65,23,12,54,67,32,45,98,48,62)Fork=0To4Ifa(k)>a(9-k)Th
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序:PrivateSubCommand1_Click() DimxAsInteger x=Val(InputBox("输入数据")) Text1=
在设计窗体时双击窗体的任何地方,可以打开的窗口是()。
以下关于VB特点的叙述中,错误的是
设有下面的类型和变量定义,PrivateTypeRecnameAsStringscore(5)AsIntegerEndTypeDimstudentAsRec则下面正确的语句是
在考生目录下有一个工程文件vbsj5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写
随机试题
2009年3月1日,甲房地产公司(简称甲公司)与乙建筑公司(简称乙公司)签订一份建筑工程承包合同,约定由乙公司承建甲公司开发的景明写字楼项目,工程价款5000万元,工期14个月。工程将要竣工时,甲公司因资金短缺,无力继续提供约定由其提供的部分建筑材料。鉴于
Iamgoingtoseethedoctor,butyou______withme.
CT增强诊断,影像密度变化分析时的参照物是
患者,女,腹痛两天。其右下腹疼痛,从上腹部转移而来,按之疼痛不甚,突然放手疼痛加剧。舌红苔黄而干,脉数。该患者腹痛是
科学共产主义诞生的标志是()。
Itisfootballtimeagain.Currently,thequalifyingroundarebeingplayedtodecidewhichcountrieswillsendteamstothe201
国际收支包括经常项目和资本项目,一国国际收支顺差过大,会导致
以下叙述中正确的是
IshouldstartbysayingasclearlyasIcanthatIloveantibiotics.RecentlyIhaddinnerwithapediatricianfriend,andshe
ViplangLaunchedin2005,Viplangistheworld’sfirstlanguagelearningapp.Aleaderintheonlinelanguagelearningindus
最新回复
(
0
)