基于Visual Basic 6.0可視化程序設(shè)計上機指導

1、基于Visual Basic 6.0可視化程序設(shè)計上機指導第一章 Visual Basic基礎(chǔ)上機實驗：認識VB界面，設(shè)計一個簡單應(yīng)用程序。實驗目的： 掌握Visual Basic的啟動與退出操作，熟悉應(yīng)用程序的建立步驟以及工程的保存方法，能生成一個可執(zhí)行文件。實驗內(nèi)容：1.Visual Basic的啟動。請遵循如下步驟：1、單擊“開始”按鈕。2、選擇“程序”選項。這將顯示更多的選項。3、從顯示的選項中選擇“”選項。此時會顯示一個選項列表。4、從這些顯示的選項中單擊“”選項。打開的Visual Basic屏幕如圖1.11所示。2.Visual Basic退出。有如下幾種方法：方法一：單擊窗口右

2、上角的關(guān)閉按鈕。方法二：單擊“文件”菜單，選擇“退出”選項。方法三：按快捷鍵AltQ鍵。方法四：按快捷鍵AltF4鍵。3.設(shè)計一個簡單應(yīng)用程序，在窗體上添加一個文本框，單擊窗體后，在文本框中顯示“歡迎使用Visual Basic”具體步驟如下：1.在工具箱（ToolBox）中雙擊 “TextBox（文本框）”控件（工具箱中第二行的第二個控件）。2.在“Form1”中單擊并拖動“TextBox”，把它放置到窗體中的適當位置，“TextBox”控件上有一個缺省的文字“Text1”，如圖1.31所示。圖 1.313.使用“屬性（Properties）”窗口，刪除分配給該控件Text屬性的缺省值“Te

3、xt1”，使其變?yōu)榭瞻?，參見圖1.32。圖 1.324.各對象的屬性設(shè)置如表1.10所示。表1.10 屬性設(shè)置對象屬性設(shè)置窗體（名稱）Form1Caption一個簡單應(yīng)用程序文本框（名稱）Text1Text空白MultilineTrue5.參考代碼如下：窗體的單擊事件，用于實現(xiàn)文本框中內(nèi)容的顯示。Private Sub Form_Click()Text1.Text = "歡迎使用 Visual Basic"End Sub運行結(jié)果如圖1.33所示。6.保存工程。1）選擇主菜單選項“文件（F）”。2）選擇子選項“保存工程（V）”，這將調(diào)用“文件另存為”對話框，如圖1.34所示。

4、圖1.34Visual Basic首先提示我們保存窗體。參見圖1.34。3）在標簽“文件名（N）”中指定form1.frm作為窗體名字，以當前工作目錄為文件保存目錄，窗體使用的缺省擴展名為frm。4）單擊“保存（S）”按鈕，這將調(diào)用“工程另存為”對話框。5）指定form1.vbp作為當前工作目錄下工程的名字，工程文件的缺省擴展名為vbp。參見圖1.35。6)單擊“保存（S）”按鈕(在Visual Basic中，窗體和工程分別作為單獨的文件存儲)。7.運行工程。讓我們運行一下應(yīng)用程序，看看你的代碼操作。1）選擇菜單選項“運行（R）”。2）單擊子選項“啟動（S）”。這將運行應(yīng)用程序。當應(yīng)用程序在屏

5、幕上運行時，他將如圖1.32所示。3）單擊窗體，文本框中將顯示“歡迎使用 Visual Basic”，如圖1.33所示。8.生成可執(zhí)行文件。生成可執(zhí)行文件之前，要確保整個應(yīng)用程序的正確性。因為，一旦生成可執(zhí)行文件之后，應(yīng)用程序便不可修改，如果出現(xiàn)錯誤，需重新再生成一個可執(zhí)行文件。1）選擇菜單選項“文件（F）”。2）單擊子選項“生成工程1.exe（K）”，這將調(diào)用“生成工程”對話框，如圖1.36所示。圖 1.363）在標簽“文件名（N）”中指定“”作為可執(zhí)行默認文件名，以當前工作目錄為文件保存目錄，窗體使用的缺省擴展名為exe。4）單擊“確定”按鈕，即可立即生成該應(yīng)用程序的可執(zhí)行文件。第二章 窗

