在名称为Form1的窗体上添加一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为M1、M2、M3。请编写适当的事件过程，在程序运行时，当用鼠标右键单击文本框时，弹出菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt3.vbp, 窗体文件名保存为sjt3.frm。
参考答案：[操作步骤]
步骤A：新建一个窗体，按照题目要求建立名称为“TextA”的文本框控件及一个弹出式菜单并设置菜单属性，程序中用到菜单属性见表。
步骤B：打开代码编辑窗口，在指定位置编写如下代码。 标题控件 (任意) 加粗 斜体 下划线 名称 Format MA MB MC 内缩符号 0 A A A
参考答案：
Private Sub MA_Click()
TextA.FontBold=True’设置字体为加粗
End Sub
Private Sub MB_Click()
TextA.FontItalic=True’设置字体为斜体
End Sub
Private Sub MC_Click()
TextA.FontUnderline=True’为文字加下划线
End Sub
Private Sub TextA_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=B Then’判断是否执行该事件
Me.PopupMenu Format’显示菜单
End If
End Sub
步骤C：调试并运行程序，关闭程序后按题目要求存盘。
解析：[考点] 本题考点有：菜单编辑器的使用(名称、标题、内缩符号、Visible)，PopupMenu方法，文本框的FontBold、FontItalic和FontUnderline属性以及If判断语句。
PopupMenu方法用来显示弹出菜单，语法格式为：
object.PopupMenu menuname，flags，x，y，boldcommand
要创建弹小式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见(Visible)属性值设置为False，然后在对象的MouseDown(或MouseUp)事件过程中判断该事件的Button参数值是否为2，如果是则执行对象的PopupMenu方法来显示菜单。
注意不要混淆鼠标左右键的键值。