vb實驗實訓（vb程序設計教程配套資料）

1、Visual Basic 程序設計實驗實訓教程主審 程顯毅主編 黨向盈 副主編 黃小林 路楊 魯松 段旭前前 言言“卓越工程師教育培養(yǎng)計劃”對促進高等教育面向社會需求、培養(yǎng)人才、全面提高工程教育人才質(zhì)量具有十分重要的示范和引導作用。本書是卓越工程師計劃系列教材中的VB 語言程序設計教程一書（江蘇大學出版社出版）的配套指導教材。全書共分 14 章，設置實驗和實訓兩大部分。各教學單位可根據(jù)自身情況進行選擇。實驗部分：以章節(jié)為單位，設置 19 個實驗，目的是在實踐中掌握語言知識，培養(yǎng)程序設計基本能力，逐步理解、掌握程序設計思想和方法。內(nèi)容包括 Visual Basic 應用基礎(chǔ)、程序設計基礎(chǔ)、基本控

2、制結(jié)構(gòu)、數(shù)組、過程、高級控件、數(shù)據(jù)庫等主要知識點。每個實驗分為實驗目的、實驗內(nèi)容、實驗分析、實驗操作步驟（代碼）四大部分組成。實驗目的部分主要對每個實驗意義，掌握哪些知識點進行重點概述；實驗內(nèi)容力求突出代表性、典型性和實用性，涵蓋了各章重要知識點和拓展知識；實驗分析主要引導學生從不同的角度去分析問題和解決問題、開拓思維；實驗操作步驟要求學生書寫代碼或完善程序，從而鞏固和提高編程水平。實訓部分：實訓內(nèi)容不是簡單總結(jié)歸納教材中的相關(guān)內(nèi)容，而是就 VB 設計中最基本，最重要、最實用的內(nèi)容進行新的整合，更有利各種技能整體的綜合訓練。目的是為了提高讀者綜合知識的運用能力。本書主要特點：本書主要特點：一、

3、強化培養(yǎng)學生的工程能力和創(chuàng)新能力。這是卓越工程師培養(yǎng)計劃的主要目標之一，為了在教學中貫徹這一目標。在實驗部分的重點、難點、知識講解，主要與教材從不同的角度對知識點進行闡述、歸納總結(jié)；并補充、擴展了工程化技能需要的一些知識。實訓部分強調(diào)了項目的實用性。二、按通用標準和行業(yè)標準培養(yǎng)工程人才。VB 只是學習程序設計的一個窗口，通過本教材，使學生理解程序設計的本質(zhì)（算法化思維） ，能熟練用面向?qū)ο蟮姆椒ńo實際應用建模（模塊化思維） ，加強了數(shù)據(jù)庫、人機交互等行業(yè)背景的滲透。 本書由具有教學經(jīng)驗的一線教師共同編寫；參加本書編寫的有南通大學程顯毅老師（第十二章、第十四章、實訓一） 、魯松老師（第十三章、實

4、訓三） ；江蘇科技大學段旭老師（第一章、第十章、實訓二） 、潘舒老師（第七章） ；徐州工程學院侯晶晶老師（第二章、第五章） 、路楊老師（第四章、第九章） 、黃小林老師（第三章、實訓四） 、黨向盈老師（第六章） ；南京理工大學肖猛老師（第八章、第十一章、實訓五） 。全書由黨向盈老師負責統(tǒng)稿，程顯毅老師主審。本書可以作為高等學校、高職高專院校 Visual Basic 程序設計的實驗實訓指導教材，也可用作計算機等級考試和廣大讀者的自學輔助用書。我們在編寫本書的過程中參閱了許多國內(nèi)外 VB 教材，在此對這些作者們表示感謝。盡管本書在探索提高學生計算機程序設計能力方面做了不少努力，但由于編者水平有限，

5、書中難免存在疏漏和不足之處，敬請廣大讀者批評指正，我們將及時修訂并改進。 編者2013 年 5 月 目錄目錄前前 言言.4第一篇第一篇 VISUAL BASIC 實驗實驗.8第 1 章 認識 VISUAL BASIC.8【重點】.8【難點】.8【知識講解】.8【上機實驗】實驗一 Visual Basic 應用初步.10第 2 章VISUAL BASIC簡單程序設計.15【重點】.15【難點】.15【知識講解】.15【上機實驗】實驗二 Visual Basic簡單程序設計.18第 3 章 程序設計基礎(chǔ) .24【重點】.24【難點】.24【知識講解】.24【上機實驗】實驗三 程序設計基礎(chǔ).26第

6、4 章 順序結(jié)構(gòu)程序設計 .30【重點】.30【難點】.30【知識講解】.30【上機實驗】實驗四 順序結(jié)構(gòu)程序設計應用.32第 5 章選擇結(jié)構(gòu)程序設計.36【重點】.36【難點】.36【知識講解】.36【上機實驗】實驗五 選擇結(jié)構(gòu)程序設計應用.39第 6 章 循環(huán)結(jié)構(gòu)程序設計 .46【重點】.46【難點】.46【知識講解】.46【上機實驗】實驗六 循環(huán)結(jié)構(gòu)程序設計應用.49第 7 章 數(shù)組.54【重點】.54【難點】.54【知識講解】.54【上機實驗】實驗七 數(shù)組的應用.56【上機實驗】實驗八 控件數(shù)組應用.62第 8 章 過程與函數(shù) .66【重點】.66【難點】.66【知識講解】.66【上機

7、實驗】實驗九 Sub 過程應用.69【上機實驗】實驗十 Function 過程應用.73【上機實驗】實驗十一 嵌套調(diào)用及遞歸.77第 9 章 文件 .79【重點】.79【難點】.79【知識講解】.79【上機實驗】實驗十二 文件基本操作.82【上機實驗】實驗十三 文件系統(tǒng)控件.86第 10 章 菜單、對話框及 MDI 設計.92【重點】.92【難點】.92【知識講解】.92【上機實驗】實驗十四 菜單設計使用.96【上機實驗】實驗十五 對話框、多文檔界面設計使用.99第 11 章VISUAL BASIC高級控件.104【重點】.104【難點】.104【知識講解】.104【上機實驗】實驗十六 高級控