6、體與基本控件上機實驗： 窗體、命令按鈕、文本框、標簽框的應(yīng)用實驗目的： 掌握窗體、命令按鈕及文本框的常用屬性、事件和方法，熟練這些控件的綜合應(yīng)用，并能實現(xiàn)相應(yīng)的功能。 實驗內(nèi)容：1.設(shè)計一個程序，在執(zhí)行時由用戶從鍵盤上鍵入兩個操作數(shù)和運算符，然后根據(jù)輸入的運算符來改變標簽框的內(nèi)容，單擊“”命令按鈕，將根據(jù)運算符進行相應(yīng)的運算并將運算結(jié)果顯示在“運算結(jié)果”標簽框中。其界面設(shè)計如圖2.25所示。圖 2.25其屬性設(shè)置如表2.8所示。表2.8 屬性設(shè)置對象屬性設(shè)置窗體（名稱）Form1Caption控件綜合使用標簽框1（名稱）Label1Caption操作數(shù)AutoSizeTrueAlignment

7、2center標簽框2（名稱）Label2AutoSizeTrueAlignment2center標簽框3（名稱）Label3Caption運算符AutoSizeTrueAlignment2center標簽框4名稱Label4Caption運算結(jié)果AutoSizeTrueAlignment2center標簽框5（名稱）Label5Caption注意：運算符只能是+、-、*、/中的一個標簽框6（名稱）Label6Caption空白文本框1（名稱）Text1Text空白文本框2（名稱）Text2Text空白文本框3（名稱）Text3Text空白命令按鈕1（名稱）Command1Caption命令按

8、鈕2（名稱）Command2Caption清除命令按鈕3（名稱）Command3Caption退出參考代碼如下：1確定用于說明運算類型的標簽框的顯示內(nèi)容Private Sub Text2_Change() Case "+" Label1.Caption = "被加數(shù)" Label3.Caption = "加號" Label2.Caption = "加數(shù)" Label4.Caption = "和" Case "-" Label1.Caption = "被減數(shù)"

9、; Label3.Caption = "減號" Label2.Caption = "減數(shù)" Label4.Caption = "差" Case "*" Label1.Caption = "被乘數(shù)" Label3.Caption = "乘號" Label2.Caption = "乘數(shù)" Label4.Caption = "積" Case "/" Label1.Caption = "被除數(shù)" Labe

10、l3.Caption = "除號" Label2.Caption = "除數(shù)" Label4.Caption = "商" End SelectEnd Sub2用于進行運算的命令按鈕“”Private Sub Command1_Click() aa = Val(Text1.Text) bb = Val(Text3.Text) Case "+" cc = aa + bb Case "-" cc = aa - bb Case "*" cc = aa * bb Case "

11、/" cc = aa / bb End Select Label6.Caption = Str(cc)End Sub3進行多次運算時需進行的“清除”操作Private Sub Command2_Click() Text1.Text = "" Text3.Text = "" Label6.Caption = ""End Sub4結(jié)束操作Private Sub Command3_Click()EndEnd Sub第三章 Visual Basic程序設(shè)計基礎(chǔ)上機實驗：常量、變量、表達式和基本語句的應(yīng)用實驗目的：掌握數(shù)據(jù)類型的定義及

12、使用，掌握常量、變量和表達式的使用，熟悉VB基本語句的使用，能夠使用簡單的算法解決實際問題。實驗內(nèi)容：1.設(shè)計一個應(yīng)用程序，窗體上有3個文本框、1個標簽框和3個命令按鈕，界面設(shè)計如圖3.9所示。當用戶運行應(yīng)用程序后，在文本框中隨意輸入三個數(shù)據(jù)，單擊“排序”命令按鈕后，將三個數(shù)據(jù)按照從小到大的順序重新排列。圖 3.9表3.8 屬性設(shè)置對象屬性設(shè)置窗體（名稱）Form1Caption排序文本框1（名稱）Text1Text空白文本框2（名稱）Text2Text空白文本框3（名稱）Text3Text空白標簽框1（名稱）Label1Caption排序結(jié)果為：命令按鈕1（名稱）Command1Captio

13、n排序命令按鈕2（名稱）Command2Caption退出命令按鈕3（名稱）Command3Caption清空參考代碼如下：1 數(shù)據(jù)輸入后的排序操作Private Sub Command1_Click() Dim a, b, c As Integer Dim zjjg As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) c = CInt(Text3.Text) If a > b Then zjjg = a a = b b = zjjg End If If a > c Then zjjg = a a = c c = zjjg En

