2013年计算机二级VB上机模拟题及答案三

　　3. 综合应用(1小题，计30分)

　　注意：下面出现的“考生文件夹”均为%USER%

　　在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件是sjt5.frm(如图所示)。该程序的功能是： 单击“读数”按钮，读入考生文件夹下in5.txt文件中的一个整数，并放入Text1中; 单击“计算”按钮，则计算

　　小于该数的最大素数，并显示在Text2中;单击“存盘”按钮，则把该素数保存到考生文件夹下的out5.txt文件中。

　　要求：

　　1)程序已给出“存盘”按钮的事件过程代码。“读数”按钮的事件过程 和判断x是否是素数的函数prime(x)不完整，请去掉注释，并在? 处填上正确的内容，使程序完整。

　　2)编写“计算”按钮的事件过程。计算小于Text1中数据的最大素数。

　　3)请不要改动窗体上所有控件属性设置及相应的过程代码。最后将改动后的程序用原文件名保存。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

　　由于所提供的窗体程序不完整，需添加事件过程。

　　执行“计算”命令(即运行Click事件过程)，在该Click事件过程中加入语句：

　　Private Sub Command2_Click()

　　n = Val(Text1.Text)

　　For i = n To 2 Step -1

　　l = prime(i)

　　If l = True Then

　　Exit For

　　End If

　　Next

　　Text2.Text = i

　　End Sub

　　在“读数”按钮的Private Sub Command1_Click()中，有一处地方需要修改。

　　1) 将语句

　　’Input #1, ?

　　改为

　　Input #1, a%

　　在函数Function prime(x) As Boolean中，有一处地方需要修改。

　　1) 将语句

　　’prime = ?

　　改为

　　prime = flag

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。