8、件使用.107第 12 章 程序調(diào)試與錯誤處理 .117【重點】.117【難點】.117【知識講解】.117【上機實驗】實驗十七 程序調(diào)試綜合應用.123第 13 章 繪圖及圖像控件使用 .127【重點】.127【難點】.127【知識講解】.127【上機實驗】實驗十八 繪圖及圖像控件應用.129第 14 章 數(shù)據(jù)庫應用程序設計 .135【重點】.135【難點】.135【知識講解】.135【上機實驗】實驗十九 數(shù)據(jù)庫應用程序設計.144第二篇第二篇 VISUAL BASIC 實訓實訓.151實訓一 數(shù)據(jù)庫應用程序設計.151實訓二 VB 編程設計制作電子像冊.156實訓三 繪圖及圖像控件的使用.

9、160實訓四 關(guān)鍵詞抽取系統(tǒng) TF-IDF 算法實現(xiàn).163實訓五 公差數(shù)據(jù)查詢系統(tǒng).167第一篇第一篇 Visual Basic 實驗實驗第第 1 章章 認識認識 Visual Basic Visual Basic(簡稱 VB)是第三代 BASIC 語言，不但秉承了 BASIC 語言的易學易用的優(yōu)點，而且增加了圖形界面設計工具。【重點重點】 （1）VB 的開發(fā)環(huán)境。 （2）控件（工具）箱的識別。 （3）開發(fā)程序的基本步驟。【難點難點】（1）事件的驅(qū)動原理。（2）對象如何響應事件。【知識講解知識講解】1VB 中的幾個常用術(shù)語中的幾個常用術(shù)語工程(Project)：是指用于創(chuàng)建一個應用程序的文件

10、的集合。對象(object)：可控制的某個東西，VB 中主要有兩類對象：窗體和控件。窗體(form)：應用程序的用戶界面，即 windows。控件(control)：指的是各種按扭、標簽、文本框等。屬性(property)：是指對象的特性，如大小、標題或顏色。2VB 集成開發(fā)環(huán)境集成開發(fā)環(huán)境 (IDEIntegrated Developing Environment ) 由以下元素組成由以下元素組成： （1）標題欄 用于顯示正在開發(fā)或調(diào)試的工程名和系統(tǒng)的工作狀態(tài)（設計態(tài)、運行態(tài)、中止態(tài)） 。 （2）菜單欄 用于顯示所使用的 Visual Basic 命令。包括 VB6.0 標準菜單。 （3）工

11、具欄 在編程環(huán)境下用于快速訪問常用命令。缺省情況下，啟動 VB 后顯示“標準”工具欄，附加的編輯、窗體設計和調(diào)試的工具欄可以從“視圖”菜單上的“工具欄”命令中移進或移出。 （4）窗體設計器 啟動 VB 后，窗體設計器中自動出現(xiàn)一個名為 Form1 的空白窗體，用來設計應用程序的界面。可以在該窗體中添加控件、圖形和圖片等來創(chuàng)建所希望的外觀，窗體的外觀設計好后，從菜單中選擇“文件|保存” ，在保存對話框中給出合適的文件名（注意擴展名） ，并選擇所需的保存位置。需要再設計另一個窗體時，單擊工具欄上的“添加窗體”按鈕即可。 （5）控件（工具）箱 由一組控件按鈕組成，用于設計時在窗體中放置控件。除了缺省

12、的工具箱布局之外，還可以通過從上下文菜單中選定“添加選項卡”并在結(jié)果選項卡中添加控件來創(chuàng)建自定義布局。 （6）彈出式（上下文）菜單 在要使用的對象上單擊鼠標右鍵即可打開快捷菜單，其上會出現(xiàn)與當前對象相關(guān)的經(jīng)常執(zhí)行的操作，以加快操作速度。 （7）工程管理器窗口 用于瀏覽工程中所包含的窗體和模塊，還可以從中查看代碼、查看對象。 （8）屬性窗口 VB 中一個比較復雜的窗口，其中列出了對選定窗體和控件的屬性設置值。VB 中正是通過改變屬性來改變對象的特征，如大小、標題或顏色。 （9）對象瀏覽器 列出工程中有效的對象，并提供在編碼中漫游的快速方法?？梢允褂谩皩ο鬄g覽器”瀏覽在 VB 中的對象和其它應用程

13、序，查看對那些對象有效的方法和屬性，并將代碼過程粘貼進自己的應用程序。 （10）代碼瀏覽器 右擊窗體中的對象、從工程管理器中點“查看代碼”按鈕。 （11）窗體布局窗口 Form Layout window 允許使用表示屏幕的小圖像來布置應用程序中各窗體的位置。 （12）立即、本地和監(jiān)視窗口這些附加窗口是為調(diào)試應用程序提供的，它們只在 IDE 之中運行應用程序時才有效?！旧蠙C實驗上機實驗】實驗一實驗一 VisualVisual BasicBasic 應用初步應用初步1實驗目的實驗目的 （1）熟悉 Visual Basic 6.0 集成開發(fā)環(huán)境。 （2）學習怎樣啟動和退出 VB。 （3）掌握開發(fā)一

14、個簡單程序的基本步驟。 （4）掌握簡單代碼的編寫。 2實驗內(nèi)容實驗內(nèi)容【1-1】進入/退出 VB 集成開發(fā)環(huán)境 （1）啟動 VB 的方法 方法 1：先單擊任務欄上的“開始”按鈕，再選擇“程序”文件夾，接著選取“Microsoft Visual Basic 6.0 中文版”文件夾，再選取“Microsoft Visual Basic 6.0 中文版”項，如圖 1-1 所示。圖 1-1 啟動 VB 的方法 1 方法 2：單擊“開始|程序|Windows 資源按理器|雙擊 VB6.exe 圖標” 。 方法 3：在桌面創(chuàng)建一個 VB 快捷鍵，雙擊該快捷鍵。 VB 啟動后，出現(xiàn) VB6.0 的“新建工程

