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

　　三、简单应用题

　　(1)判断一个数是否为素数的准则：就是看该数是否除了1及其本身外别无其他约数(即从2到n-1 之间没有可以将其整除的数)即可。

　　根据题意，在窗体上添加两个Text控件和一个Command控件，Text的名称分别为Text1和Text2、Text属性均为空，Command的名称为Command1、Caption属性为“计算”。双击Command1命令按钮，编写如下代码(本书答案解析部分的代码中，若无特殊说明，加下划线的代码则表明是需要考生补充的代码)：

　　Private Sub Command1_Ctick()

　　Dim total As Long

　　Dim i As Integer

　　total=0

　　For i=1 To Val(Text1.Text)

　　If isPrimeNum(i)=True Then

　　’调用isPrimeNum函数判断是否是素数

　　total=total+i’如果是，则进行求和

　　End If

　　Next i

　　Text2.Text=total 将结果在Text2中显示

　　End Sub

　　Function isPrimeNum(num As Integer)As Boolean

　　’判断输入的数是否为素数

　　isPrimeNum=True

　　Dim i As Integer

　　For i=2 To num-1

　　If num Mod i=c Then

　　’如果能被除1及其本身以外的数整除

　　isPrimeNum=False’则此数不是素数

　　Exit For

　　End If

　　Next i

　　End Function

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

　　(2)根据题意，在窗体上添加一个Text控件和两个Command控件，Text的名称为Text1、Text属性为空，Command的名称分别为Command1和Command2，Caption属性分别为“输入”和“输出”。双击Command1命令按钮，编写如下代码：

　　Dim a(6)As Integer

　　Private Sub Command1_Click()

　　Dim i As Integer

　　Dimj As Integer

　　Dim k As Integer

　　Dim trap As Integer

　　For i=1 To 6

　　a(i)=Val(InputBoK("请输入"))

　　Next i

　　For i=1 To 6 ’升序序排列

　　temp=a(i)

　　For j=1 To i

　　If a(j)>temp Then’读取的数据比原位置的数据大则偏移

　　For k=i To J…1 Step-1’上下限

　　a(k)=a(k-1) ’数据向后偏移一个

　　Next k

　　a(j)=temp

　　Exit For

　　End If

　　Next j

　　Next i

　　End Sub

　　Prival e Sub Command2 Click()

　　Dim arg As Integer

　　Dim str As String

　　Dimj As Integer

　　arg=0

　　Dim i As Integer

　　str=""

　　For i=1 To 6

　　arg=arg+a(i) ’求总和

　　Next i

　　arg=arg\6’求平均值.

　　Fm i=1 To 6

　　If a(i)>arg Then

　　’当大于平均值时则写入字符串

　　str=str+CStr(a(i))+""

　　End If

　　Next i

　　Text1.Text=str’将结果显示在Text1中

　　End Sub

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

　　相关推荐：

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

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

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