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