1、VB机试模拟试卷 96及答案与解析 一、基本操作题（ 30分） 1 (1)在窗体上画一个列表框，名称为 Listl，通过属性窗口向列表框中添加 3个项目，分别为 “Iternl”、 “Item2”和 “1tem3”。编写适当的事件过程。使程序运行后，如果双击。 Form1空白处，则清空列表框中的内容。程序运行时窗体界面如图 15一1、 152所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为sjl frm。 (2)在窗体上画两个命令按钮，名称分别为 Command1、 Command2、标题分别为 “启用 ”、 “禁用 ”，一个名称为 Textl的 Text
2、控件。请编写适当的事件过程，使得程序在运行时，单击 “启用 ”按钮， Text1会变为有效，而当单击 “禁用 ”命令按钮 Textl变为无效。程序中不得使用任何变量，程序运行时的窗体界面如图153、 154所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为 sj2 vbp。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有工程 sj3 vbp及窗体文件 sj3 frm，该窗体和程序是不完整的。在窗体上画一个名称为 Combo1的组合框，画两个名称分别为 Labell和Label2、 Caption属性分别为 “选项 ”和空白的标签。程序运行后，当在组合框
3、中输入一个新项后按回车键 (ASCII码为 13)时，由自动添加到组合框列表中，并在Label2中给出提示 “已添加成功 ”。程序运行效果如图 603所示。 注意：请在有“?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程sj4 vbp及窗体文件 sj4 frm，该程序是不完整的。在窗体上有一个 文本框 (内容 )与两个命令按钮，名称分别为 Textl、 Commandl与 Command2。其中 Commandl的标题为 “生成数据 ”； Command2的标题为 “显示奇数 ”。要求
4、程序运行时，单击 “生成数据 ”按钮，则自动生成 80个 0 800之间的随机整数，并在文本框中显示；单击 “显示奇数 ”，则将这 80个数据中的奇数显示到文本框中。程序运行时的窗体界面如图 604所示。 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 三、 综合应用题（ 30分） 3 在考生文件夹下提供了一个通用过程，可供考生直接调用。请在窗体上绘制一个名称为 Textl的文本框，绘制一个名称为 C1、标题为 “计算 ”的命令按钮和两个名称分别为 0p1和 Op2、标题分别为 “求 200 3
5、00之间能被 7整除的数之和 ”和 “求200 300之间能被 3整除的数之和 ”的单选按钮，如图 445所示。编写适当的事件过程，使得在程序运行后，选中一个单选按钮，再单击 “计算 ”按钮，就可以按照单选按钮后的文字要求计算。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj5 frm，工程 文件名为sj5 vbp。在结束程序运行之前，至少要进行一种计算，否则无成绩。 VB机试模拟试卷 96答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)列表框控件用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其 List属性设置加入 (注意每输入完一项后按“
6、Ctrl+Enter”组合键换行再输入下一项 )，也可在程序运行时通过代码 “列表框名 AddItem“项目 ”加入，清除窗体内容可通过 Cls方法来实现。 根据题意，新建“标准 EXE”工程，将一个 List控件添加到窗体中， 其名称为 Listl，在属性窗 VI的list属性中添加 “heml”、 “Item2”和 “Item3”，每输入一个后按 “Ctrl+Enter”组合键换行输入下一个元素，当输入完成后，按回车键，则元素添加完成，双击 Forml的空白处，进入代码编写窗口，编写如下代码： Private Sub Form_DblClick() Dim i As Integer For
7、 i=Lstl ListCount-1 To 0 Step-1 先删除索引大的项，防止 i溢出 Listl RemoveItem i移除索引指定项 Next i End Sub 单击 按钮运行程序，并按要求保存。 (2)命令按钮 (CommandButton)常用来建立实现某种命令，通过命令按钮的Caption属性设置其标题；控件是否有效由其 Enabled属性来设置，值为 True表示有效，值为 False表示无效；单击命令按钮将触发其 Click事件。 要实现程序运行时单击某个按钮使文本框变为无效，只需在编写该按钮的 Click事件过程中修改文本框的 Enabled属性值即可。 根据题意，
8、新建 “标准 EXE”工程，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称 为 Textl，命令按钮的名称分别为Commandl和 Command2， Caption属性分别为 “启用 ”和 “禁用 ”。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Textl Enabled=True 启用 Textl End Sub Private Sub Command2_Click() Textl Enabled=False 禁用 Textl End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正
9、确答案】 (1)组合框 (ComboBox)将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目；组合框的列表项既可以在设计阶段通过其 List属性设置加入 (注意每输入完一项后按 Ctrl+Enter键换行再输人下一项 )，也可在程序运行时通过语句 “组合框名 Addhem项目 ”加入；程序运行时可通过 List(Index)属性返回或设置指定索引号的列表项，设置列表项的语法为 “组合框名 List(Index)=字符串 ”；属性 Listlndex用于返回当前选择的项目的索 引号。 根据题意，将一个 ComboBox控件和两个标签添加到窗体中，Com
10、boBox的名称为 Combol、 Style属性为 0，标签的名称分别为 Labell和Label2、 Caption属性分别为选项和空。双击 Combol进入代码编写窗口，在Combol_KeyDown事件中补充以下代码： Private Sub Combol_KeyDown(KeyCode As Integer， Shift As Integer) If KeyCode=13 Then13为回车键的 ASCII码值 Comb01 Addltem Comb01 Text Label2 Caption=“已添加成功 “ 在 Label2上显示添加成功 End If End Sub 单击 按钮
11、运行程序，并按要求保存。 (2)本题主要考查Rnd()函数和求余运算符 Mod的使用。 Rnd()函数用于产生一 0， 1的随机数。 Mod运算符常用来判断一个数能否被另一个数整除。 程序补充后的代码如下： Dim a(80)As Integer Dim rel As String Private Sub Commandl_Click() Dim i As Integer rel=“ For i=1 To 80 a(i)=Rnd()*(800-0) rel=rel+CStr(a(i)+“ Next i Textl Text=rel End Sub Private Sub Command2 Cl
12、ick() rel=“ For i=1 To 80 If a(i)Mod 2=1 Then rel=rel+CStr(a(i)+“ End If Next i Textl Text=rel End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题主要考查循环程序设计思想的使用。程序中提供的事件过程用来求 200 300之间能被 n整除的数之和，这里 n是传递给 Function过程的参数，该 Function过程返回所求得的和。 文本框用 Text属性来接收用户的输入。按钮的标题通过 Caption属性来设置，单击按钮触发的是 Click事件。为了
13、检测单选按钮是否被选中，可以通过检测其 Value属性来实现，当 Value属性为 True时，表示该单选按钮被选中，否则未被选中。在按钮的 Click事件过程中通过条件语句来调用 Function过程，实现 程序要求的功能。 建立控件并设置控件属性。程序中用到的控件及其属性见下表： 打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下： Private Function fun(a As Integer)As Integer s =0 For i =200 To 300 If Int(i a)=i a Then s =s +i End If Next i fun=s E
14、nd Function Private Sub C1_Click() If Opl Value Then Textl=fun(7) End If If Op2 Value Then Textl=fun(3) End If End Sub Private Sub Form_Unload(Cancel As Integer) Opl Value=False Op2 Value=True C1 Click Open“out txt“For Output As#1 Print#1， Opl Value， Op2 Value， Textl Text Close#l End Sub 调试并运行程序。 按题目要求存盘。
