【考點分析】本題考點有：框架的Name和Caption屬性，單選按鈕的Name和Caption屬性以及復選框的Name和Caption屬性。

　　【解題思路】通過框架的Name和Caption屬性設置框架的名稱和標題，通過單選按鈕的Name和Caption屬性設置單選按鈕的名稱和標題，通過復選框的Name和Caption屬性設置復選框的名稱和標題。

　　【操作步驟】

　　步驟1：建立界面，添加相應的控件并設置控件的屬性。程序中的控件及屬性見表3.43。

　　步驟2：調試并運行程序，關閉程序后按題目要求存盤。

　　2在名稱為Form1的窗體上添加一個名稱為Shape1的形狀控件，通過設置參數使其形狀為圓形;添加一個名稱為Label1的標簽，標題為“形狀”，標簽的大小能夠根據標簽內容的字數、大小而定;添加一個名稱為Text1的文本框，文本框最多能夠顯示5個字符，文本框中初始內容為“圓形”，如圖所示.

　　注意：存盤時，將文件保存至考生文件夾下，且窗體文件名為sit1.frm，工程文件名為sjt1.vbp。

　　【考點分析】本題考點有：標簽的Name、Caption和AutoSize屬性，文本框的Name、Text和MaxLength屬性以及形狀控件的Name和Shape屬性。

　　【解題思路】Shape屬性用來設置形狀控件的形狀。其取值及邊框形狀如下。

　　取0值：矩形，默認設置;取1：正方形;取2：橢圓;取3：圓;取4：圓角矩形;取5：圓角正方形。

　　AutoSize屬性決定控件是否能自動調整大小以顯示所有的內容。

　　MaxLength屬性設置文本框中輸入的字符串長度。默認值為0，表示該單行文本框中字符串的長度只受操作系統內存的限制。如果設置為大于0的數，則表示能夠輸入的最大字符數目。

　　【操作步驟】

　　步驟1：新建一個窗體，按照題目要求建立形狀控件、標簽控件及文本框控件并設置其屬性，如圖3.27所示。程序中用到的控件及屬性見表3.36。

　　步驟2：調試并運行程序，關閉程序后按題目要求存盤。

　　二、簡單應用題

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

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

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

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

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

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

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

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

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

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

　　【操作步驟】

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

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

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

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

　　三、綜合操作題

　　5在考生文件夾下有一個工程文件sit5.vbp，窗體上有兩個命令按鈕，標題分別是“讀數據”和“統計”，請添加一個名稱為Label1、標題為“回文個數為”的標簽和一個名稱為Text1，初始內容為空的文本框，如圖所示。程序功能如下：

　　①單擊“讀數據”按鈕，則將考生文件夾下in.5.dat文件的內容讀到變量s中;

　　②單擊“統計”按鈕，則統計in5.dat文件(該文件中僅含由空格間隔開的字符串)中回文的個數，并將統計的回文個數顯示在Textl文本框內(所謂回文是指順讀與倒讀都一樣的字符串，如“recycer”)。“讀數據”和“統計”按鈕的Click事件過程已經給出，請完善foundhuiwen過程的功能，實現上述程序功能。

　　注意：考生不得修改窗體文件中已存在的控件和程序，在結束程序運行之前，必須先進行統計，且必須用窗體右上角的關閉按鈕結束程序，否則無成績。最后，程序按原文件名存盤。

　　【考點分析】本題考點有：StrReverse()函數、Mid()函數、文件編輯、LOF()函數、Input()函數、For循環語句以及If判斷語句。

　　【解題思路】StrReverse()函數用于返回一個字符串，其中一個指定子字符串的字符順序是反向的。Mid()函數用于取字符子串。

　　【操作步驟】

　　步驟1：打開本題工程文件，按照題目要求建立控件并設置屬性，如表3.29所示。

　　步驟2：打開代碼編輯窗口，在代碼編輯窗口指定位置編寫以下代碼。

　　參考答案：

　　Function foundhuiwen(p As String)

　　If StrReverse(P)=P Then foundhuiwen

　　=True'StrReverse函數的功能是將字符串順序反轉

　　End Function

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

　　【易錯提示】StrReverse()函數是一個不常見的函數，在運用的時候要了解函數的語法才能應用自如。