14、d If If b > c Then zjjg = b b = c c = zjjg End If Label1.Caption = "排序結(jié)果為：" & a & "," & b & "," & cEnd Sub2清空操作，用于第2次以后的要排序數(shù)據(jù)的輸入Private Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text3.Text = ""End Sub3結(jié)束操作P

15、rivate Sub Command2_Click()EndEnd Sub運行后的結(jié)果如圖3.10所示。圖 3.10第四章 常用控件上機實驗： 常用控件的應(yīng)用實驗目的： 掌握復選框、單選鈕、列表框和組合框的常用屬性、事件及典型的使用方法，熟悉滾動條的數(shù)值應(yīng)用，掌握對話框的設(shè)計及使用，掌握圖片框、圖像框的使用及在使用中二者的區(qū)別，能夠利用計時器進行動畫制作。 實驗內(nèi)容：1設(shè)計一個應(yīng)用程序，窗體上由1個文本框、1個命令按鈕和4個框架組成，界面設(shè)計如圖4.39所示。圖 4.39表4.25 屬性設(shè)置對象屬性設(shè)置窗體（名稱）Form1CaptionForm1 文本框1（名稱）Text1Text歡迎使用V

16、isual Basic框架1（名稱）Frame1Caption字體框架2（名稱）Frame2Caption大小框架3（名稱）Frame3Caption顏色框架4（名稱）Frame4Caption字形框架5（名稱）Frame5Caption文字效果（名稱）Label3單選鈕1（名稱）Option1Caption宋體單選鈕2（名稱）Option2Caption隸書單選鈕3（名稱）Option3Caption幼圓單選鈕4（名稱）Option4Caption18點單選鈕5（名稱）Option5Caption20點單選鈕6（名稱）Option6Caption22點單選鈕7（名稱）Option7Capti

17、on藍色單選鈕8（名稱）Option8Caption紅色單選鈕9（名稱）Option9Caption黃色單選鈕10（名稱）Option10Caption普通單選鈕11（名稱）Option11Caption粗體單選鈕12（名稱）Option12Caption斜體單選鈕13（名稱）Option13Caption粗斜體復選框1（名稱）Check1Caption刪除線復選框2（名稱）Check2Caption下劃線命令按鈕1（名稱）Command1Caption退出參考代碼如下：1裝載窗體在初始裝載窗體時，給出窗口運行的初值Private Sub Form_Load() Option1.Value =

18、 True Option4.Value = True Option7.Value = True Option12.Value = TrueEnd Sub2確定文本框中文字的字體Private Sub Option1_Click() If Option1.Value = True Then Text1.FontName = "宋體"End SubPrivate Sub Option2_Click() If Option2.Value = True Then Text1.FontName = "隸書"End SubPrivate Sub Option3_Cl

19、ick() If Option3.Value = True Then Text1.FontName = "幼圓"End Sub3確定文本框中文字的字號（即字的大?。㏄rivate Sub Option4_Click() If Option4.Value = True Then Text1.FontSize = 18End SubPrivate Sub Option5_Click() If Option5.Value = True Then Text1.FontSize = 20End SubPrivate Sub Option6_Click() If Option6.Val

20、ue = True Then Text1.FontSize = 22End Sub4確定文本框中文字的顏色Private Sub Option7_Click() If Option7.Value = True Then Text1.ForeColor = QBColor(9)End SubPrivate Sub Option8_Click() If Option8.Value = True Then Text1.ForeColor = QBColor(12)End SubPrivate Sub Option9_Click() If Option9.Value = True Then Text1

21、.ForeColor = QBColor(14)End Sub5確定文本框中文字的字形Private Sub Option10_Click() If Option10.Value = True Then Text1.FontBold = False Text1.FontItalic = False End IfEnd SubPrivate Sub Option11_Click() If Option11.Value = True Then Text1.FontBold = True Text1.FontItalic = False End IfEnd SubPrivate Sub Option

22、12_Click() If Option12.Value = True Then Text1.FontBold = False Text1.FontItalic =True End IfEnd SubPrivate Sub Option13_Click() If Option13.Value = True Then Text1.FontBold = True Text1.FontItalic = True End IfEnd Sub6確定文本框中文字的文字效果Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontStrike

