首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为了验证一个正整数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
66
问题
为了验证一个正整数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全国计算机二级
相关试题推荐
下列工具中,不属于结构化分析的常用工具的是()。
以下关于图片框控件的说法中,错误的是( )。
在窗体上画一个命令按钮(名称为Command1),并编写如下代码:FunctionFun1(ByValaAsInteger,bAsInteger)AsInteger DimtAsInteger t=a-b b=t+a
假定有以下循环结构:DoUntil条件表达式循环体Loop则以下正确的描述是()。
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:PublicxAsIntegerPrivateYAsInteger窗体文件的程序代码是:DimaAsIntegerPrivateSubForm_Load0
以下合法的VB变量名是
设有下面的类型和变量定义,PrivateTypeRecnameAsStringscore(5)AsIntegerEndTypeDimstudentAsRec则下面正确的语句是
支持子程序调用的数据结构是
有两个关系R和S如下:则由关系R得到关系S的操作是
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
随机试题
在课堂教学中,教师各方面的品质都是学生模仿的标准。研究表明,成功的教师,包括在课堂上活跃气氛的老师,应当具有()等心理素质。
冠心病治疗中治疗稳定斑块应首选_______。
在德国莱比锡大学建立世界上第一个心理学实验室,使心理学成为一门独立科学的学者是
下列不是脓疱疮的典型皮损的是
“……造成了一个弥漫着书香的世界,使中华民族成为世界上最具书卷气的民族,甚至目不识丁者也知‘敬惜字纸’,普遍有一种对于文字、文献的崇拜。”这一现象出现的原因是()。
无端的就被她魅惑,感染着这个美丽的小女子似乎释放不完的激情。今日再见,便如故友重逢,看她上场,便__________,看她离去,便__________,听到欢呼声盈耳,便几乎要__________了。依次填入画横线部分最恰当的一项是()。
(2016河北)三个连续的奇数,后两数之积与前两数之积的差为2004,则这三个数中最小的数为多少?
EveryoneknowshowtogettoCarnegieHall:practice,practice,practice.Butwhatabouthowtogetintothenation’smosthonor
Evenwhenourabilitytospendandsocialisehasbeencurtailedindrasticways,wealthanddeprivationmakethemselvesfeltas
Linguistshavefoundthatsignlanguagesandspokenlanguagessharemanyfeatures.Likespokenlanguages,whichuseunitsofsou
最新回复
(
0
)