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