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-11-27  59
问题 为了验证一个正整数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://www.kaotiyun.com/show/P5Gp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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