首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为了验证一个正整数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-11-27
62
问题
为了验证一个正整数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=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:按
键运行程序,单击按钮测试验证。
解析
转载请注明原文地址:https://kaotiyun.com/show/P5Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体中有一个文本框Textl,若在程序中执行了Textl.SetFocus,则触发
执行如下语句:a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)将显示一个对话框,在对话框的输入区中显示的信息是______。
VisualBasic为命令按钮提供的Cancel属性是()。
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsInteger
窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是()。PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)For
下面程序的功能是统计字符串中“i”的个数,请填空。SubCOU()DimnAsInteger a$="BeijingUniversityofTechnology" n=Len(a$) Fori=1T
刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是()。
15除以2余数的-3次方的VB表达式为______。
设有以下函数过程PrivateFunctionFun(a()AsInteger,bAsString)AsInteger…EndFunction若已有变量声明:Dimx(5)AsInteger,nAs
支持子程序调用的数据结构是( )。
随机试题
A、Tidalrestlessness.B、Heatandlight.C、Economicprosperity.D、Historicalcontinuity.A本题问说话者认为通勤者给纽约带来了什么。文章中间部分指出,通勤者给这座城市带来
采用手工钨极氩弧焊,焊接钛及其合金时,氩气纯度不应低于____。
ThreeAmericanpsychologistsdidaresearchstudyseveralyearsagoonwhatAmericansvaluemost.Inthestudy,eighteenvalues
传染病流行过程需要三个基本条件,包括传染源、传播途径和易感染群,下列不属于传染源的是
下列对缓释与控释制剂的叙述中错误的是()
进行大坝溢流模型实验,几何比尺λ=100,原型流量100m3/s,模型流量为()L/s。
建设项目的环境影响登记表填报内容包括()。
承运人按照《民用航空法》的规定,应当承担赔偿责任的,对每名旅客的最高赔偿金额为人民币()元。
春节期间,家家户户放鞭炮。如果你是负责这项工作的社区管理人员,发现有居民未按市政府要求在规定时间和地点燃放鞭炮,你会()
Forthispart,youareallowed30minutestowriteashortessayentitledTheImportanceofPerseveranceforSuccessbycommenti
最新回复
(
0
)