15、”對話框（圖-2）單擊“打開”按鈕，帶有一個窗體的新工程將被創(chuàng)建，并可以看到 VB 集成開法環(huán)境的界面，如圖 1-3 所示。有的系統(tǒng)啟動后可直接進入圖 1-3 所示的界面。圖 1-2 VB6.0 的“新建工程”對話框圖 1-3 VB 的集成開發(fā)環(huán)境窗口 （2）退出 VB 方法 方法 1：單擊主窗口右上角的“關(guān)閉”按鈕。 方法 2：執(zhí)行“文件”菜單中的“退出”命令。 方法 3：按 Alt+Q 鍵?！?-2】開發(fā)一個簡單程序 實驗要求：新建一工程，在窗體（Form）上添加一個標簽（Label） ，當單擊窗體時標簽（Label）顯示“床前明月光” 。 實驗步驟： （1）新建工程 在桌面上雙擊 Mic

16、rosoft Visual Basic 6.0 快捷方式圖標，系統(tǒng)進入 Visual Basic6.0 集成開發(fā)環(huán)境，并顯示“新建工程”對話框，默認選擇是建立“標準 EXE”（即標準工程） 。單擊“打開”按鈕，Visual Basic 6.0 進入設計模式。如圖 1-4 所示。圖 1-4“新建工程”對話框 單擊“文件”菜單，選擇“新建工程”菜單項，也可進入設計模式。 （2）設計界面 在系統(tǒng)提供的名為 Form1 的窗體上進行界面設計。單擊工具箱上的標簽（Label）控件，在窗體上添加標簽的位置處按下鼠標左鍵，并拖動，調(diào)整虛框的大小，松開鼠標，就將標簽控件添加到窗體上。初始界面如圖 1-5 所示

17、。圖 1-5 初始界面 （3）設置屬性表 1-1 屬性設置對象屬性屬性值Form1Caption我的第一個 VB 程序Label1Caption 設置屬性后的界面如圖 1-6 所示。圖 1-6 設置屬性后的界面圖 1-7 一個簡單的程序 （4）編寫程序代碼 Private Sub Form_Click( ) Label1.Caption = 床前明月光 End Sub （5）運行程序方法 單擊工具欄上的“啟動”按鈕； 從“運行”菜單中選擇“啟動”菜單項； 按 F5 鍵。 例如，單擊工具欄上的“啟動”按鈕運行程序后，單擊窗體，程序運行效果如圖 1-7所示。 （6）保存程序 單擊工具欄中的“保存”

18、按鈕或單擊“文件”菜單中的“保存工程”菜單項，選擇合適的保存路徑，先保存窗體文件（例如窗體文件名為“實驗一.frm” ） ，然后保存工程文件（例如工程文件名為“實驗一.vbp” ） 。 （7）將 Visual Basic 工程編譯生成可執(zhí)行文件 單擊“文件”菜單中的“生成實驗一.exe”菜單項，就可生成可執(zhí)行的.exe 文件。退出 Visual Basic 集成開發(fā)環(huán)境，雙擊“實驗一.exe”文件，則實驗一.exe 文件就可直接運行。【1-3】建立第一個 VB 應用程序?qū)嶒炓螅撼绦蚪缑嬉娤聢D，要求當按“顯示內(nèi)容”按鈕時，文本框中出現(xiàn)紅色的“Hello,Visual Basic！”的文字，按“

19、清屏”按鈕時，文本框中文字消失，按“結(jié)束”按鈕后，程序結(jié)束。圖 1-8 一個 VB 程序?qū)嶒灢襟E：（1）新建工程新建工程，程序中有一個窗體 Form1。（2）設計界面及屬性程序中有一個窗體，一個文本框和三個按鈕，其屬性如下：表 1-2 屬性設置對象名稱屬性屬性值窗體（名稱）CaptionForm1VB，你好！文本框（名稱）TextAlignmentFontForeColorText12粗體、14 號紅色命令按鈕（名稱）CaptionCommand1顯示內(nèi)容命令按鈕（名稱）CaptionCommand2清屏命令按鈕（名稱）CaptionCommand3結(jié)束（3）添加事件代碼：Private Su

20、b Command1_Click() Text1.Text = Hello，Visual Basic！End SubPrivate Sub Command2_Click() Text1.Text = End SubPrivate Sub Command3_Click() EndEnd Sub第第 2 章章Visual Basic 簡單程序設計簡單程序設計控件對象是構(gòu)成用戶界面的基本元素，只有掌握了控件的屬性、事件和方法，才能編寫出具有價值的應用程序，本章將系統(tǒng)深入地介紹部分標準控件對象的用法，包括窗體、標簽、文本框、命令按鈕。此外本章還將介紹 VB 作為一門程序設計語言進行設計開發(fā)的一般步驟。

21、【重點重點】 （1）VB 的基本概念：對象、屬性、方法、事件。 （2）VB 中窗體、標簽、文本框、命令按鈕的主要屬性、事件和方法。 （3）VB 應用程序的設計步驟?！倦y點難點】 （1）窗體的 Print 方法、Move 方法。 （2）文本框的重要屬性以及 Change 事件。 （3）VB 工程文件以及窗體文件的創(chuàng)建與保存?！局R講解知識講解】1. 對象、屬性、方法、事件和事件驅(qū)動對象、屬性、方法、事件和事件驅(qū)動 （1）對象在 VB 中，對象分為兩類，一類是由系統(tǒng)設計好的，稱為預定義對象，它可以直接使用或?qū)ζ溥M行操作；另一類由用戶定義，它可以像 C+一樣建立用戶自己的對象。常用的窗體、控件等都是

