1、VB机试模拟试卷 87及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画一个名称 Checkl的复选框数组 (Index属性从 0开始 )，含 4个复选框，其标题分别为 “Iternl”、 “Item2”、 “Itern3”和 “Item4”。利用属性窗口设置适当的属性，使 “Iteml”未选， “Item2”、 “Item3”被选中， “Item4 ”为灰色，程序运行时的窗体界面如图 641所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为 sj1 frm。 (2)在 窗体上画一个命令按钮。其名称为 Commandl，标题为
2、 “清空标题 ”，编写适当的事件过程。程序运行后，窗体的标题为 “模拟考试 ”，如图 642所示，如果单击命令按钮，则清除窗体的标题，如图 643所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为sj2 vbp。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有工程文件 sj3 vbp及窗体文件 sj3 frm，该程序是不完整的。在窗体上建立一个列表框、一个组合框和两个命令按钮。程序运行后，在列表框中选择所需要的项目，单击 “导出 ”按钮，把所选择的项目移到组合框中。如果单击 “导人 ”按钮，则把组合框中所选择的项目移到列表框中。程序运行时的窗体界面如图
3、 503所示。 注意：请在有 “?”号的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程文件 sj4 vbp及窗体文件 sj4 frm，该程序是不完整的。本题在窗体 Forml中有一个文本框，名称为 Textl；另有一个命令按钮，名称为 Commandl，标题为 “判断 ”。要求该应用程序具有数据过滤功 能，即检查用户在文本框中输入的数值是否在能被 3整除。如果是，则退出程序；否则在文本框巾显示 “不能被 3整除 ”，同时使焦点重新回到文本框中。程序运行时的窗体界面如图504所示。 注意：请
4、在有 “?”号的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 Sj5 vbp，窗体上有一个文本框，名称为Textl，可以多行显示。还有 3个命令按钮，名称分别为 Commandl、 Command2和Command3，标题分别为 “读取数据 ”、 “降序排列 ”和 “保存 ”。 “读取数据 ”按钮的功能是从考生文件夹下的 in5 dat文件中读取 40个整数到数组中，并在 Textl中显示出来； “降序排列 ”按钮的功能是对这 40个数降序排序，并显示在
5、 Textl中； “保存 ”按钮的功能是把排好序的 40个数存到考生文件夹下的 out5 dat文件中。程序运行界面如图 385所示。 注意：在窗体中已经给出了全部控件和部分程序，要求阅读程序并去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的 其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 VB机试模拟试卷 87答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)本题考查在窗体中加入控件数组及复选框控件 (CheckBox)的使用。复选框组可用于实现多重选择，每个复选框的选中状态由其 Value属性值决定： 0为未
6、选； 1为选中； 2为不可用 (即灰色 )。 根据题意，将一个复选框控件添加到窗体中，其名称为 Checkl，再选中此复选框，复制、粘贴，在弹出的对话框中选择 是 ”，即创建含有 4个控件的控件数组。 Index属性分别为 0、 1、 2、 3，Caption属性分别为 “heml”、 “hem2”、 “hem3”和 “Item4”， “Iteml，的 Value属性为 0， “Item2和 “hem3”的 Value属性为 1， “Item4”的 Value属性为 2。单击 按钮运行程序，并按要求保存。 、 (2)本题考查命令按 (CommandButton)控件的画法和窗体相关属性，以及简
7、单的事件过程编写。 根据题意，将一个命令按钮添加到窗体中，其名称为 Commandl、 Caption属性为。 “清空标题 ”， Forml的 Caption属性为 “模拟考试 ”。 双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Forml Caption=“ End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)列表框控件用于显示可供单一或多个选择的列表项。给列表框添加列表项既可以在设计阶段通过其 List属性设置加入 (注意每输入完一项后按“Ctrl+Enter”组合键换行再输
8、人下一项 )，也可在程序运行时通过代码 “列表框名 AddItem“巧目 ”加入 ”； MultiSelect用于设置是否可在列表项中做多个选择，值为 0(缺省设置 )表示不允许做多项选择，值为 1表示允许做简单多项选择，值为 2表示允许按住 “Shift+Ctrl”键做多项选择； Selected(Index)属性用于设置或返回指定索引号的 列表项选择状态 (索引号从 0开始 )，值为 True表示被选中，值为 False表示未被选中； List(Index)属性用于设置或返回指定索弓 1号的列表项的内容；ListCount属性用来返回列表框中当前的列表项条数； RemoveItem方法用于
9、删除指定索引号的列表项。 根据题意，将一个列表框控件、一个组合框 ComboBox控件和两个命令按钮添加到窗体中，列表框的名称为 Listl、 Sorted属性为 True，ComboBox的名称为 Comb01，命令按钮的名称分别为 Commandl和 Command2，Caption属性分别为 “号出 ”和 “导入 ”。双击 Commandl进入代码窗口，补充后的代码如下： Private Sub Commandl_Click() If Listl Listlndex-1 Then， 如果 Listl有选中项 Comb01 AddItem Listl List(Listl ListInde
10、x) 将 Listl中的选中项添加到Combol中 Listl RemoveItem(Listl Listlndex) 将选中项从 Listl中删除 End If End Sub Private Sub Command2_Click() If Comb01 ListIndex-1 Then， 如果 Combol有选中项则执行 Listl Addhem Combo1 List(Comb01 Listlndex) 将 Comb01的选中项添加到 List中 Comb01 RemoveItem Comb01 ListIndex将选中项从 Combol中删除 End If End Sub 单击 按钮运
11、行程序，并按要求保存。 (2)本题主要考查考生对 SetFocus方法和 LostFocus事件的掌握。 当按键盘上 “Tab”键 或单击其他对象时，当前对象将失去焦点并触发 LostFocus事件； SetFocus方法用于将焦点移到擗定的对象上。 题目要求文本框应具有数据过滤功能，即当在文本框中输入数据时，会自动完成对输入数据的检查，故要用 SetFocus方法使文本框获取焦点。 根据题意，将一个命令按钮和一个文本框控件添加到窗体中，命令按钮的名称为Commandl、 Caption属性为 “判断 ”，文本框的名称为 Textl、 Text属性为空。双击Commandl，进入代码窗口，编写
12、如下代码： Private Sub Commandl_Click() Dim a As Integer a=Val(Textl Text) 读取 Textl中读取的数 If a Mod 3=0 Then Unload Me当能被 3整除时，关闭窗口 Else Textl Text=“不能被 3整除 “ 当不能被 3整除时，在 Textl中显示 Textl SetFocus End If End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题在排序中，使用双重循环，外循环每循环一次，确定内循环的次数，内循环就是把本次循环中最 小的数，放在数组的最后
13、面，这样就可以实现对40个数的降序排序。原代码补充后如下： Dim a(40)As Long Dim str(40)As String Dim tex As String Dim i As Integer Private Sub Commandl Click() 读取数据 tex=“ Open“App Path& in5 dat“For Input As#1 For i=1 To 40 Input#1， a(i) 逐个读取40个数据 str(i)=a(i) tex： tex+str(i)+“ 将数组放到一个字符串中 Next i Close#1 Textl Text=tex 在 Textl中显示字符串 End Sub Private Sub Command3 Click() 保存数据 Open“App Path& out5 dat“For Output As#1 Print#1， Textl Text Close#1 End Sub 并在 Command2的 Click事件中编写以下代码： Private Sub Command2 Click() For i=1 To 40 降序排列 temp=a(i) For j=1 To i If a(j) 按钮运行程序，并按要求保存。
