一、基本操作題
請根據以下各小題的要求設計Visual Basic應用程式(包括介面和程式碼)。
(1) 在Form1的窗體上畫一個名稱為Label1的標籤，然後建立一個主選單，標題為“時間”，名稱為vbTime，該選單有兩個子選單，其標題分別為“上午”和“下午”，名稱分別為vbTimel和vbTime2。編寫適當的事件過程，使程式執行後，如果單擊“時間”選單中的“上午”命令，則在標籤中顯示 “8：00—12：00”;如果單擊“下午”命令，則標籤中顯示“12：00—18：00”。程式的執行情況如圖19-1和圖19-2所示。
注意：存檔時必須存放在考生資料夾下，工程檔名為，窗體檔名為。
(2) 在窗體上畫一個文字框，名稱為Text1，Text屬性為空。再畫一個列表框，名稱為List1，通過“屬性”視窗向列表框中新增3個專案，分別為“足球”、“籃球”和“排球”。編寫適當的事件過程，使程式執行後，在文字框中輸入一個字串，如果雙擊列表框中的任一項，則把文字框中的.字串覆蓋到該項上。程式的執行情況如圖19-3所示。
注意：存檔時必須存放在考生資料夾下，工程檔名為，窗體檔名為。
二、簡單應用題
(1) 在考生資料夾下有工程檔案及窗體檔案，該程式是不完整的。在窗體中有一個RichText文字框控制元件和一個文字框控制元件，名稱分別為RichTextBox1和Text1，兩個命令按鈕，名稱分別為Command1和Command2，標題分別為“讀入檔案”、“統計字數”。要求程式執行後，單擊“讀入檔案”按鈕，將考生資料夾下的的內容顯示到PdchTextBoxl中;單擊“統計字數”按鈕統計 RichTextBox1中有多少個字元，將結果顯示在Text1中。程式執行介面如圖19-4所示。
注意：請在有“?”的地方填入正確內容，然後刪除“?”及程式碼前的所有註釋符“'”，但不能修改其他部分。存檔時不得改變檔名和資料夾。
(2) 在考生資料夾下有工程檔案sj4.vbp及窗體檔案sj4.frm，該程式是不完整的。在窗體上有一個名為Image1的影象框，要求程式執行後，載入考生資料夾下的temp.bmp圖片，滑鼠左鍵單擊影象框中的圖片，則圖片變大;滑鼠右鍵單擊影象框中的圖片，則圖片變小。執行介面如圖19-5所示。
注意：請在有“?”的地方填入正確內容，然後刪除“?”及程式碼前的所有註釋符“'”，並設定適當的屬性，但不能修改其他部分。存檔時不得改變檔名和資料夾。
三、綜合應用題
在名稱為Form1的窗體上有一個Label控制元件和兩個命令按鈕，資料檔案存放員工的編號、姓名、工資。自定義一個數據型別 person，字元型資料定長為12;按“開始”按鈕後，從考生資料夾下的中讀出所有資料並寫入考生資料夾下的 檔案中;執行完畢，“開始”按鈕變成“完成”，且無效(變灰)，如圖19-6所示。
注意：去掉程式中的註釋符“'”，把程式中的“?”改為正確的內容。考生的工程檔案以檔名存檔，窗體檔案以檔名存檔。
【參考答案及解析】
一、基本操作題
(1)根據題意，新建“標準EXE”工程，在窗體上新增一個標籤，名稱為Label1，Caption屬性為空，再按“Ctrl+E”組合鍵開啟選單編輯器，新增以下選單項：
| 標籤 | 名稱 | 內縮 |
| 時間 | vbTime | 無 |
| 上午 | vbTime1 | 一位 |
| 下午 | vbTime2 | 一位 |
設定完成後，單擊選單進入程式碼編寫視窗，分別編寫vbTime1和vbTime2的處理函式，具體如下：
(2)根據題意，新建“標準EXE”工程，將一個列表框控制元件和一個文字框控制元件新增到窗體中，列表框的名稱設為List1，單擊其List屬性，在其中新增“足球”、“籃球”和“排球”，每輸入完一項按“Ctrl+Enter”組合建輸入下一項，當輸入完成後，按回車鍵。文字框的名稱為Text1、Caption屬性為空。雙擊List1，進入程式碼編寫視窗，具體程式碼如下：
二、簡單應用題
(1)本題主要考查了RichTextBox控制元件的用法。Rich-TextBox控制元件可以用LoadFile和SaveFile方法開啟或儲存檔案，LoadFile方法能將RTF檔案或文字檔案裝入控制元件，其格式為：物件.LoadFile檔案標誌符[，檔案型別];統計字元的個數可用Len(要統計的內容)函式。
根據題意，將一個RichTextBox1文字框和一個Text1文字框控制元件新增到窗體中，名稱分別為RichTextBox1和Text1、Caption屬性均為空，兩個命令按鈕的名稱分別為Command1和Command2、Caption屬性分別為“讀入檔案”和“統計字數”。雙擊Command1進入程式碼編寫視窗，具體程式碼如下：
(2)判斷滑鼠左鍵還是右鍵可以通過影象框的Mouse-Up事件的Button引數來判斷。MouseUp事件在釋放滑鼠按鈕時發生。根據題意，將一個影象控制元件新增到窗體中，其名稱為Image1、Picture屬性中載入temp.bmp圖片、Strech屬性為True，雙擊影象框進入程式碼編寫視窗，編寫如下程式碼：
三、綜合應用題
本題要利用EOF( )函式判斷是否到檔案末尾。根據題意，將一個標籤控制元件和兩個命令按鈕新增到窗體中，標籤控制元件的Caption屬性為“從原始檔./中讀人資料，儲存到目標檔案./中”，命令按鈕的名稱分別為Command1和Command2，Caption分別為“開始”和“儲存”，設定完成後雙擊Command1進入程式碼編寫視窗，具體程式碼如下：