22、 VB 中預定義的對象，這些對象是由系統(tǒng)設計好提供給用戶使用的，其移動、縮放等操作也是由系統(tǒng)預先定義規(guī)定的。 （2）對象的屬性 每個對象都有一組特征，稱之為屬性。在可視化編程中，每一種對象都有一組特定的屬性。有許多屬性為大多數(shù)對象所共有，還有一些屬性僅僅局限于個別對象。每一個對象屬性都有一個默認值，如果不明確地改變該屬性值，程序就將使用它的默認值。通過修改對象的屬性值能夠控制對象的外觀和操作。 （3）對象的事件 事件就是對象上所發(fā)生的事情。在 VB 中，事件是預先定義好的、能夠被對象識別的動作。不同的對象能夠識別不同的事件。當事件由用戶觸發(fā)或由系統(tǒng)觸發(fā)時，對象就會對該事件做出響應。響應某個事件

23、后所執(zhí)行的操作通過一段程序代碼來實現(xiàn)，這樣的代碼叫做事件過程。 （4）對象的方法 一般來說，方法就是要執(zhí)行的動作。VB 的方法與事件過程類似，它可能是函數(shù)，也可能是過程。它用于完成某種特定功能而不能響應某個事件。每個方法完成某個功能，用戶無法看到其實現(xiàn)的步驟和細節(jié)，更不能修改，用戶能做的工作只是按照約定直接調(diào)用它們。 （5）事件驅(qū)動的編程機制 在 VB 中，對象與程序代碼通過事件及事件過程來聯(lián)系，對象的活躍性則通過它對事件的敏感性來體現(xiàn)。一個對象（窗體或控件）往往可以感知和接收多個不同類型的事件，每個事件均能驅(qū)動一段程序（事件過程） ，完成對象響應事件的工作，從而實現(xiàn)一個預編程的功能。2窗體窗

24、體 （1）窗體的主要屬性 AutoRedraw 屬性：該屬性用來控制屏幕圖像的重建，主要用于多窗體程序設計中。 BackColor、ForeColor 屬性：該屬性用來設置窗體的背景和前景顏色。 BorderStyle 屬性：該屬性用來確定窗體邊框的風格。 Caption 屬性：該屬性決定了窗體標題欄上顯示的內(nèi)容。 ControlBox 屬性：該屬性用來設置窗口控制框的狀態(tài)。 Enabled 屬性：該屬性用于激活或禁止窗體響應用戶輸入信息。 Font 屬性：該屬性用來設置輸出字符的各種特性，包括字體、大小等。 Height、Width、Top 和 Left 屬性：Height 和 Width

25、屬性決定了窗體的高度和寬度，Top 和 Left 屬性決定了窗體在整個屏幕中的位置。 Icon 屬性：該屬性用來設置窗體最小化時的圖標。 MaxButton、MinButton 屬性：這兩個屬性用來控制顯示窗體右上角的最大、最小化按鈕是否顯示或是否有效。 （2）窗體的常用方法 Print 方法：用于將文本輸出到屏幕上或輸出到打印機上。 Cls 方法：用于清除運行時在窗體或圖片框中顯示的文本或圖形。 Move 方法：用于移動窗體或控件，并可改變其大小。 （3）窗體的常用事件 Click 事件：在窗體中單擊鼠標左鍵時觸發(fā)該事件。 Load 事件：在程序運行加載窗體后自動觸發(fā)，因此 Load 事件可

26、以用來在啟動程序時對屬性和變量進行初始化。 Unload 事件：當從內(nèi)存中清除一個窗體（關(guān)閉窗體或執(zhí)行 Unload 語句）時觸發(fā)該事件。如果重新裝入該窗體，則窗體中所有的控件都要重新初始化。3. 標簽標簽 （1）主要屬性 Alignment 屬性：該屬性用來確定標簽中標題文字的對齊方式。 AutoSize 屬性：如果把該屬性設置為 True，則可根據(jù) Caption 屬性指定的標題自動調(diào)整標簽的大??；如果把 AutoSize 屬性設置為 False，則標簽將保持設計時定義的大小。 BorderStyle 屬性：用來設置標簽的邊框。 WordWrap 屬性：該屬性用來決定標簽的標題（Capti

27、on）屬性的顯示方式。 （2）常用事件：標簽對象主要用來提供文字說明，因此盡管可以響應 Click、DblClick 等事件，但這些事件在程序設計中很少使用。 （3）常用方法 Refresh 方法：刷新標簽中的文字內(nèi)容，使標簽對象中顯示最新的 Caption 屬性值。 Move 方法：作用和使用方法同窗體對象。4文本框文本框(Text) （1）主要屬性 Text 屬性：文本框無 Caption 屬性，顯示的正文內(nèi)容存放在 Text 屬性中。 MaxLength 屬性：MaxLength 屬性指明文本框中能夠輸入的文本內(nèi)容的最大長度。 MultiLine 屬性：當 MultiLine 屬性為 T

28、rue 時，文本框可以輸入或顯示多行文本，同時具有自動換行功能。 PasswordChar 屬性：該屬性可用于口令輸入。 ScrollBars 屬性：當 MultiLine 屬性為 True 時，ScrollBars 屬性才有效。該屬性用于設定是否顯示文本框的滾動條。 SelStart、SelLength 和 SelText 屬性：在程序運行中，對文本內(nèi)容進行選擇操作時，這三個屬性用來標識用戶選中的文本。SelStart：選定文本的開始位置，第一個字符的位置是 0，依此類推；SelLength：選定文本的長度；SelText：選定的文本內(nèi)容。 （2）常用事件： Change 事件：當用戶向文本

