1、VB机试模拟试卷 48及答案与解析 一、基本操作题（ 30分） 1 在窗体上创建三个命令按钮，名称分别为 Command1、 Command2和Command3，标题分别为 “导入数据 ”、 “计算 ”和 “保存数据 ”，以及一个文本框，名称为 Text1。编写事件过程，使得在运行时，单击 “导入数据 ”按钮，从考生文件里读入 data.txt文件 (其中有 20个整数 )，在 Text1中显示。单击 “计算 ”，采用冒泡算法排序。单击 “保存数据 ”，存入 out.txt文件中。程序运行界面如图 29所示。VB机试模拟试卷 48答案与解析 一 、基本操作题（ 30分） 1 【正确答案】 (1
2、)Visual Basic集成环境中，执行 “文件 ”“ 新建工程 ”命令，选择“标准 Exe”。创建窗体 Form1。 (2)在工具箱中选择文本框控件，在窗体建立一个文本框 Text1，将其 Text属性设为空。 (3)在工具箱中选择命令按钮控件，在窗体上创建三个命令按钮，名称分别为 Command1、 Command2和 Command3，标题分别为 “导入数据 ”、 “计算 ”和 “保存数据 ”。 (4)双击 “导入数据 ”按钮，弹出代码窗口，在其中添加如下代码； Private Sub Command1_Click() Dim a As String Call FindData(a)
3、Text1.Text=a End Sub Sub FindData(a As String) Open App.Path & “& “data.txt“For Input As #1 Do While Not EOF(1) Input #1， a Loop Close #1 End Sub (5)双击 “计算 ”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command2_Click() Sub sort(a()As Integer) Dim n As Integer For i=1 To 15 For j=1 To 15-i If (a(j) a(j+1)Then n=
4、a(j) a(i)=a(i+1) a(j+1)=n End If Next i Next i End Sub (6)双击 “保存数据 ”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open App Path & “ & “out.txt“ For Output As #1 Print #1, a Close #1 End Sub (7)按 F5键运行程序。如图 29所示。 (8)执行 “文件 ”“ 保存工程 ”命令，将工程文件命名为 ylc.vbp，窗体文件命名为 ylc.frm。 【试题解析】 (1)该题与上机模拟题十二在基本操作上类似，都考查了文件的读入操作并在文本框中输出；对顺序文件的读入和输出的操作等。 (2)该题重点考查了利用冒泡算法对数组元素进行排序。
