【考點分析】本題考點有：文本框的Name、Text和PasswordChar屬性，命令按鈕的Name和Caption屬性，標簽的Name和Caption屬性以及文本框的SetFocus方法。

　　【解題思路】PasswordChar屬性用來設置是否在控件中顯示用戶輸入的字符。如果該屬性設置為某一字符，那么無論Text屬性值是什么，在文本框中都只顯示該字符。另外，MultiLine屬性必須設置為False。運用SetFocus方法使文本框獲得焦點。

　　【操作步驟】

　　步驟1：新建一個窗體，按照題目要求建立標控件，程序中用到的控件及屬性見表3.34和表3.35。

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

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

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

　　2在名稱為Forml的窗體上添加一個名稱為Pl的圖片框，請編寫適當的事件過程，使得程序在運行時，每單擊一次圖片框，就在圖片框中輸出“單擊圖片框”，每單擊圖片框外的窗體一次，就在窗體中輸出“單擊窗體”，運行時的窗體如圖所示。要求在程序中不得使用變量，每個事件過程中只能寫一條語句。

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

　　【考點分析】本題考點有：圖片框的Name屬性、Print方法和Click事件以及窗體的Print方法和Click事件。

　　【解題思路】通過圖片框Name屬性設置圖片框的名稱，運用圖片框Print方法，使圖片框上顯示字符，運用窗體Print方法，使窗體上顯示字符。

　　【操作步驟】

　　步驟1：新建一個窗體，按照題目要求建立控件并設置其屬性，如圖3.13所示。

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

　　參考答案

　　Private Sub Form_Click()

　　Forml.Print"單擊窗體"

　　End Sub

　　Private Sub P1_Click()

　　P1.Print"單擊圖片框"

　　End Sub

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

　　3在考生文件夾下有一個工程文件sjt3.vbp。窗體上有個鐘表圖案，其中代表指針的直線的名稱是Linel，還有一個名稱為Labell的標簽和其他一些控件(如圖1所示)。在程序運行時，若用鼠標右鍵單擊圓的邊線，則指針恢復到起始位置(如圖1所示);若用鼠標左鍵單擊圓的邊線，則指針指向鼠標單擊的位置(如圖2所示);若鼠標左鍵或右鍵單擊其他位置，則在標簽上輸出“鼠標位置不對”。

　　文件中已經給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內容。程序中的0ncircle函數的作用是判斷鼠標單擊的位置是否在圓的邊線上(判斷結果略有誤差)，是則返回True，否則返回False。符號常量如、yO是圓心距窗體左上角的距離;符號常量radius是圓的半徑。

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

　　【考點分析】本題考點有：Const語句，Abs()函數，坐標值，線條的Xl、Yl、X2和Y2屬性，If判斷語句以及For循環語句。

　　【解題思路】Const用來設置符號常量，Functiononcircle()函數則用來判斷鼠標單擊的位置是否在圓的邊界上，通過調用Functiononcircle()函數實現對鼠標單擊位置的判斷，如果在其他位置，則在標簽上顯示“鼠標位置不對”，線條的xl、Y1、X2和Y2屬性用來確定指針位置和大小，Button的值用來判斷是右鍵單擊還是左鍵單擊，確定指針指向。

　　【操作步驟】

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

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

　　參考答案：

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