首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为了验证一个正整数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
29
问题
为了验证一个正整数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全国计算机二级
相关试题推荐
求1!+2!+……+10!的程序如下:PrivateFunctions(xAsInteger) f=1 Fori=1Toxf=f*i Next s=fEndFunctionPrivateSubCommand1
可以产生30~50(含30和50)之间的随机整数的表达式是( )。
以下选项中,不合法的VisualBasic的变量名是( )。
在窗体上画一个命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimArr(10)AsIntegerFori=1To10Arr(i)=
在窗体上画一个组合框,其名称为Combo1,然后编写如下事件过程:PrivateSubForm_Load()Combo1.Text="1"Fori=1To10Sum=Sum+iNe
要使标签中的文本靠右显示,应将其Aligment属性设置为
为了在运行时能显示窗体左上角的控制框(即系统菜单),应执行的操作是
能够用于标识对象名称的属性是( )。
以下关于文件的叙述中,错误的是( )。
随机试题
脑脊液的产生部位是
下列哪些说法较为全面地概括了国际法和国内法的关系?()
设计合同采用的担保方式一般采用()。
城市排水工程分区规划中的主要内容有()。
关于工程建设缺陷责任期确定的说法,正确的有()。
账务处理子系统,不仅可以直接处理来自记账凭证的信息,而且可以接收来自各核算子系统的自动转账凭证。 ( )
黄河公司当月发生的下列各项业务中,在进行会计处理时应计入管理费用的是()。
下列对真核、原核生物DNA-pol的比较中正确的是
请在【答题】菜单下选择【进入考生文件夹】命令,并按照题目要求完成下面的操作。注意:以下的文件必须都保存在考生文件夹下。在考生文件夹下打开文档“Word.docx”,按照要求完成下列操作并以该文件名“Word.docx”保存文档。将文
EvaluatingSpeakingSpeakingisacomplexactwithmanydifferentelementsinteractingtoproduceeffectivecommunication,
最新回复
(
0
)