23、thru = True Else Text1.FontStrikethru = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End IfEnd Sub7結(jié)束操作Private Sub Command1_Click()EndEnd Sub2設(shè)計一個簡單的報到處理窗體，要求界面如圖4.40所示，從文本框中輸入學生姓名，在“班級”旁邊的組合框中選擇其所屬班級（提供4種默認班級）。然后將

24、學生姓名和班級添加到列表框中。用戶可以刪除列表框中所選擇的項目，也可以把整個列表框清空。圖 4.40表4.26 屬性設(shè)置對象屬性設(shè)置窗體（名稱）Form1Caption報到名單錄入文本框1（名稱）Text1Text空白組合框1（名稱）Combo1Text空白列表框1（名稱）List1List空白標簽框1（名稱）Label1Caption姓名AutoSizeTrue標簽框2（名稱）Label2Caption班級AutoSizeTrue標簽框3（名稱）Label3Caption學生列表AutoSizeTrue命令按鈕1（名稱）Command1Caption加入列表命令按鈕2（名稱）Command2

25、Caption刪除列表選項命令按鈕3（名稱）Command3Caption清空列表命令按鈕4（名稱）Command4Caption退出參考代碼如下：1裝載窗體在初始裝載窗體時，給出組合框的初始值Private Sub Form_Load() Combo1.AddItem "03網(wǎng)絡(luò)" Combo1.AddItem "03電商" Combo1.AddItem "03計維" Combo1.AddItem "03軟件" Combo1.Text = Combo1.List(0)End Sub2將新報到的學生名單加入列表框P

26、rivate Sub Command1_Click() If (Text1.Text <> "" And Combo1.Text <> "") Then Else MsgBox "必須輸入學生姓名" End IfEnd Sub3根據(jù)實際需要，刪除選定的列表項Private Sub Command2_Click()End Sub4刪除全部列表項Private Sub Command3_Click()End Sub5結(jié)束操作Private Sub Command4_Click()EndEnd Sub3設(shè)計一個應(yīng)用程

27、序，窗體上由1計時器和1個圖像框組成，圖像框中添加一個球形圖片，界面設(shè)計如圖4.41所示。圖 4.41表4.27 屬性設(shè)置對象屬性設(shè)置窗體（名稱）Form1Caption球體運動計時器1（名稱）Timer1Interval100圖像框1（名稱）Image1StretchTrue參考代碼如下：1.在窗體的“通用”區(qū)定義窗體級變量,留作后用。Dim chui As IntegerDim shui As Integer2裝載窗體在初始裝載窗體時，給出窗口運行的初始值Private Sub Form_Load() shui = 80 chui = 80End Sub3通過鼠標單擊窗體，決定球體是否運動

28、Private Sub Form_Click()End Sub4球體運動Private Sub Timer1_Timer() Image1.Move Image1l.Left + shui, Image1.Top + chui If Image1.Top <= 0 Then chui = -chui If Image1.Top + Image1.Height >= Form1.Height - 420 Then chui = -chui If Image1.Left <= 0 Then shui = -shui If Image1.Left + Image1.Width &g

29、t;= Form1.Width - 100 Then shui = -shuiEnd Sub5捕捉球體，防止因窗體大小的改變而使球體跑出屏幕Private Sub Form_Resize() If Image1.Top <= 0 Then Image1.Top = -25 chui = -chui End If If Image1.Top >= (Form1.Height - 420) Then Image1.Top = (Form1.Height - 445) - Image1.Height chui = -chui End If If Image1.Left <= 0 T

30、hen Image1.Left = -25 shui = -shui End If If Image1.Left >= (Form1.Width - 100) Then Image1.Left = (Form1.Width - 125) - Image1.Width shui = -shui End IfEnd Sub其運行結(jié)果如圖4.42所示。圖 4.42第五章 菜單設(shè)計上機實驗： 設(shè)計應(yīng)用程序菜單實驗目的： 掌握下拉式菜單和彈出式菜單的設(shè)計方法，掌握菜單事件過程的編寫方法。實驗內(nèi)容：按本章所講的步驟和方法，設(shè)計所要求的菜單系統(tǒng)。1.設(shè)計一個菜單程序，在菜單欄中有“程序”和“附件”兩個

