2014年3月计算机二级考试VF临考预测试卷及答案8

　　四、综合应用题

　　素数的判断准则就是看该数是否除了1及其本身以外别无其他约数，若是则该数就是素数，否则就不是素数。本题判断素数的标准模块mode.bas已经写好了，只要将它添加到工程中即可。在“工程”窗口中 单击右键，在弹出的快捷菜单中选择“添加”一“添加模块”，然后在弹出对话框的“现存”选项卡中选择“mode.bas”，单击“确定”按钮即添加成功。补充后的代码如下：

　　Private Sub Command1_Click()

　　Dim min As Integer

　　Dim max As Integer

　　Dim i As Integer

　　If Option1.Value=True Then

　　’根据选中的Option来设置For循环上下限

　　min=50

　　max=150

　　Else

　　min=200

　　max=350

　　End If

　　total=0

　　For i=min To max

　　If isPrimeNum(i)=True Then

　　’调用mode.bas的isPrimeNum函数判断素数

　　total=total+i

　　End If

　　Next i

　　Text1.Text=total

　　End Sub

　　Private Sub Command2 Click()

　　writeData(total)

　　’调用mode.bas的writeData来进行数据保存

　　End Sub

　　标准模块mode.bas中的代码如下：

　　Function isPrimeNum(num As Integer)As Boolean

　　isPrimeNum=True

　　Dim i As Inleger

　　For i=2 To num-1.

　　If num Mod i=0 Then

　　isPrimeNum=False

　　Exit For

　　End If

　　Next i

　　End Function

　　Function writel)ata(total As Long)

　　Open"App.Path&out5.txt"For Output As。#1

　　Write#1，total

　　Close#1

　　End Function

　　单击 按钮运行程序，并按要求保存：

　　相关推荐：

　　2014年全国计算机二级考试VF上机冲刺试卷汇总

　　考试吧考后首发2014年3月计算机二级真题及答案通知

　　考试吧推荐：2014年3月计算机二级考前冲刺备考专题