[多项选择题] 在名称为Form1的窗体上添加一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为M1、M2、M3

[多项选择题] 在名称为Form1的窗体上添加一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为M1、M2、M3。请编写适当的事件过程，在程序运行时，当用鼠标右键单击文本框时，弹出菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt3.vbp, 窗体文件名保存为sjt3.frm。

参考答案：

[操作步骤] 步骤A：新建一个窗体，按照题目要求建立名称为“TextA”的文本框控件及一个弹出式菜单并设置菜单属性，程序中用到菜单属性见表。 标题控件 (任意) 加粗 斜体 下划线 名称 Format MA MB MC 内缩符号 0 A A A 步骤B：打开代码编辑窗口，在指定位置编写如下代码。 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方法来显示菜单。 注意不要混淆鼠标左右键的键值。