2. 簡單應用(2小題，每題20分，計40分)

　　注意：下面出現的“考生文件夾”均為%USER%

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

　　*注意：

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

　　解題思路：

　　啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。

　　在該窗體上畫一個文本框控件，通過其屬性窗口將名稱設為Text1。通過菜單編輯器建立一個主菜單，在菜單編輯器的標題處輸入“格式”(題目沒有要求)，名稱處輸入Format，將“可見”單選按鈕設為不選狀態(tài)。

　　在該菜單下有三個子菜單，在菜單編輯器的標題處分別輸入“加粗”、“斜體”、“下劃線”，名稱處分別輸入M1、M2、M3。

　　右鍵單擊文本框，在彈出的菜單中選擇“加粗”命令(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub m1_Click()

　　Text1.Font.Bold = True

　　End Sub

　　右鍵單擊文本框，在彈出的菜單中選擇“斜體”命令(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub m2_Click()

　　Text1.Font.Italic = True

　　End Sub

　　右鍵單擊文本框，在彈出的菜單中選擇“下劃線”命令(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub m3_Click()

　　Text1.Font.Underline = True

　　End Sub

　　在文本框中右鍵按下鼠標(即運行MouseDown事件過程)，在該MouseDown事件過程中加入語句：

　　Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

　　If Button = 2 Then '2表示右鍵的值

　　PopupMenu format

　　End If

　　End Sub

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt3.vbp、sjt3.frm、sjt3.vbw

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt3.vbp文件并運行。

　　(2)在考生文件夾下有一個工程文件sjt4.vbp，含有Form1和Form2兩個窗體，Form1為啟動窗體，窗體上的控件如圖1所示。程序運行后，在Form1窗體的文本框中輸入有關信息(“密碼”框中顯示“*”字符)，然后單擊“提交”按鈕則彈出“確認”對話框(即Form2窗體)，并在Form2中顯示輸入的信息，如圖2所示。單擊“確認”按鈕則程序結束，單擊“重輸”按鈕，則Form2消失，回到Form1窗體。在給出的窗體文件中已經給出了程序，但不完整。

　　要求：

　　1)把Form1的標題改為“注冊”，把Form2的標題改為“確認”;

　　2)設置適當的屬性，使Form2標題欄上的所有按鈕消失(如圖2所示);

　　3)去掉程序中的注釋符，把程序中的 ?改為正確的內容。

　　注意：不能修改程序中的其他部分，標題等屬性的修改只能在屬性窗口中進行。最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應的窗體文件名為sjt4.frm。

　　由于所提供的窗體控件不完整，通過其屬性窗口將Form1的標題(Caption屬性)設為“注冊”，Form2的標題(Caption屬性)設為“確認”，將Form2的所有按鈕(ControlBox屬性)設為False。

　　由于所提供的窗體程序不完整，在“確認”按鈕的Private Sub C1_Click()中，有三處地方需要修改。

　　1) 將語句

　　'Form2. ?

　　改為

　　Form2.Show

　　2) 將語句

　　'Form2.Print Form1.Frame1. ?

　　改為

　　Form2.Print Form1.Frame1.Caption

　　3) 將語句

　　'If Form1.Op1( ? ).Value Then

　　改為

　　If Form1.Op1(k).Value Then

　　在窗體的Private Sub Form_Load()中，有一處地方需要修改。

　　1) 將語句

　　'Text2. ? = "*"

　　改為

　　Text2.PasswordChar = "*"

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt4.vbp文件并運行。

　　相關推薦：

　　2012年計算機等考四級數據庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總