31、菜單。其中“程序”菜單中有Word、Excel、PowerPoint三個選項?！案郊辈藛沃泻小爱媹D”和“游戲”兩個選項。當用戶選擇了某個菜單項時，應(yīng)能啟動相應(yīng)的程序。設(shè)計后的界面如圖510所示。圖510提示：使用函數(shù)：Shell( )格式：Shell(“文件名”)功能：執(zhí)行一個可執(zhí)行的文件?？蓭ПP符、路徑、主文件名、擴展名。例如：編寫“程序”菜單中有Word的單擊事件的代碼：若Word文件的路徑是：d:program fileMicrosoft officeofficewinword.exe ，則代碼是：Shell (“d:program fileMicrosoft officeoffic

32、ewinword.exe”)Excel的文件名：Powerpoint的文件名：畫圖的文件名：紙牌的文件名：排雷的文件名：利用查找方式來查找各自文件名的盤符和路徑。2.建立一個彈出菜單，含有“紅色”、“蘭色”、“綠色”三個選項，單擊相應(yīng)的選項后，可以改變文本框中文字的顏色。程序運行的結(jié)果如圖511所示。圖511第六章 文件管理上機實驗： 驅(qū)動器、目錄及文件列表框的應(yīng)用實驗目的： 掌握驅(qū)動器、目錄及文件列表框?qū)傩?、事件和方法，熟練完成三者之間的同步操作，并能實現(xiàn)相應(yīng)的功能。 實驗內(nèi)容：1模擬一個文件選擇窗體，并能完成下列操作。窗體如圖66所示。各對象的屬性設(shè)置如表64所示圖66表64 屬性設(shè)置對象

33、屬性設(shè)置窗體（名稱）Form1Caption文件選擇窗體文件列表框（名稱）File1目錄列表框（名稱）Dir1驅(qū)動器列表框（名稱）Drive1組合框（名稱）Combo1List*.* *.vpb *.frmStyle0Text*.*標簽框1Caption文件列表框（名稱）Label1標簽框2Caption文件顯示類型（名稱）Label2標簽框3Caption當前被選擇的文件（名稱）Label3標簽框4Caption空（名稱）Label4標簽框5Caption目錄列表（名稱）Label5標簽框6Caption驅(qū)動器列表（名稱）Label6標簽框7Caption當前被搜索目錄（名稱）Label7標

34、簽框8Caption空（名稱）Label8命令按鈕1Caption復制文件命令按鈕2Caption重新明名命令按鈕3Caption刪除文件命令按鈕4Caption結(jié)束操作參考代碼如下：1.在窗體的“通用”區(qū)將choicedfile 定義為窗體級變量,留作后用。Dim choicedfile2.裝載窗體在初始裝載窗體時，將當前路徑顯示在標簽框中。Private Sub Form_Load()LabelEnd Sub3.確定文件列表框的顯示內(nèi)容Private Sub Combo1_Click()End Sub4.保持各文件系統(tǒng)控件的同步Private Sub Drive1_Change()End

35、SubPrivate Sub Dir1_Change()End Sub5.選擇文件名Private Sub File1_Click()If Right(Dir1.Path, 1) = "" ThenElseEnd IfEnd Sub6.文件復制Private Sub Command1_Click()Dim sourfile As StringDim destfile As Stringstr2 = "請輸入復制的目的文件："sourfile = choicedfiledestfile = InputBox(str2, "復制文件")I

36、f destfile <> "" Then FileCopy sourfile, destfile FileCopy 源文件，目標文件End IfEnd Sub7.文件重命名Private Sub Command2_Click()Dim oldname As StringDim newname As StringTitle = "重新命名"str0 = "請再輸入一遍需要修改的文件名"str1 = choicedfile + Chr(10) + Chr(13) + str0str2 = "請輸入新文件名"

37、;oldname = InputBox(str1, Title)msg = "確認被更改的文件名" & oldnamep = MsgBox(msg, 35, "數(shù)據(jù)檢查框")If p = 6 Then newname = InputBox(str2, Title) Name oldname As newname Name 舊文件As 新文件 MsgBox "你的新文件名是：" + newnameEnd IfEnd Sub8.刪除文件 Private Sub Command3_Click()Dim killedfile As Stringkilledfile = choicedfileTitle = "數(shù)據(jù)檢查框"msg1 = "你要刪除文件:" & killedfilex = MsgBox(msg1, 35, Title)If x = 6 ThenKill killedfile Kill 文件名 End IfEnd Sub9.結(jié)束操作Private Sub Command4_Click()EndEnd Su