[多項(xiàng)選擇題] 在名稱為Form1的窗體上添加一個(gè)名稱為Text1的文本框，再建立一個(gè)名稱為Format的彈出式菜單，含三個(gè)菜單項(xiàng)，標(biāo)題分別為“加粗”、“斜體”、“下劃線”，名稱分別為M1、M2、M3。請(qǐng)編寫適當(dāng)?shù)氖录^程，在程序運(yùn)行時(shí)，當(dāng)用鼠標(biāo)右鍵單擊文本框時(shí)，彈出菜單，選中一個(gè)菜單項(xiàng)后，則按所選菜單標(biāo)題設(shè)置文本框中文本的格式，如圖所示。

注意：存盤時(shí)必須存放在考生文件夾下，工程文件名保存為sjt3.vbp, 窗體文件名保存為sjt3.frm。

[操作步驟] 步驟A：新建一個(gè)窗體，按照題目要求建立名稱為“TextA”的文本框控件及一個(gè)彈出式菜單并設(shè)置菜單屬性，程序中用到菜單屬性見表。 標(biāo)題控件 (任意) 加粗 斜體 下劃線 名稱 Format MA MB MC 內(nèi)縮符號(hào) 0 A A A 步驟B：打開代碼編輯窗口，在指定位置編寫如下代碼。 Private Sub MA_Click() TextA.FontBold=True’設(shè)置字體為加粗 End Sub Private Sub MB_Click() TextA.Font

[考點(diǎn)] 本題考點(diǎn)有：菜單編輯器的使用(名稱、標(biāo)題、內(nèi)縮符號(hào)、Visible)，PopupMenu方法，文本框的FontBold、FontItalic和FontUnderline屬性以及If判斷語句。 PopupMenu方法用來顯示彈出菜單，語法格式為： object.PopupMenu menuname，flags，x，y，boldcommand 要?jiǎng)?chuàng)建彈小式菜單需先用菜單編輯器來建立菜單，并將其主菜單項(xiàng)的可見(Visible)屬性值設(shè)置為False，然后在對(duì)象的MouseDown(或MouseUp)事件過程中判斷該事件的Button參數(shù)值是否為2，如果是則執(zhí)行對(duì)象的PopupMenu方法來顯示菜單。 注意不要混淆鼠標(biāo)左右鍵的鍵值。