首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为了验证一个正整数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
2018-10-29
60
问题
为了验证一个正整数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 flag 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=2 00 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:按<F5>键运行程序,单击按钮测试验证。 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/GtFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Combo1的组合框,名称为Text1的文本框,以及名称为Command1的命令按钮,如图所示。运行程序,单击命令按钮,将文本框中被选中的文本添加到组合框中,若文本框中没有选中的文本,则将文本框中的文本全部添加到组合框中。命令按钮的
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePerson nameAsString*8 majorAsSt
以下选项中,不合法的VisualBasic的变量名是( )。
如果要将一个窗体从内存中清除,应使用的语句是
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是( )。
命令按钮Command1的事件过程如下:PrivateSubCommand1_Click() Dimarr(5,5)AsInteger DimiAsInteger,jAsInteger Fori=1To4
窗体上有名称为Command1的命令按钮,名称分别为Label1、Label2、Label3的标签。编写如下程序:PrivatexAsIntegerPrivateSubCommand1_Click() StaticyAsIntege
顺序文件在一次打开期间( )。
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:DimFlagAsBooleanPrivateSubForm_Load() Flag=TrueEndSubPr
随机试题
Therocketengine,withitssteadyroarlikethatofawaterfallorathunderstorm,isanimpressivesymbolofthenewspaceage
乙国与甲国航天企业达成协议,由甲国发射乙国研制的“星球一号”卫星。因发射失败卫星碎片降落到甲国境内,造成人员和财物损失。甲乙两国均为《空间物体造成损害的国际责任公约》缔约国。下列选项正确的是:()
(2012年)外径为25mm和内径为20mm的蒸汽管道进行保温计算时,如果保温材料热导率为0.12W/(m.K),外部表面总传热系数为12W/(m2.K),则热绝缘临界直径为()mm。
当施工单位没能达到规定的质量要求时,监理单位( )。
长城股份有限公司(下称长城公司)2019年度发生与股权投资相关的交易或事项如下:(1)2019年2月3日,长城公司以银行存款按12.4元/股的价格购入黄山公司发行在外的普通股股票10万股(其中含有已宣告但尚未发放的现金股利0.4元/股),另支付相关税费1
企业应综合考虑有关影响因素运用适当的方法确定最佳资本结构,即在一定条件下使企业()。
在中国近代史上,规定采取三权分立的宪法性文件有()。
社会主义核心价值观与社会主义核心价值体系具有内在的一致性。两者方向一致,但各有侧重。相比于社会主义核心价值体系,社会主义核心价值观()
ThefollowingisageneralintroductiontothepreparationofSpeakingNotes.Afterreadingit,youarerequiredtocompletethe
Manythingsaboutlanguageareamystery,andmanywillalwaysremainso.Butsomethingswedoknow.First,weknowthata
最新回复
(
0
)