1、VB机试模拟试卷 2及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 c:wexam25160001。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体中建立一个名称为 Cmd1，标题为 “显示 ”的命令按钮，如图 2-1所示。要求程序运行后，如果单击 “显示 ”按钮，则执行语句 Form1.Print“显示 ”：如果单击窗体，则执行语句 Form1.Cls。 注意：保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工 程文件名为 sjt1.vbp。 (2)在名称为 Form1的
2、窗体上建立一个水平滚动条，名称为 HS1，其最大值为 100，最小值为 0。要求程序运行后，每次移动滚动框时，都执行语句 Forml Print HSl Value，如图 2-2所示 (程序中不能使用任何变量 )。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。 二、简单应用题（ 40分） 2 注意：下面出现的 “考生文件夹 ”均为 c:wexam25160001。 (1)在考生文件夹中有工程文件 sjt3.vbp及 其窗体文件 sjt3.frm，该程序是不完整的。请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )但不能
3、修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有 3个名称分别为 Text1、 Text2和Text3的文本框，一个名称为 C1，标题为 “计算 ”的命令按钮，如图 4-4所示。要求程序运行后，在 Text1和 Text2中分别输入两个整数，单击 “计算 ”按钮后，可把两个整数之间的所有整数 (含两个整数 )累加起来并在 Text3中显示。 (2)在窗体上建立一个名称为 Text1的文本框，建立一个名 称为 Cmd1，标题为 “计算 ”的命令按钮，如图 4-5所示。要求程序运行后，如果单击 “计算 ”按钮，则求出 100-200之间所有可以被 3整除的数的总和，在文本框
4、中显示出来，并把结果存入考生文件夹下的out.txt文件中。 (在考生的文件夹下有一个 mode.bas标准模块，该模块中提供了保存文件的过程 putdata，考生可以直接调用。 ) 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt4.frm。工程文件名为 sjt4.vbp，结果存入 out.txt文件。三、综合应用题（ 30分） 3 在考生文件夹中有 工程文件 sjt5.vbp及其窗体文件 sjt5.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即，号 )但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Form1的
5、窗体上有一个文本框，名称为 Text1， MultiLine属性为 True， ScrollBars属性为 2，两个命令按钮，名称分别为 Cmd1和 Cmd2，标题分别为 “读入数据 ”和 “保存数据 ”)，如图 3-5所示。程序运行后，如果单击 “读入数据 ”按钮，则读入 “in.txt”文件中的100个整数，放入一 个数组中 (数组下界为 1)，并在文本框 Text1中显示出来；如果单击 “保存数据 ”按钮，则把数组中的前 50个数据在文本框 Text1中显示出来，并存入考生文件夹中的文件 “result.txt”中。 (考生文件夹中有标准模块 prog.bas，其中的 putdata过程
6、可以把指定个数的数组元素存入 result.txt文件。 ) 注意：上面出现的“考生文件夹 ”均为 c:wexam25160001，文件必须存放在考生文件夹下，窗体文件名为 sjt5.frm，工程文件名为 sjt5.vbp，结果存入 result.txt文件，否则 没有成绩。VB机试模拟试卷 2答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。命令按钮的标题由 Caption属性设置，单击命令按钮触发 Click事件。在窗体上打印信息用 Print方法，清除窗体上的打印信息使用 Cls方法，这两条语句在题目中已经给出，只要将其
7、放入适当的事件过程中即可。解题步骤： 第一步：建立界面并设置控件属性。 本题只用到了 1个命令按钮，将其 Caption属性设置为 “显示 ”， Name属性设置为Cmd1。 第二步：编写代码。 参考代码： Private Sub Cmd1_Click() Form1.Print“显示 ” End Sub Private Sub Form_Click() Form1.Cls End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 滚动条表示的最大值由 Max属性设置，最小值由 Min属性设置，滚动条的当前值由 Value
8、属性设置； 当滚动框的位置改变时，触发 Change事件。清除窗体上原来的显示的值可以用 Cls方法来实现。解题步骤： 第一步：建立界面并没置控件属性。本程序中用到 1个滚动框，将其名称即Name属性设置为 HS1， Min和 Max属性属性分别设置为 0和 100。 第二步：编写程序代码。 参考代码： Private Sub HS1_Change() Cls Form1.Print HS1 End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 二、简 单应用题（ 40分） 2 【正确答案】 (1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 要使文本框中的字符用于算术
9、运算，首先要利用 Val将文本框中输入的数字字符转换为数字类型 (文本框中的内容默认为字符串类型 )。解题步骤： 第一步：建立界面并设置控件属性。 第二步：编写程序代码。 程序提供的代码： Option Explicit Private Sub C1_Click() Dim i As Integer， s As Integer Dim a As Integer， b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a b Then i = a a = b b = ? End If s = 0 For i = a To b s = s
10、+ ? Next i Text3.Text = s End Sub 参考代码： Option Explicit Private Sub C1_Click() Dim i As Integer， s As Integer Dim a As Integer， b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a b Then i = a a = b b = i End If s = 0 For i = a To b s = s + i Next i Text3.Text = s End Sub 第三步：调试并运行程序。 第四步：按题目要
11、求存盘。 (2)在窗体上建立好控件后，先设置控件的属性，再编写事件过程。 命令按钮的 Caption属性用来设置其标题，单击命令按钮触发 Click事件：在文本框中显示内容通过其 Text属性来设置。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控 件及其属性见表 4-3。第二步：编写程序代码。 标准模块代码： Option Explicit Sub putdata(t_FileName As String， t_Str As Variant) Dim SFile As String SFile =“ & t FileName Open App.Path & SFile For Ou
12、tput As #1 Print #1， t Str Close #1 End Sub 参考代码： Private Sub Cmd1_CliCk() Dim temp As Long Dim i As Integer For i = 100 To 200 If i Mod 3 = 0 Then temp = temp + i End If Next Text1.Text = temp putdata “out.tXt“， temp End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 三、综合应用题（ 30分） 3 【正确答案】 文本框显示的内容由 Text属性设置， Multi
13、line属性决定文本框是否可多行显示；按钮的标题由 Caption属性设置，单击命令按 钮触发 Click事件。题中涉及到文件的操作，读入顺序文件以顺序的方式打开，用 Input#语句读取数据，另外需要注意的是对文件操作完成后，一定要关闭文件。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及属性设置见表 3-4。第二步：编写程序代码。 程序提供的代码。 prog.bas的代码： Sub putdata(a() As Integer， n As Integer) Dim sFile As String sFile =“result.txt“ Open App.Path & sFil
14、e For Output As #1 For i = 1 To n Print #1， a(i)； Next Close #1 End Sub 窗体代码： Dim i(1 To 100) As Integer Private Sub Cmd1 Click() Dim j As Integer j = 0 Open App.Path & “in.txt “ For Input As #1 For j = 1 To 100 Input #1， i(?) Next ? #1 For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5) Next
15、 End Sub Private Sub Cmd2_Click() Dim temp As Long Dim j As Integer Text1.Text =? For j = 1 To 50 Text1.Text = Text1.Text & i(j) & Space(5) Next putdata i, 50 End Sub 参考代码： Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer j = 0 Open App. Path& “in.txt“ For Input As #1 For j = 1 To 100 Input #1, i(j) Next Close #1 For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5) Next End Sub Private Sub Cmd2_Click() Dim temp As Long Dim j As Integer Text1.Text = “ For j = 1 To 50 Text1.Text = Text1.Text & i(j) & Space(5) Next putdata i, 50 End Sub 第三步：调度并运行程序： 第四步：按题目要求存盘：
