二、簡單應用題

　　3在名稱為Form1的窗體上添加一個名稱為Text1的文本框，再建立一個名稱為Format的彈出式菜單，含三個菜單項，標題分別為“加粗”、“斜體”、一F劃線”，名稱分別為M1、M2、M3。請編寫適當?shù)氖录�過程，在程序運行時，當用鼠標右鍵單擊文本框時，彈出菜單，選中一個菜單項后，則按所選菜單標題設置文本框中文本的格式，如圖所示。

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

　　參考解析：

　　【考點分析】本題考點有：菜單編輯器的使用(名稱、標題、內(nèi)縮符號、Visible)，PopupMenu方法，文本框的Font-Bold、FontItalie和FontUnderline屬性以及J：f判斷語句。

　　【解題思路】PopupMenu方法用來顯示彈出菜單，語法格式為：

　　object.PopupMenumenuname，flags，x，Y，boldcormrlanti要創(chuàng)建彈出式菜單需先用菜單編輯器來建立菜單。并將其主菜單項的可見(Visible)屬性值設置為False，然后在對象的MouseDown(或MouseUP)事件過程中判斷該事件的Bumm參數(shù)值是否為2，如果是則執(zhí)行對象的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：調(diào)試并運行程序，關閉程序后按題目要求存盤。

　　【易錯提示】注意不要混淆鼠標左右鍵的鍵值。

　　4考生文件夾下有一個工程文件sit3.vbp。程序的功能是：通過鍵盤向文本框中輸入數(shù)字，如果輸入的是非數(shù)字字符，則提示輸入錯誤，且文本框中不顯示輸入的字符。單擊名稱為Commandl、標題為“添加”的命令按鈕，則將文本框中的數(shù)字添加到名稱為Combol的組合框中。在給出的窗體文件中已經(jīng)添加了全部控件，但程序不完整。要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。

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

　　參考解析：

　　【考點分析】本題考點有：組合框的List屬性、文本框的Text屬性、MsgBox()函數(shù)、ASCIl碼以及If判斷語句。

　　【解題思路】單擊命令按鈕，運用組合框的List屬性將文本框中的數(shù)字添加到組合框中，通過ASCIl碼來判斷輸入的是否為數(shù)字字符。

　　【操作步驟】

　　步驟1：打開本題工程文件。

　　步驟2：打開代碼編輯窗口，去掉程序中的注釋符“'”，將問號改為正確的內(nèi)容。

　　參考答案(陰影部分是需考生填入的內(nèi)容)

　　步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。

　　相關推薦：

　　2015年計算機二級考試《VB》復習重點匯總

　　2015年計算機二級《MSOffice》全真模擬試題匯總