为了验证一个正整数n(n > 3)是否为素数,最直观的方法是,看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。 &n...
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有1个名称为Text1的文本框。请根据上面的算法,编写判断一个正整数是否为素数的函数prime,然后用这个函数找出200~300之间的所有素数,求出这些素数的和,将该数在文本框中显示出来,并存入文件out5.txt中。
要求:
编写函数prime的代码,然后在Form_Click事件过程中调用该函数,并计算素数的和。事件过程中已给出了把素数和保存到文件中的代码,考生不得修改。
注意:
请务必把求得的和在文本框中显示出来,这样才能存入文件out5.txt,否则没有成绩。
参考解析: 【考点分析】本题考点有,自定义过程及调用,求和运算,Exit语句等。
【解题思路】在prime函数中利用Mod运算符判断是否整除,如果余数是0则说明该被整除,那么它就不是素数,此时就可直接返回。在窗体事件中用For循环计算指定数的累加和,是素数的就累加。
【操作步骤】
步骤1:打开工程文件。
步骤2:打开代码编辑窗口。在指定位置编写代码。
参考答案
Function prime(ByVal n As Integer) As Boolean
' ****** 考生编写 ******
Dim i As Integer
For i = 2 To n / 2
If (n Mod i) = 0 Then
prime = False
Exit Function
End If
Next i
prime = True
' ************************
End Function
Private Sub Form_Click()
' ****** 考生编写 ******
Dim m, sum As Integer
sum = 0
For m = 200 To 300
If prime(m) Then
sum = sum + m
End If
Next m
Text1.Text = sum
' ************************
Open App.Path & "\out5.txt" For Output As #1
Print #1, Text1.Text
Close 1
End Sub
代码结束
步骤3:调试并运行程序,关闭程序后按题目要求存盘。