《VB實(shí)用教程》實(shí)驗(yàn)指導(dǎo)書.doc

VB實(shí)用教程實(shí)驗(yàn)指導(dǎo)書目 錄實(shí)驗(yàn) 1 設(shè)計(jì)簡(jiǎn)單的Visual Basic應(yīng)用程序 實(shí)驗(yàn) 2 Visual Basic語言基礎(chǔ)實(shí)驗(yàn) 3 順序結(jié)構(gòu)程序設(shè)計(jì)實(shí)驗(yàn) 4 選擇結(jié)構(gòu)程序設(shè)計(jì)實(shí)驗(yàn) 5 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)實(shí)驗(yàn) 6 數(shù)組實(shí)驗(yàn) 7 過程實(shí)驗(yàn) 8 窗體實(shí)驗(yàn) 9 VB中的常用控件實(shí)驗(yàn) 10 文件系統(tǒng)實(shí)驗(yàn) 11 Visual Basic圖形操作實(shí)驗(yàn) 12 建立和訪問數(shù)據(jù)庫實(shí)驗(yàn)1 設(shè)計(jì)簡(jiǎn)單的Visual Basic應(yīng)用程序一、實(shí)驗(yàn)?zāi)康?. 掌握啟動(dòng)和退出Visual Basic 6.0的方法。2. 掌握設(shè)計(jì)一個(gè)簡(jiǎn)單程序的基本步驟。3. 熟練掌握菜單欄、工具欄、窗體窗口、工具箱、工程資源管理器窗口和屬性窗口的使用。4. 了解Visual Basic 6.0聯(lián)機(jī)幫助的使用。二、實(shí)驗(yàn)內(nèi)容1. 設(shè)計(jì)一個(gè)簡(jiǎn)單程序：計(jì)算圓面積。在上機(jī)調(diào)試程序過程中，掌握啟動(dòng)和退出Visual Basic 6.0的方法，初步掌握菜單欄、工具欄、窗體窗口、工具箱、工程資源管理器窗口和屬性窗口的使用。（1）啟動(dòng)Visual Basic 6.0。啟動(dòng)Visual Basic 6.0的方法有兩種：u 單擊“開始”|“程序”|“Microsoft Visual Basic 6.0”； u 在桌面上雙擊Microsoft Visual Basic 6.0快捷方式圖標(biāo)。啟動(dòng)Visual Basic 6.0后，系統(tǒng)進(jìn)入Visual Basic 6.0集成開發(fā)環(huán)境，并顯示一個(gè)“新建工程”對(duì)話框，如圖14-1-1所示，默認(rèn)選擇是建立標(biāo)準(zhǔn)工程（標(biāo)準(zhǔn)EXE）。（2）界面設(shè)計(jì)。單擊“打開”按鈕，Visual Basic 6.0進(jìn)入設(shè)計(jì)模式。系統(tǒng)提供一個(gè)名為Form1的窗體，我們就在這個(gè)窗體上進(jìn)行界面設(shè)計(jì)。圖14-1-1建立控件的方法為：雙擊工具箱上的命令按鈕（CommandButton），在窗體中出現(xiàn)一個(gè)帶有“Command1”字樣的命令按鈕圖形對(duì)象，用鼠標(biāo)把它拖到窗體的合適位置；再次雙擊工具箱上的命令按鈕（CommandButton），在窗體中出現(xiàn)一個(gè)帶有“Command2”字樣的命令按鈕圖形對(duì)象，用鼠標(biāo)把它拖到窗體的合適位置。（3）屬性設(shè)置。為了明確應(yīng)用程序的功能，一般需要修改控件的標(biāo)題屬性。首先，從屏幕右邊的屬性窗口中打開Form1的屬性列表，找到Caption屬性欄，把其值由“Form1”改為“計(jì)算圓面積”（如圖14-1-2），按回車鍵確認(rèn)。這時(shí)，窗體標(biāo)題也隨之改變了。然后，從屬性窗口中打開命令按鈕Command1的屬性列表，找到Caption屬性欄，把其值由“Command1”改為“開始”。用同樣方法，把命令按鈕Command2的Caption值改為“結(jié)束”。至此，用戶界面設(shè)計(jì)完成。（如圖14-1-3所示）。 圖14-1-2 圖14-1-3（4）編寫程序代碼。計(jì)算圓面積的計(jì)算公式是S=pR2，其中，p表示圓周率（這里取值為3.14），R為半徑，S為圓面積。根據(jù)計(jì)算公式，編寫的程序如下。 Private Sub Command1_Click() Dim s, r r = InputBox(請(qǐng)輸入圓半徑：) s = 3.14 * r * r Print Print 半徑為 ; r; 面積為 ; sEnd SubPrivate Sub Command2_Click() EndEnd Sub（5）修改程序代碼。在VB中，輸入和修改程序代碼必須要進(jìn)行代碼編輯環(huán)境，進(jìn)入代碼編輯環(huán)境有4種方法：圖14-1-4u 雙擊控件；u 使用鼠標(biāo)右鍵單擊控件，從彈出的菜單中選擇“查看代碼”命令執(zhí)行；u 從菜單欄的“視圖”菜單中選擇“代碼窗口”命令執(zhí)行；u 在工程資源管理器窗口單擊“查看代碼”圖標(biāo)。無論使用哪一種方法進(jìn)入代碼編輯環(huán)境，都會(huì)顯示代碼編輯窗口（如圖14-1-4）。代碼編輯窗口中的頂端有兩個(gè)下拉框，左邊是對(duì)象列表框，右邊是事件列表框。從對(duì)象列表框中選擇控件名和從事件列表框中選擇相應(yīng)的事件名后，代碼編輯窗口中顯示出相應(yīng)的事件驅(qū)動(dòng)程序的窗口。這時(shí)就可以在事件驅(qū)動(dòng)程序的窗口中輸入程序代碼。如果雙擊控件，代碼編輯窗口會(huì)出現(xiàn)默認(rèn)的Click事件窗口，對(duì)于這個(gè)例子，雙擊命令按鈕Command1，代碼編輯窗口中顯示出Command1_Click事件窗口?？梢栽谶@個(gè)窗口中輸入程序代碼。用同樣的方法，也可以輸入Command2的事件驅(qū)動(dòng)程序代碼。（6）運(yùn)行程序。運(yùn)行VB程序有3種方法：u 單擊工具欄上的“啟動(dòng)”按鈕；u 按F5功能鍵；u 從菜單欄的“運(yùn)行”菜單中選擇“啟動(dòng)”命令，這時(shí)系統(tǒng)對(duì)程序解釋執(zhí)行。若從菜單欄的“運(yùn)行”菜單中選擇“全編譯執(zhí)行”命令，程序編譯執(zhí)行。程序運(yùn)行后，屏幕出現(xiàn)用戶界面，單擊“開始”按鈕，執(zhí)行Command1_Click事件驅(qū)動(dòng)程序。執(zhí)行到“r = InputBox(請(qǐng)輸入圓半徑：) ”時(shí)，屏幕出現(xiàn)如圖14-1-5所示的對(duì)話框。輸入數(shù)據(jù)（如：3）后單擊“確定”按鈕，程序繼續(xù)執(zhí)行，輸出結(jié)果如圖14-1-6所示。單擊“結(jié)束”按鈕，結(jié)束程序的執(zhí)行。 圖14-1-5 圖14-1-6如果程序出現(xiàn)編譯或運(yùn)行錯(cuò)誤，系統(tǒng)都將給出錯(cuò)誤提示信息。此時(shí)，應(yīng)分析產(chǎn)生錯(cuò)誤的原因，找出出錯(cuò)的位置，并使用編輯功能鍵對(duì)程序進(jìn)行修改。修改完程序后，按F5功能鍵，重新執(zhí)行程序。（7）保存程序。保存程序有兩種方法：u 選擇菜單欄上“文件”菜單中的“保存工程”命令執(zhí)行；u 單擊工具欄中的“保存”按鈕。不管采用哪一種保存程序的方法，對(duì)于新程序，系統(tǒng)都會(huì)要求用戶給定存放的路徑和文件名，并分別保存窗體文件和工程文件。（8）退出VB6.0。退出的方法有三種：u 單擊主窗口右上角的“關(guān)閉”按鈕；u 選擇菜單欄上的“文件”菜單中的“退出”命令執(zhí)行；u 按Alt+Q組合鍵。2. 使用Visual Basic 6.0的聯(lián)機(jī)幫助（1）使用“MSDN Library在線幫助”。在運(yùn)行VB6.0時(shí)，使用“MSDN Library在線幫助”是尋求幫助的常用方法。操作步驟為：u 啟動(dòng)VB6.0，選擇菜單欄上“幫助”菜單的“內(nèi)容”命令，系統(tǒng)打開“MSDN Library Visual Studio 6.0”對(duì)話框。u 在“活動(dòng)子集”的下拉框中選擇“*Visual Basic文擋”，然后單擊“目錄”選項(xiàng)。u 單擊“MSDN Library Visual Studio6.0”目錄前面的“+”號(hào)，展開“MSDN Library Visual Studio6.0”目錄。u 單擊“Visual Basic文檔”目錄前面的“+”號(hào)，展開“使用Viisual Basic”目錄。u 單擊“程序員指南”目錄前面的“+”號(hào)，展開“程序員指南”。圖14-1-7 因?yàn)镸SDN內(nèi)容太多，占用硬盤空間，很多機(jī)房不裝MSDN，所以，上機(jī)時(shí)可能看不到。啟用幫助時(shí)，系統(tǒng)彈出一對(duì)話框，如圖14-1-7（2）使用“上下文相關(guān)幫助”。使用“上下文相關(guān)幫助”，可以不必使用“幫助”菜單就能獲得“工具箱”中的控件、“屬性”窗口中的屬性、應(yīng)用程序中的關(guān)鍵字等內(nèi)容的幫助。操作方法是把光標(biāo)移到（或選?。┫Ｍ@得幫助的位置，然后按F1功能鍵，VB會(huì)自動(dòng)彈出相關(guān)主題的幫助。獲得“工具箱”中控件幫助的操作步驟為：u 把光標(biāo)移到“工具箱”中需要獲得幫助的控件處，并單擊；u 按F1功能鍵。獲得“屬性”窗口中屬性幫助的操作步驟為：u 把光標(biāo)移到“屬性”窗口中需要獲得幫助的屬性處，并單擊之；u 按F1功能鍵。獲得應(yīng)用程序中關(guān)鍵字幫助的操作步驟為：u 把光標(biāo)移到應(yīng)用程序中需要獲得幫助的關(guān)鍵字處；u 按F1功能鍵。（3）“幫助”主題中代碼示例的運(yùn)行。VB6.0幫助系統(tǒng)有很多幫助主題，在這些主題中包括一些可以直接運(yùn)行的程序代碼示例。我們可以通過Windows的剪貼板將這些程序代碼復(fù)制到VB的代碼窗口中，然后單擊工具欄上的“啟動(dòng)”按鈕運(yùn)行這些程序代碼。例如，在VB集成開發(fā)環(huán)境把光標(biāo)移到屬性窗口的FillColor屬性處，并單擊之，然后按F1功能鍵。在出現(xiàn)的窗口中單擊“示例”，用鼠標(biāo)（或鍵盤）選取“示例”中的程序代碼。選擇菜單欄上“編輯”菜單的“復(fù)制”命令（或用Ctrl+V）把代碼復(fù)制到Windows 的剪貼板上，然后打開VB的代碼編輯窗口，單擊工具欄上的“粘貼”按鈕（或用Ctrl+V）把選擇的程序代碼復(fù)制到代碼窗口，這時(shí)就可以運(yùn)行程序了。如果代碼示例涉及除窗體以外的控件，則在進(jìn)入VB集成開發(fā)環(huán)境之后應(yīng)先進(jìn)行用戶界面設(shè)計(jì)，即在窗體添加相關(guān)控件后，才能正確運(yùn)行程序。三、實(shí)驗(yàn)小結(jié)實(shí)驗(yàn)2 Visual Basic語言基礎(chǔ)一、實(shí)驗(yàn)?zāi)康?. 掌握Visual Basic 6.0數(shù)據(jù)類型的概念。2. 掌握常量的概念、定義方法和作用域。3. 掌握變量的概念和定義方法，熟悉可變類型變量和靜態(tài)變量的使用，掌握自動(dòng)變量與靜態(tài)變量的區(qū)別。4. 掌握各種運(yùn)算符的功能、表達(dá)式的構(gòu)成、表達(dá)式中運(yùn)算符的運(yùn)算順序和如何求表達(dá)式的值。5. 掌握常用標(biāo)準(zhǔn)函數(shù)的一般形式、功能和用法。6. 進(jìn)一步熟悉Visual Basic 6.0集成開發(fā)環(huán)境。二、實(shí)驗(yàn)內(nèi)容1. 利用下列式子測(cè)試各種運(yùn)算符的功能1） 204.52） 55 mod 23） 634） 3 (-1/2)5） “How” & “are you”6） not 327） 338） true and false9） 74 or 3110） 9=”canada”8） “xyz”4 and 5 =510） false or not 7-3=10000Y=3%X 5000=X100002%X 1000=X50000 X0)的遞歸公式為：xn=1s(x , n)=x( 1- s( x , n-1 ) )n1使用遞歸過程編寫程序求s(x , n)的值?！疽蟆棵枋鼋缑娴脑O(shè)計(jì)，指出控件屬性的設(shè)置，編寫程序代碼，正確運(yùn)行程序。三、實(shí)驗(yàn)小結(jié)實(shí)驗(yàn)8 窗體一、實(shí)驗(yàn)?zāi)康?. 初步掌握多窗體程序設(shè)計(jì)方法。2. 掌握鍵盤事件KeyPress、KeyDown和KeyUp的基本用法。3. 掌握鼠標(biāo)事件MouseDown、MouseUp和MouseMove的基本用法。4. 掌握簡(jiǎn)單的多文檔界面（MDI）的應(yīng)用程序設(shè)計(jì)方法。二、實(shí)驗(yàn)內(nèi)容1. 編程實(shí)現(xiàn)：利用窗體一輸入密碼，密碼最多輸三次，密碼正確進(jìn)入第二個(gè)窗體，密碼不正確則彈出“對(duì)不起，您是非法用戶！”提示框后退出程序?！疽蟆吭O(shè)計(jì)界面，指出控件屬性的設(shè)置，正確編寫程序代碼，運(yùn)行程序?！緟⒖冀缑妗咳鐖D14-8-1和14-8-2所示。 圖14-8-1 圖14-8-22. 編寫一個(gè)實(shí)現(xiàn)，當(dāng)鼠標(biāo)在窗體上移動(dòng)，顯示鼠標(biāo)的當(dāng)前坐標(biāo)，單擊鼠標(biāo)及按Shift、Ctrl、Alt鍵，顯示Shift和Button參數(shù)的值。3. 建立一個(gè)包含兩個(gè)子窗體的MDI窗體，在子窗體上分別設(shè)置命令按鈕，實(shí)現(xiàn)兩子窗體顯示和隱藏的切換?！疽蟆孔约涸O(shè)計(jì)界面，指出控件屬性的設(shè)置，正確編寫程序代碼，運(yùn)行程序。三、實(shí)驗(yàn)小結(jié)實(shí)驗(yàn)9 VB中的常用控件一、實(shí)驗(yàn)?zāi)康?. 掌握單選按鈕、復(fù)選框、框架、滾動(dòng)條、列表框、組合框和時(shí)鐘控件的常用屬性、基本方法和主要事件。2. 掌握菜單編輯器的使用方法。3. 熟悉菜單事件的編程方法。二、實(shí)驗(yàn)內(nèi)容1. 使用單選按鈕實(shí)現(xiàn)時(shí)間和日期的單選。利用組合框按年月日的次序選擇日期的格式， 【要求】設(shè)計(jì)界面，指出控件屬性的設(shè)置，正確編寫程序代碼，運(yùn)行程序?！緟⒖冀缑妗咳鐖D14-9-1和14-9-2所示。 圖14-9-1 啟動(dòng)后的運(yùn)行界面 圖14-9-2 當(dāng)選擇“顯示日期”單選鈕時(shí)的運(yùn)行界面2. 利用單選按鈕和文本框編制一個(gè)進(jìn)制轉(zhuǎn)換的應(yīng)用程序，界面如圖14-9-3?！疽蟆吭O(shè)計(jì)界面，指出控件屬性的設(shè)置，正確編寫程序代碼，運(yùn)行程序?！緟⒖冀缑妗咳鐖D14-9-3所示。圖14-9-3【參考代碼】 Private Sub Option1_Click() Dim m As Integer, e As String m = Val(Text1.Text) Do r = m Mod 2 e = r & e m = m 2 Loop Until m = 0 Text2.Text = e Label2.Caption = 二進(jìn)制End SubPrivate Sub Option2_Click() Text2.Text = Oct(Text1.Text) Label2.Caption = 八進(jìn)制End SubPrivate Sub Option3_Click() Text2.Text = Hex(Text1.Text) Label2.Caption = 十六進(jìn)制End SubPrivate Sub Text1_Change() If Option1.Value = True Then Option1_Click ElseIf Option2.Value = True Then Call Option2_Click ElseIf Option3.Value = True Then Option3_Click End IfEnd Sub3. 在窗體上設(shè)計(jì)一個(gè)彈出式菜單，用來改變文本框中字體的屬性?！緟⒖疾襟E】1） 建立新工程。2） 界面設(shè)計(jì)和屬性設(shè)置。3） 選擇菜單欄上“工具”菜單的“菜單編輯器”命令，使用菜單編輯器設(shè)計(jì)菜單。設(shè)計(jì)后的界面如下圖14-9-4所示：4） 編寫程序代碼?！疽蟆棵枋鼋缑娴脑O(shè)計(jì)，指出控件屬性的設(shè)置，編寫程序代碼，正確運(yùn)行程序?！緟⒖冀缑妗咳鐖D14-9-5所示。 圖14-9-4 圖14-9-54. 設(shè)計(jì)一個(gè)運(yùn)行界面如圖14-9-6所示的字幕滾動(dòng)程序。要求用時(shí)鐘控件和滾動(dòng)條調(diào)節(jié)和控制字幕滾動(dòng)速度，從右向左連續(xù)滾動(dòng)?！緟⒖即a】圖14-9-6字幕滾動(dòng)通常有兩種方法。第一種方法是先把字存放在標(biāo)簽上，然后連續(xù)修改標(biāo)簽的left屬性值使圖象從右向左移動(dòng)。第二種方法是把字存放在標(biāo)簽上，然后使用Move方法使標(biāo)簽移動(dòng)。若使用第一種方法，則程序可以編寫如下：Private Sub Form_load() HScroll1.Max = 1000 HScroll1.Min = 100 HScroll1.SmallChange = 10 HScroll1.LargeChange = 10 Timer1.Interval = HScroll1.Value Label1.Left = Form1.Width - Label1.WidthEnd SubPrivate Sub timer1_timer() Label1.Left = Label1.Left - 10 If Label1.Left -Label1.Left Then Label1.Left = Form1.Width End IfEnd SubPrivate Sub Hscroll1_change() Timer1.Interval = 1001 - HScroll1.ValueEnd SubPrivate Sub Hscroll1_scroll() Timer1.Interval = 1001 - HScroll1.ValueEnd Sub【要求】描述界面的設(shè)計(jì)，指出控件屬性的設(shè)置，根據(jù)上述程序代碼編寫程序，分析每條執(zhí)行語句的功能并正確運(yùn)行程序?！舅伎肌咳羰褂们懊娼榻B的第二種方法來編寫程序，程序應(yīng)如何修改？三、實(shí)驗(yàn)小結(jié)實(shí)驗(yàn)10 文件系統(tǒng)一、實(shí)驗(yàn)?zāi)康?. 掌握文件系統(tǒng)控件（文件列表框、目錄列表框、驅(qū)動(dòng)器列表框）的應(yīng)用。2. 了解順序文件、隨機(jī)文件、二進(jìn)制文件的概念。3. 掌握順序文件的打開、關(guān)閉和讀寫的基本操作。4. 了解隨機(jī)文件、二進(jìn)制文件的基本操作。二、實(shí)驗(yàn)內(nèi)容1. 由文件列表框、目錄列表框、驅(qū)動(dòng)器列表框編制一個(gè)用于刪除選定文件的應(yīng)用程序，界面如圖14-10-1?！疽蟆吭O(shè)計(jì)界面，指出控件屬性的設(shè)置，正確編寫程序代碼，運(yùn)行程序。2. 制作一個(gè)簡(jiǎn)單的圖片瀏覽器?！疽蟆浚?）窗體的標(biāo)題為“圖片瀏覽器”，固定邊框。圖14-10-1（2）窗體上有驅(qū)動(dòng)器列表框（Drive1）、目錄列表框（Dir1）和文件列表框（File1）三個(gè)控件，要求三個(gè)控件能夠聯(lián)動(dòng)。（3）窗體的下半部有一個(gè)圖像框Image1，將它的Stretch屬性設(shè)置為True。（4）設(shè)置文件列表框只顯示*.bmp和*.jpg類型的圖片文件。（5）單擊文件列表框上的圖片文件名時(shí)，圖片顯示在圖像框中?！緟⒖冀缑妗咳鐖D14-10-2所示。3. 輸入某個(gè)單位若干個(gè)職工的編號(hào)、姓名、性別、年齡、是否黨員和基本工資等檔案數(shù)據(jù)，并存放到文本文件“C:da.txt”中?！緟⒖冀缑妗咳鐖D14-10-3所示。 圖14-10-2 圖14-10-3【提示】程序運(yùn)行時(shí)，屏幕出現(xiàn)如上圖所示的用戶界面，焦點(diǎn)落在文本框te