29、框中輸入新信息，或當程序把 Text 屬性設置為新值從而改變 Text 屬性時，將觸發(fā) Change 事件。 GotFocus 事件：當文本框具有輸入焦點（即處于活動狀態(tài)）時觸發(fā)該事件。 （3）常用方法 Refresh 方法：刷新文本框中顯示的內(nèi)容。 SetFocus 方法：使文本框獲得焦點。5. 命令按鈕命令按鈕(CommandButton) （1）主要屬性 Cancel 屬性：當一個命令按鈕的 Cancel 屬性被設置為 True 時，按 Esc 鍵與單擊該命令按鈕的作用相同。 Default 屬性：當一個命令按鈕的 Default 屬性被設置為 True 時，按回車鍵與單擊該命令按鈕的作

30、用相同。 Enabled：用于設置命令按鈕是否有效，即是否可以被操作。 Style 屬性：命令按鈕不僅在 Caption 屬性中可以設置顯示的文字，還可以設置顯示圖形。若要顯示圖形，首先必須在設置 Style 屬性值為 1，然后在 Picture 屬性中設置顯示的圖形文件。 （2）常用事件： Click 事件：當單擊鼠標時觸發(fā)該事件。 DbClick 事件：當雙擊鼠標時觸發(fā)該事件。 （3）常用方法SetFocus 方法：使命令按鈕獲得焦點，對于獲得焦點的按鈕，程序運行時按“Enter”鍵等同于用鼠標單擊本按鈕。6. Visual Basic 應用程序設計步驟應用程序設計步驟 建立一個應用程序分

31、為以下幾步進行：（1）建立用戶界面；（2）設置窗體和控件的屬性；（3）編寫代碼；（4）保存和運行、調(diào)試程序?！旧蠙C實驗上機實驗】實驗二實驗二 VisualVisual BasicBasic 簡單程序設計簡單程序設計1實驗目的實驗目的 （1）熟悉 VB 集成環(huán)境及程序設計的全過程。 （2）掌握 VB 窗體的常用屬性、事件和方法。 （3）掌握 VB 命令按鈕的常用屬性、事件和方法。 （4）掌握 VB 文本框的常用屬性、事件和方法。 （5）掌握 VB 標簽的常用屬性、事件和方法。 2實驗內(nèi)容實驗內(nèi)容 【2-1】完善程序，練習窗體的常用事件。實驗要求：單擊窗體顯示“歡迎使用 VB” ；雙擊窗體顯示“謝

32、謝使用 VB” 。 （1）界面設計：建立應用程序界面。 （2）編寫程序代碼 Private Sub Form_Load() 窗體的加載事件 Caption = 裝入窗體 BackColor = RGB(0, 0, 255) FontSize = 40 FontName = 隸書 End Sub Private Sub Form_Click() 窗體的單擊事件 Caption = 鼠標單擊 ForeColor = RGB(255, 255, 0) _End Sub Private Sub Form_DblClick() 窗體的雙擊事件 Caption = 鼠標雙擊 ForeColor = RGB

33、(255, 0, 0) _End Sub （3）運行程序 單擊工具欄上的“啟動”按鈕，運行結(jié)果如圖 2-1 所示。 圖 2-1 運行界面【2-2】設計一個程序，窗體上有兩個命令按鈕和四個標簽。單擊“顯示”按鈕則該按鈕不可見，并在兩個標簽中分別顯示出當前日期和時間；單擊“清除”按鈕則取消顯示并恢復“顯示”按鈕。 （1）界面設計 在窗體上添加 4 個標簽和兩個命令按鈕，調(diào)整它們的位置及大小，如圖 2-2 所示。 （2）設置對象屬性 在窗體中選擇各個控件，在屬性窗口中設置它們的屬性。屬性設置見表 2-1。 表 2-1 程序中對象屬性設置對象名稱（Name）屬性屬性值標簽Label1Caption今天

34、的日期標簽Label2Caption今天的日期Caption空標簽Label3BorderStyle1Caption空標簽Label4BorderStyle1命令按鈕Command1Caption顯示命令按鈕Command2Caption清除 圖 2-2 運行界面 （3）編寫程序代碼 Command1 按鈕的事件代碼如下： Private Sub Command1_Click( ) Command1.Visible = False Label3.Caption = Date$ Label4.Caption = Time$ End Sub Command2 按鈕的事件代碼如下： Private

35、Sub Command2_Click( ) Label3.Caption = Label4.Caption = Command1.Visible = True End Sub （4）運行結(jié)果 分別單擊窗體中的“顯示”、 “清除”按鈕，運行結(jié)果如圖 2-2 所示。 （5）說明 Date$：返回當前系統(tǒng)日期。Time$：返回當前系統(tǒng)時間?！?-3】利用命令按鈕、文本框和標簽判斷口令是否正確。 （1）界面設計 建立應用程序界面。在窗體上添加 2 個標簽、1 個文本框和 2 個命令按鈕，注意調(diào)整各個控件的大小和位置。界面設計如圖 2-3 所示。圖 2-3 界面設計 （2）設置對象屬性 在窗體中選擇各個

36、控件，在屬性窗口中設置它們的屬性。屬性設置見表 2-2。 表 2-2 程序中對象屬性設置 對象名稱（Name） 屬性標題（Caption）窗體FormlCaption歡迎光臨標簽Label1Caption請輸入口令標簽Label2CaptionText空白MaxLength16文本框Text1PasswordChar*命令按鈕Command1Caption確定命令按鈕 Command2Caption取消 （3）編寫程序代碼 Private Sub Command1_Click( ) If Text1.Text=everyone Then Label2.Caption=大家好，歡迎使用本系統(tǒng)!

37、Else Label2.Caption=口令錯誤!請重新輸入口令! End If End Sub Private Sub Command2_Click() End End Sub （4）運行程序 運行程序，若在文本框中輸入正確的口令（everyone），單擊“確定”按鈕后，會在標簽中顯示“大家好，歡迎使用本系統(tǒng)!”。若在文本框中輸入錯誤的口令，則在標簽中顯示“口令錯誤!請重新輸入口令！”。運行結(jié)果如圖 2-4 所示。 圖 2-4 運行結(jié)果【2-4】編寫分別計算圓、正方形、矩形面積和周長的程序。要求：輸入圓、正方形和矩形的相關(guān)參數(shù)，在輸入的同時計算出對應的面積和周長，將結(jié)果顯示在標簽中。 （1）

