2. 计算机
  3. 为了验证一个正整数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的文本框。请根据上面的算法

admin2017-03-26  81
问题 为了验证一个正整数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，在代码编辑窗门中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： FUriCtion prime(ByVal n As Integer) As Boolean ’******考生编写****** Dim flact As Boolean flag=IIf(n＞1，True，False) For m=2To n／2 If n Mod m=0Then flaq=False Exit For End If Next m prime=flag ’******************** End Function Private Sub Form Click() ’******考生编写****** Dim sun As Integer For n=200To300 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 Close1 End Sub 步骤2：按＜F5＞键运行程序，单击各个按钮测试验证。 步骤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://www.kaotiyun.com/show/BmGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)