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