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