第一部分 上機實驗

實驗1 熟悉Visual Basic 6.0編程環境

實驗目的

（1）掌握Visual Basic的啟動與退出方法。

（2）掌握建立、編輯和運行一個簡單的Visual Basic應用程序的步驟和過程。

實驗內容

【實驗1.1】

創建一個新工程，建立的用戶界面如圖1-1-1所示。程序運行時，單擊窗體可以改變標簽中的文字顏色。然后以sx-1.frm和sx-1.vbp文件名將編寫的程序保存在磁盤上。

實驗步驟如下。

（1）啟動Visual Basic 6.0。啟動Visual Basic 6.0的方法有多種，通常可以雙擊桌面上的快捷圖標進行啟動。

（2）啟動Visual Basic 6.0后，在系統彈出的“新建工程”對話框中，詢問要創建的工程類別，系統默認的類別是創建一個“標準EXE”應用程序。在此，直接單擊“打開”按鈕，進入編寫程序的狀態。

（3）現在就可以改變系統提供的窗體Form1的屬性了。注意，此時窗體Form1的四周有8個小方框，表示窗體對象處于被選中狀態。8個小方框中有3個是實心藍色的，將鼠標指針移動到這些實心小方框上，按住鼠標移動，就可以改變窗體的大小。改變窗體的大小其實就是改變窗體的Height和Width屬性。因此，也可以直接在屬性窗口中對這兩個屬性進行修改，例如，可以把窗體的Height值設為2000，Width值設為3800，還可以把窗體的Caption屬性值設為“實驗1.1”。

（4）向窗體Form1中增加一個文本框（Text1），并用鼠標將其選中（選中時，周邊有8個藍色小方塊）。在屬性窗口中將Text1的Text屬性設為“開始VB編程！”。在屬性窗口中找到Font屬性，單擊其右側的按鈕，在彈出的“字體”對話框中可以對標簽的字體、字號進行設置。在此，可以選擇“隸書”、二號字，再單擊“確定”按鈕，關閉“字體”對話框。

（5）為了在程序運行過程中讓文字改變顏色，可以對窗體編寫一段單擊事件過程，具體方法是：雙擊窗體，打開代碼編輯窗口（見圖1-1-2），在過程框中選擇單擊事件Click，代碼窗口中出現相應的Form_Click()過程框架：

Private Sub Form_Click() 
 
End Sub

在上述兩行代碼之間添加如下兩行代碼：

Form1.BackColor = QBColor(Int(Rnd * 16)) 
Text1.ForeColor = QBColor(Int(Rnd * 16)) 

這兩條語句的作用是，窗體的背景顏色屬性和文本框的文本顏色屬性由隨機數來確定，這樣每次單擊窗體時，窗體和文本框的文字顏色就會隨機變化。語句中使用的QBColor是顏色函數，Int是取整函數，Rnd是隨機數函數。

（6）單擊工具欄中的啟動按鈕或按F5鍵運行程序。如果程序編寫正確，屏幕上就會出現相對于圖1-1-1，所示的窗體運行界面，單擊窗體，標簽上的文字就會改變顏色。如果程序編寫有錯誤，系統會給出錯誤信息，可以按照提示修改程序，然后再運行。若要結束程序的運行，可以單擊工具欄上的終止運行按鈕。

（7）程序能正確運行后，應及時保存。注意，一個Visual Basic工程至少包含兩個磁盤文件，應分別進行保存。選擇“文件”下拉菜單中的“保存工程”命令，系統彈出圖1-1-3所示的“文件另存為”對話框，用于保存窗體文件。此時，可以選擇文件的存放位置和文件名。建議不使用系統提供的默認文件名，而是輸入自己指定的文件名。這里，在“文件名（N）”文本框中輸入sx-1，然后單擊“保存”按鈕。保存窗體文件后，系統又彈出“工程另存為”對話框，用于保存工程文件。同樣，在“文件名（N）”文本框中輸入sx-1，然后單擊“保存”按鈕。這樣就完成了保存該工程文件的任務。以后要在Visual Basic環境中打開該工程時，直接打開工程文件sx-1.vbp即可。

（8）前面保存的工程文件只能在Visual Basic編程環境中運行。如果想脫離編程環境直接運行該程序，就需要將其生成可執行文件。選擇“文件”菜單中的“生成sx-1.exe”命令，系統彈出“生成工程”對話框，確認要生成的應用程序文件名為sx-1.exe以及該文件的存放位置后，單擊“確定”按鈕，系統就會按照指定的文件名和路徑生成可獨立運行的exe文件。

（9）退出Visual Basic系統。退出的方法有多種，可以在“文件”菜單中選擇“退出”命令進行退出。一般情況下，系統在退出前會提示是否保存工程文件，此時根據需要進行選擇即可。

說明如下。

（1）雙擊窗體打開代碼編輯窗口時，系統默認提供的是窗體裝載過程框架。

Private Sub Form_Load() 
 
End Sub 

注意不要把代碼直接加入該框架，而是選擇單擊Click事件過程框架。

（2）VB不區分大小寫字母，小寫字母“l”和數字“1”、小寫字母“o”和數字“0”的形狀幾乎相同，在輸入程序代碼時要注意，千萬不能混淆。

【實驗1.2】

編程實現：當程序開始運行時，窗體上的標題欄顯示“這是測試單擊雙擊的實驗”；當用戶單擊（Click）窗體Form1時，窗體上顯示“您在窗體上單擊了鼠標”；用戶雙擊（DblClick）窗體Form1時，窗體上顯示“這次在窗體上雙擊了鼠標”，如圖1-1-4所示。

本實驗的目的是理解窗體的裝載（Form_Load）、單擊（Click）和雙擊（DlbClick）事件。

實驗步驟如下。

（1）建立一個新工程，用窗體的Font屬性把字體設為黑體、四號字。

（2）編寫窗體的Form_Load事件過程代碼：

Private Sub Form_Load() 
    Form1.Caption = "這是測試單擊雙擊的實驗" 
End Sub 

（3）編寫窗體的Click事件過程代碼。

Private Sub Form_Click() 
    Print "您在窗體上單擊了鼠標" 
End Sub 

（4）編寫窗體的DblClick事件過程代碼。

Private Sub Form_DblClick() 
    Print "這次在窗體上雙擊了鼠標" 
End Sub

（5）調試、運行程序。

【實驗1.3】

建立一個新工程，練習標簽、文本框和命令按鈕的使用。

實驗步驟如下。

（1）在窗體上添加1個標簽（Label1）、1個文本框（Text1）和2個命令按鈕（Command1、Command2）。將標簽和文本框的Font屬性都設置為“宋體”“小三號”，Text屬性設置為空；將兩個命令按鈕的Caption屬性分別設為“顯示標簽”和“顯示文本”，如圖1-1-5所示。

（2）雙擊窗體，進入代碼編輯窗口。

編寫窗體的Form_Load事件過程，使得窗體啟動時看不見標簽和文本框，代碼如下。

Private Sub Form_Load() 
    Label1.Visible = False 
    Text1.Visible = False 
End Sub

（3）編寫命令按鈕Command1的Click事件（顯示標簽）過程代碼。

Private Sub Command1_Click() 
    Label1.Visible = True 
    Label1.Caption = "我是標簽" 
End Sub 

（4）編寫命令按鈕Command2的Click事件（顯示文本）過程代碼。

Private Sub Command2_Click() 
    Text1.Visible = True 
    Text1.Text = "我是標簽" 
End Sub

（5）調試、運行程序，其運行結果如圖1-1-6所示。