2015年计算机二级考试《VB》全真机考操作题（一）

      3在名称为Form1的窗体上添加一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、一F划线”，名称分别为M1、M2、M3。请编写适当的事件过程，在程序运行时，当用鼠标右键单击文本框时，弹出菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。

参考解析：

【考点分析】本题考点有：菜单编辑器的使用(名称、标题、内缩符号、Visible)，PopupMenu方法，文本框的Font-Bold、FontItalie和FontUnderline属性以及J：f判断语句。

【解题思路】PopupMenu方法用来显示弹出菜单，语法格式为：

object.PopupMenumenuname，flags，x，Y，boldcormrlanti要创建弹出式菜单需先用菜单编辑器来建立菜单。并将其主菜单项的可见(Visible)属性值设置为False，然后在对象的MouseDown(或MouseUP)事件过程中判断该事件的Bumm参数值是否为        2，如果是则执行对象的PopupMenu方法来显示菜单。

【操作步骤】

步骤1：新建一个窗体，按照题目要求建立名称为“Textl”的文本框控件及一个弹出式菜单并设置菜单属性。

程序中用到菜单属性见表3.32。

步骤2：打开代码编辑窗门.在指定位置编写如下代码。

参考答案

Private Sub M1_Click()

Text1.FontBold=True’设置字体为加粗

End Sub

Prirate Sub M2_CliCk()

Text1.FontItalic=True’设置字体为斜体

End Sub

Prirate Sub M3_Click()

Text1.FontUnderline=True'为文字加下划线

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【易错提示】注意不要混淆鼠标左右键的键值。

        4考生文件夹下有一个工程文件sit3.vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为Commandl、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为Combol的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。

参考解析：

【考点分析】本题考点有：组合框的List属性、文本框的Text属性、MsgBox()函数、ASCIl码以及If判断语句。

【解题思路】单击命令按钮，运用组合框的List属性将文本框中的数字添加到组合框中，通过ASCIl码来判断输入的是否为数字字符。

【操作步骤】

步骤1：打开本题工程文件。

步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。

参考答案(阴影部分是需考生填入的内容)

步骤3：调试并运行程序，关闭程序后按题目要求存盘。