1、VB机试模拟试卷 195及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在Forml的窗体上画一个名称为 Picl的图片框，然后建立一个主菜单，标题为 “命令 ”，名称为 Com，该菜单有两个子菜单，其标题分别为 “输出 ”和 “删除 ”，名称分别为 Pri和 Del，编写适当的事件过程。程序运行后，如果单击 “命令 ”菜单中的 “输出 ”命令，则将图片框显示出来；如果单击 “删除 ”命令，则隐藏图片框。程序的运行时的窗体界面如图 111和图 112所示。注意：存盘时必须存放在考生文件夹下，工程文件名为
2、sjl vbp，窗体文件名为sjl frm。程序中不得使用任何变量。 (2)在窗体上画一个列表框，名称为 Listl，通过 “属性 ”窗口向列表框中添加 3个项目，分别为 “足球 篮球 ”和 “排球 ”。编写适当的事件过程，使程序运行后，每次单击列表框中的任何一项，则总在最后面添加一项 “体育活动 ”。程序运行界面和运行效果分别如图 113和图 114所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为sj2 frm。程序中不得使用任何变量 。 二、简单应用题（ 40分） 2 有一个工程文件 ylc6.vbp，请在窗体中画一个组合框和一个命令按钮。程序的功能是在
3、运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目；如果已有此项，则弹出提示： “已有此项 ”，之后清除输入的内容。界面如图20所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc6.vbp，窗体文件名为 ylc6.frm。 三、综合应用题（ 30分） 3 在考生文件夹中有一个工程文件 execise2.vbp及窗体文件 execise2.frm。在名为Form1的窗体上有一个文本框，名称为 Text1：还有两个命令按钮，名称分别为Cmd1和 Cmd2，标题分别为 “计算 ”和 “保存 ”，如下图所示。 有一个函数过程 isprime可以在程序中直接调用，其功能
4、是判断参数 a是否为素数，如果是素数，则返回 True，否则返回 False。 编写适当的事件过程，使得在运行时，单击 “计算 ”按钮，则找出大于 5000的第 1个素数，并显示在 Text1中：单击 “保存 ”按钮，则把 Text1中的计算结果存入考生文件夹下的out2.txt文件中。 注意： 考生不得修改 isprime函数过程和控件的属性 ，必须把计算结果通过 “保存 ”按钮存入 out2.txt文件中，否则无成绩。 VB机试模拟试卷 195答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程将一个图片控件添加到窗体中，其名称设为 Picl
5、，按 “Ctrl+E”组合键打开菜单编辑器，在其中添加如下菜单项： 设置完成后双击输出命令进入代码窗口，编写如下代码： Private Sub Del_Click() 单击删除命令事件 Picl Visible=False End Sub Private Sub Pri_Click()单击输出命令事件 Picl Visible=True End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个 List控件添加到窗体中，其名称为 Listl。在其 List属性中按题目要求输入项目，每输完一个后按 “Ctrl+Enter”组合键换行， 输入下一个元素
6、，最后按回车键结束输入，双击 List，进入代码编写窗口编写如下代码： Private Sub Listl_Click() Listl Addltem“体育活动 “ 添加选项 End Sub单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 1操作步骤 (1)在 Visual Basic集成环境中选择 “文件 ”“ 打开工程 ”命令，在对话框中选择 ylc6.vbp工程文件，单击 “确定 ”按钮打开。 (2)选择工具中的 ComboBox控件，在窗体中画命名 为 Comboll的组合控件。在属性窗口分别设置它们的名称、 Text属性为空。 (3)在属性编辑框中设置
7、 Comboll组合控件的 List属性，其初始数据为 “语文 ”、“数学 ”、 “英语 ”、 “物理 ”、 “化学 ”、 “生物 ”、 “历史 ”、 “政治 ”和 “地理 ”。 (4)在工具箱中选择命令按钮控件，在窗体上拖动创建并命名为 Command1，标题为 “确定 ”。 2行为编码 在代码框选择 Command1对象和 Click事件，代码如下： Private Sub Command1_Click() For i=0 To Combol. ListCount-1 If Combol.List(i)=Combol.Text Then 清除输入内容 Combol.Text=“ “ Msg
8、Bok(“已有此项 “) End If Next i End Sub 3存盘保存 执行 “文件 ”“ 保存工程 ”命令，工程文件名为 ylc6.vbp，窗体文件名为ylc6.frm。 【试题 解析】 (1)这是一道简单的应用题，主要考查 ComboBox控件的相关特性、数据的初始化、项目的多少、程序设计中循环结构的编程，以及程序中提示信息对话框的使用。 (2)代码中使用组合控件的 ListCount属性，得到控件数据的个数，使用 Comboll的 List属性得到 Comboll内某项字符中的值。在 For.Next循环中将输入的字符串与 Comboll内的字符串逐个比较。如果输入的字符串在控件中已存在，则使用MsgBox信息捉示框显示提示信息。 三、综合应用题（ 30分） 3 【正确答案】