38、界面設計：建立應用程序界面。在窗體上分別添加標簽和文本框。程序界面如圖 2-5所示。 （2）設置對象屬性：窗體中各控件的屬性設置見表 2-3。表 2-3 程序中對象屬性設置對象名稱（Name）屬性屬性值標簽Label1Label16Caption如圖 2-5文本框Text1Text4Text空白圖 2-5 設計界面 （3）程序代碼如下，請試著將其完善： Private Sub Text1_Change() Dim r As Single r=Val(Text1.Text) Label3.Caption= Label5.Caption= End Sub Private Sub Text2_Cha

39、nge() Dim a As Single a=Val（Text2.Text） Label8.Caption= Label10.Caption= End Sub Private Sub Text3_change（） Dim X As Single，Y As Single x=Val(Text3.Text) y=Val(Text4.Text) Label14.Caption= Label16.Caption= End Sub Private Sub Text4_Change() Dim x As Single，yAs Single x=Val(Text3.Text) y=Val(Text4.Te

40、xt) Label14.Caption= Label16.Caption= End Sub （4）運行程序：運行結(jié)果如圖 2-6 所示。圖 2-6 運行界面 說明：Dimas語句為聲明變量類型。Val( )函數(shù)的作用是把一個數(shù)字字符串轉(zhuǎn)換為相應的數(shù)值?！?-5】分析并設計如下圖所示的程序：在窗體上添加一個文本框、5 個命令按鈕，要求文本框能夠輸入多行文本，并且要求顯示水平與垂直滾動條。單擊“加粗”命令按鈕時，使文本框里的文本加粗，單擊“斜體”按鈕時，文本框里的文本變?yōu)樾斌w，單擊“40 磅”時，文本框里的文本字體大小設置為 40，單擊“隸書”時，文本框里的文本字體變?yōu)殡`書。圖 2-7 運行界面

41、實驗步驟： （1）根據(jù)題意設計界面，如圖 2-7 所示。 （2）編寫實驗代碼。 （3）按 F5 執(zhí)行程序，調(diào)試程序。（4）保存窗體和工程文件。第第 3 章章 程序設計基礎(chǔ)程序設計基礎(chǔ) Visual Basic 提供了滿足編程需要的基本變量類型，并且提供了對這些變量類型的基本操作方法，如函數(shù)、操作符等等。本章內(nèi)容將展開對這些系統(tǒng)變量類型操作與控制的練習?！局攸c重點】 （1）VB常用數(shù)據(jù)類型。 （2）變量訪問控制。 （3）表達式中各種符號表達的意義。 （4）系統(tǒng)函數(shù)的使用方法?！倦y點難點】 （1）表達式中符號優(yōu)先級。 （2）各系統(tǒng)函數(shù)的輸入、輸出格式。【知識講解知識講解】1. 數(shù)據(jù)類型數(shù)據(jù)類型數(shù)據(jù)

42、按照VB編程系統(tǒng)規(guī)則執(zhí)行的分類。VB中常用的基本數(shù)據(jù)類型可分為：（1）整數(shù)類型(Integer)（2）長整數(shù)類型(Long)（3）單精度類型(Single)（4）雙精度類型(Double)（5）貨幣類型(Currency)（6）字節(jié)類型(Byte)（7）日期時間類型(Date)（8）邏輯類型(Boolean)（9）字符串類型(String)（10）定長字符串類型(String*Length)，Length表示指定字符串中字符的數(shù)量（11）變體類型2常量和變量常量和變量兩者的區(qū)別在于程序運行期內(nèi)所分配的內(nèi)存中的數(shù)據(jù)是否可變。3數(shù)據(jù)類型轉(zhuǎn)換數(shù)據(jù)類型轉(zhuǎn)換它們可以相互轉(zhuǎn)換的，VB提供了一些系統(tǒng)函數(shù)可實

43、現(xiàn)數(shù)據(jù)類型之間的顯式轉(zhuǎn)換。4變體型數(shù)據(jù)類型變體型數(shù)據(jù)類型該類型是一種特殊的數(shù)據(jù)類型，即變體型可以是整數(shù)類型、布爾類型，也可以是字符串類型等。5除了系統(tǒng)定義的基本數(shù)據(jù)類型以外，除了系統(tǒng)定義的基本數(shù)據(jù)類型以外，VB 允許用戶定義自己的數(shù)據(jù)類型，即允許用戶定義自己的數(shù)據(jù)類型，即 UDT 類型。類型?！旧蠙C實驗上機實驗】實驗三實驗三 程序設計基礎(chǔ)程序設計基礎(chǔ)1實驗目的實驗目的 （1）理解常量與變量的作用，掌握各種常量的表示方法。 （2）掌握各種類型常量與變量定義，理解變量訪問控制的意義。 （3）掌握各種運算符的含義。 （4）掌握各種表達式的使用方法及其優(yōu)先級。 （5）掌握常用系統(tǒng)函數(shù)的使用。（6）掌握

44、格式化輸出函數(shù)Format的使用方法。（7）掌握UDT數(shù)據(jù)類型的使用方法。2實驗內(nèi)容實驗內(nèi)容 【3-1】建立新程序，在 Form 的 Click 事件中寫出字符串、布爾、日期常量，并且使用 Print 方法打印到窗體上。 實驗步驟： （1）根據(jù)題意設計界面。 （2）編寫實驗代碼。 （3）按 F5 執(zhí)行程序。 （4）保存窗體和工程文件。【3-2】建立含有一個命令按鈕的窗體，在命令按鈕單擊事件中輸入下列程序代碼。單擊命令按鈕，運行程序，分析產(chǎn)生顯示結(jié)果的原因。Private Sub Command1_Click()Dim x As IntegerDim y As doubleDim d As da

45、tex = 123y = 123.123z = NowPrint x1=;xPrint x2=; yPrint x3=; zEnd Sub 【3-3】在命令按鈕單擊事件中定義整型和字節(jié)型兩種類型的變量，分別賦予一個數(shù)值常量，要求在大小兩端剛剛超出數(shù)據(jù)范圍，使得運行出現(xiàn)溢出結(jié)果。 實驗步驟： （1）根據(jù)題意設計界面。 （2）編寫實驗代碼。 （3）按 F5 執(zhí)行程序 （4）保存窗體和工程文件?！?-4】按以下步驟完成工程，執(zhí)行程序后，分析并解釋程序運行結(jié)果，理解變量訪問控制的含義。 實驗步驟：（1）添加標準模塊，在標準模塊中定義一個Public整型變量pubInt。輸入如下子程序，設置工程啟動對象

46、為Sub MainSub MainForm1.ShowForm2.ShowEnd Sub（2）在Form1的基礎(chǔ)上再添加一個窗體Form2（執(zhí)行“工程”菜單中“添加窗體”菜單項） ，在每個窗體上放置兩個命令按鈕（Command1，Command2） 。（3）在每個窗體的通用部分定義一個模塊級整型變量frmInt。（4）在每個窗體單擊事件中，編寫實驗代碼：Private Sub Form_Click() Dim i As Integer Static si As Integer i = i + 1 si = si + 1 frmInt = frmInt + 1 pubInt = pubInt +

47、 1 Me.Cls Me.Print i=; i Me.Print si=; si Me.Print frmInt=; frmIntEnd Sub（5）按F5執(zhí)行程序（6）保存窗體和工程文件?！?-5】利用Rnd函數(shù)，設計一個表達式得到12-70之間的隨機整數(shù)并驗證。 實驗步驟： （1）根據(jù)題意設計界面 （2）編寫實驗代碼。 （3）按 F5 執(zhí)行程序 （4）保存窗體和工程文件?！?-6】寫出表達式120 mod 24 2 3運行過程和結(jié)果，比較運算符之間的不同優(yōu)先級。 實驗步驟： （1）根據(jù)題意設計界面。 （2）編寫實驗代碼。 （3）按 F5 執(zhí)行程序。 （4）保存窗體和工程文件?！?-7】設

48、有如下字符“welcome to microsoft visual basic 6.0”，查找“mi”字符，并且提取出該字符串后續(xù)的所有字符，運行如下程序，掌握字符串處理函數(shù)的使用方法：Dim str$, index%, qstr$ str = welcome to microsoft visual basic 6.0 qstr = mi index = InStr(1, str, qstr) MsgBox Mid(str, index, Len(str) index+1) 實驗步驟： （1）根據(jù)題意設計界面。 （2）編寫實驗代碼。 （3）按 F5 執(zhí)行程序。 （4）保存窗體和工程文件?！?-

49、8】編寫以下代碼，比較Int、CInt、Fix之間的差別Dim x1 As Single, x2 As Single x1 = 4.5 x2 = -4.5 Print int(x1):; Int(x1) Print cint(x1):; CInt(x1) Print fix(x1):; Fix(x1) Print int(x2):; Int(x2) Print cint(x2):; CInt(x2) Print fix(x2):; Fix(x2) 實驗步驟： （1）根據(jù)題意設計界面。 （2）編寫實驗代碼。 （3）按 F5 執(zhí)行程序。 （4）保存窗體和工程文件。【3-9】在Form中編寫以下代碼

50、，運行后，比較spc和Tab函數(shù)之間的差別。Print X=;12;Tab(10); Y=;34Print X=;12;Spc(10); Y=;34 實驗步驟： （1）根據(jù)題意設計界面。 （2）編寫實驗代碼。 （3）按 F5 執(zhí)行程序。（4）保存窗體和工程文件?！?-10】編寫如下代碼，練習Format格式化字符串輸出函數(shù)的使用，并觀察結(jié)果：Msgbox Format(“8651688888888”, &-0&-&)Msgbox Format(8651.615, #.#)Print Format(Now(), yy年mm月dd hh時mm分ss秒)Print Format(“abcd”,”!”

51、)Print Format(8651.615, #.00) 實驗步驟： （1）根據(jù)題意設計界面。 （2）編寫實驗代碼。 （3）按 F5 執(zhí)行程序。（4）保存窗體和工程文件?！?-11】新建 VB 工程，并添加一個窗體和一個模塊，在模塊中輸入以下代碼，請在窗體中實現(xiàn)自定義數(shù)據(jù)類型(UDT)RectangleType 的使用。要求在窗體中創(chuàng)建該 UDT 類型的變量，并且實現(xiàn)對該變量中所有數(shù)據(jù)字段的賦值與輸出：Type RectangleType Name As StringWidth As Long Height As Long Top As Integer Left As IntegerVisi

52、ble As BooleanDefault As Double End Type 實驗步驟： （1）根據(jù)題意建立界面和模塊。 （2）編寫實驗代碼，實現(xiàn) UDT 類型變量的賦值和輸出。 （3）按 F5 執(zhí)行程序。 （4）保存窗體和工程文件。第第 4 章章 順序結(jié)構(gòu)程序設計順序結(jié)構(gòu)程序設計 順序結(jié)構(gòu)是 VB 當中最簡單、最常用的基本結(jié)構(gòu)。在該結(jié)構(gòu)中，程序按照從左到右、自頂向下的順序逐條執(zhí)行語句，它是一種線性結(jié)構(gòu)。在順序結(jié)構(gòu)中可以嵌套選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)的語句，并按照語句代碼出現(xiàn)的先后次序執(zhí)行。【重點重點】 （1）賦值語句和輸入輸出語句的使用。（2）程序順序結(jié)構(gòu)的執(zhí)行流程。（3）注釋、結(jié)束和暫停語句。

53、【難點難點】（1）對順序結(jié)構(gòu)的理解和應用。（2）常用輸入輸出語句的使用?！局R講解知識講解】1. 賦值語句賦值語句（1）格式：= 或 .=（2）功能：計算表達式的值，再將此值賦給變量或?qū)ο髮傩浴＃?）說明： ：應符合 VB 變量命名約定。 ：常量、變量、表達式、屬性。 ：缺省時為當前窗體。 賦值號“=”：與數(shù)學中的等號意義不同。 賦值號左邊必須是變量或?qū)ο髮傩浴?變量名或?qū)ο髮傩悦念愋蛻c表達式類型相同。2. 注釋、結(jié)束和暫停語句注釋、結(jié)束和暫停語句（1）注釋語句VB 中的注釋是“REM”或一個單引號“”。注釋語句是非執(zhí)行語句，僅對程序的有關(guān)內(nèi)容起注釋作用，任何字符都可以放在注釋行中作為注釋

54、內(nèi)容。（2）結(jié)束語句 EndEnd 語句用來是終止當前程序并重置所有變量、關(guān)閉所有數(shù)據(jù)文件。（3）暫停語句 StopStop 語句用來暫停程序的執(zhí)行。 輸入語句 一個算法可以有輸入數(shù)據(jù)，也可以沒有輸入數(shù)據(jù)；即有零個或是多個輸入。對于VB 編寫，如果程序需要輸入，可以通過 Text、Label、InputBox 函數(shù)、過程等來實現(xiàn)。 輸出語句 一個算法至少有一個輸出，常用的方法通過 Text、Label、List、Print 方法、MsgBox 函數(shù)和過程等來實現(xiàn)?！旧蠙C實驗上機實驗】實驗四實驗四 順序結(jié)構(gòu)程序設計應用順序結(jié)構(gòu)程序設計應用1實驗目的實驗目的（1）掌握賦值語句的使用方法。（2）掌握

55、注釋、結(jié)束和暫停語句的使用方法。（3）掌握常用函數(shù)的使用方法。（4）掌握 InputBox 和 MsgBox 的使用方法。2實驗內(nèi)容實驗內(nèi)容 【4-1】設計如圖 4-1 所示的界面，輸入任意角度數(shù)值，計算該角度的正弦值和余弦值。圖 4-1 實驗步驟： （1）根據(jù)題意設計界面,如圖 4-1 所示。 （2）編寫實驗代碼。 （3）按 F5 執(zhí)行程序，調(diào)試程序。 （4）保存窗體和工程文件?！?-2】設計如圖 4-2 所示的界面，運行時，輸入某同學三門課的成績，計算平均成績。圖 4-2 計算平均成績 實驗要求：（1）單擊“計算”按鈕求平均成績。（2）當每個輸入成績的文本框獲得焦點時，選中其中的文本。（3

56、）當每個輸入成績的文本框內(nèi)容發(fā)生變化時，清除平均值。（4）單擊“清除”按鈕清除所有內(nèi)容，將焦點定位在 Text1 中。（5）單擊“退出”按鈕結(jié)束程序的運行。 實驗步驟：（1）根據(jù)題意設計界面，如圖 4-2 所示。（2）完善實驗代碼：Private Sub Command1_Click() A = Val( ) B = Val( ) C = Val( ) Text4.Text = ( ) / 3End SubPrivate Sub Text1 () Text1. = 0 Text1. = Len(Text1.Text)End Sub Private Sub Text2_ () Text2.Sel

57、Start = Text2.SelLength = Len(Text2.Text)End SubPrivate Sub Text3_ () Text3.SelStart = 0 Text3.SelLength = End SubPrivate Sub Text1_ () Text4.Text = End SubPrivate Sub Text2_ () Text4.Text = End SubPrivate Sub Text3_ () Text4.Text = End SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Text3

58、.Text = Text4.Text = End SubPrivate Sub Command3_Click() End Sub（3）按 F5 執(zhí)行程序。 （4）保存窗體和工程文件。 【4-3】如圖 4-3 所示，在 Text1 中輸入任一英文字母，在 Text2 中顯示該英文字母及其 ASCII碼值。要求在文本框 Text2 中顯示出所有輸入的英文字母及其 ASCII 碼值。圖 4-3 ASCII 碼轉(zhuǎn)換實驗步驟：（1）根據(jù)題意設計界面。（2）完善實驗代碼。Private Sub Command1_Click() Dim Char As String * 1 Char = Trim( ) T

59、ext2.Text = & Space(5) & Char & Space(10) & & vbCrLf Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub（3）按 F5 執(zhí)行程序。（4）保存窗體和工程文件。 【4-4】已知三角形的三條邊 a，b，c 的長度，用海倫公式求三角形的面積 S。海倫公式：)(21, )()(cbapcpbpappS 。圖 4-4 ASCII 碼實驗步驟：（1）根據(jù)題意設計界面，如圖 4-4 所示。（2）編寫實驗代碼。（3）按 F5 執(zhí)行程序，調(diào)試程序。（4）保存窗體和工

60、程文件。【4-5】編寫程序模擬實現(xiàn) BackSpace 鍵的功能。圖 4-5 BackSpace 鍵的功能實驗步驟：（1） 根據(jù)題意設計界面，如圖 4-5 所示。（2） 設計窗體并設置控件屬性。（3） 填寫實驗代碼：Private Sub Command1_Click()Text1.text=Left( _)Text1.SetFocusText1.SelStart=Len( )End Sub（4）按 F5 執(zhí)行程序，調(diào)試程序。（5）保存窗體和工程文件。第第 5 章章選擇結(jié)構(gòu)程序設計選擇結(jié)構(gòu)程序設計所謂選擇結(jié)構(gòu)，表示根據(jù)不同的情況做出不同的選擇，執(zhí)行不同的操作。此時就需要對某個條件做出判斷，根據(jù)