在考生文件夹内(C:\ylc)有一个工程文件ylc.vbp。在窗体上有一个文本框，名字为Text1，以及两个命令按钮，名字分别为Command1和Command2，标题分别为Search和Save。还有一个函数过程Search(a)，在程序中可以直接调用该函数，其功能为判断整型参数number是否为质数。如果是则返回True，否则返回False。编写一个事件过程，实现以下功能：运行时，在文本框内输入一个正整数。单击Search按钮后，找到小于该正整数的第一个素数，显示在 Text1中；单击“Save”，则把Text1中的计算结果存入考生文件夹下的out.txt文件中。程序运行后如图27所示。要求实现题目给出的功能，并将文件保存在考生文件夹下，工程文件名为 ylc.vbp。
参考答案：在工具箱中选择命令按钮控件，在窗体上创建两个命令按钮，名称分别为CommandA和CommandB，标题分别为Search和Save。
(B)双击Search按钮弹出代码窗口，在其中添加如下代码：
Private Sub CommandA_Click()
Dim a As Integer
number=Val(TextA. Text)
Do While (Search(number)=False)
number=number-A
Loop
TextA.Text=number
End Sub
(C)双击“Save”按钮弹出代码窗口，在其中添加如下代码：
Private Sub CommandB_Click()
Call savedata("out.txt", CInt(TextA.Text))
End Sub
Sub savedata(filename As String, number As Integer)
Open App. Path & "\" & filename For Output As #A
Print #A, number
Close #A
End Sub
(D)按FE键运行程序。如图BG所示。
(E)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为 ylc.frm。
解析： (1)该题答案第4部分中的代码调用了原始文件中的Search函数过程。当函数判断得到第一个质数时就会跳出Do循环体，并将该质数值赋给文本框的Text属性，显示在文本框中。
(2)第5部分中编写了一个用于向文件out.txt写入数据的过程，并在Save按钮的单击事件中调用了这个过程。