首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为了验证一个正整数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
72
问题
为了验证一个正整数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全国计算机二级
相关试题推荐
有下面程序代码:PrivateSubCommand1_Click()i=1DoWhilei<5j=1Doj=j+1Pr
为使文本框具有初始值"VB",在设计阶段正确的操作是
在设计阶段,如果双击窗体上的一个文本框控件,则在代码窗口中显示该控件的事件过程所对应的事件是
下列程序的功能是调用字体对话框来设置文本框中的字体,单击Command1按钮弹出对话框,进行相应的字体、字号等的设置,然后单击“确定”按钮退出对话框,则文本框中将发生哪些变化()。PrivateSubCommand1_ClickO()Com
在窗体上画一个名称为List1的列表框,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名消失。下列在List1Click事件过程中能正确实现上述功能的语句是
以下关于文件的叙述中,错误的是
检查软件产品是否符合需求定义的过程称为
用树形结构表示实体之间联系的模型是
下面不属于软件测试实施步骤的是
软件测试的目的是
随机试题
寒饮停胃证最主要的临床表现是
有一位药物中毒,病情较重的患者,在不知毒物名称和性质的情况下,护士给患者采取的正确体位是
经过复核,发现被审计单位职工福利费开支明显超过规定计提数额,审计人员应提请将超支部分在()列支。
从每年某月某日至下一年相应日期的前一日止的预算年度称为()。
以下各项中,能帮助企业实现成本领先战略的资源和技能有()。
甲公司以库存商品A产品、B产品交换乙公司原材料,双方均将收到的存货作为库存商品核算。甲公司另向乙公司支付补价45万元。甲公司和乙公司适用的增值税率为17%,计税价值为公允价值,有关资料如下:(1)甲公司换出:①库存商品——A产品:账面成本180
在同一时间内观察不同年龄组的心理发展水平的研究是()。
简述作为教师学习教育心理学的必要性。
论物权的效力。
有三个关系R,S和T如下图所示,则由关系R和S得到关系T的运算是
最新回复
(
0
)