首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为了验证一个正整数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
49
问题
为了验证一个正整数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全国计算机二级
相关试题推荐
在VisualBasic中,下列运算符中优先级最高的是______。
在窗体上画1个名为Text1的文本框和1个名为Label1的标签,再画4个名为Op1的单选按钮控件数组,其Index属性按季度顺序为0~3,如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时,鼠标单击一个单选按
执行以下程序段,并输入1.23,则程序的输出结果应是【】。N=Str(InputBox(“请输入一个实数:”))p=InStr(N,".")PrintMid(N,p)
以下关于菜单的叙述中,错误的是_________。
如果一个变量未经定义就直接使用,则该变量的类型为()。
数值型数据包括()两种。
执行下面的程序段后,S的值为【】。s=5Fori=2.6To4.9Step0.6s=s+1Nexti
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程: PrivateSubCommand1_Click() n=Val(Text1.Text) Fori=2Ton Forj
以下叙述中正确的是()。
在VisualBasic的立即窗口内输入以下语句X=65<CR>PrintChr$(X)<CR>在窗口中显示的结果是
随机试题
对甲型肝炎患者的消毒隔离措施错误的是
患者,女性,45岁。面、颈、四肢出现结节样皮损1个月,夏季发作。皮损呈扁平隆起,边界清楚,表面似有假水疱样损害,触之有结节感,颜色深红,压之疼痛明显。病程中伴发热、关节疼痛。尿常规检查提示蛋白(++)、隐血(++)、见颗粒管型。血常规提示WBC9×109
血小板疾病引起的出血哪项试验肯定是异常的
营气的分布特点是
购买商品房办理按揭手续时,需要提供的资料有()。[2008年考试真题]
需要办理注销登记的情形包括()。
在金融期货合约中对有关交易的()有标准化的条款规定。
长江中下游地区虽然降水丰富,但也有旱灾,其主要是:
如果缺乏奋斗精神,就不可能有较大成就。李阳有很强的奋斗精神,因此,他一定能成功。下述何者为真,则上文推论可靠?
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程。PrivateSubCommand1_Click()CommonDialog1.Flags=vbOFNHideReadOnly
最新回复
(
0
)