VB課程教案

《VB課程教案》由會員分享，可在線閱讀，更多相關(guān)《VB課程教案（190頁珍藏版）》請在裝配圖網(wǎng)上搜索。

Visual Basic 程序設(shè)計教案 第一章 VB 程序設(shè)計概述 對于每一位有志于掌握 Windows 平臺上應(yīng)用程序開發(fā)技術(shù)的學(xué)習(xí)者 都必須首先學(xué)習(xí) 和掌握至少一門計算機程序設(shè)計語言作為應(yīng)用程序的開發(fā)工具 VB 是當(dāng)今世界應(yīng)用軟件 開發(fā)中最為流行的工具之一 要學(xué)習(xí) VB 程序設(shè)計的語言和方法 就必須了解 VB 語言的 基本特性 功能特點及其開發(fā)環(huán)境 本章教學(xué)目標(biāo) 本章主要介紹 VB 語言的基本特性 功能特點及其開發(fā)環(huán)境 知識點 1 Visual Basic 在程序開發(fā)中的地位及作用 2 掌握開發(fā)環(huán)境的窗口作用 3 對 Visual Basic 的使用環(huán)境加以介紹 技能點 1 理解并能解釋面向?qū)ο蟪绦蛟O(shè)計的基本思想 2 熟悉并基本掌握 Visual Basic 的運行環(huán)境 3 理解并能運用 Visual Basic6 0 的主要開發(fā)窗口 1 1 概述 教學(xué)目標(biāo) 學(xué)習(xí)可視化程序語言與其他程序設(shè)計語言的區(qū)別 了解 Visual Basic 程序設(shè)計語言 的基本特點 教學(xué)要求 了解 Visual Basic 程序的基本特點 了解 Visual Basic 6 0 的運行的軟硬件環(huán)境和啟動方法 理解 可視化程序語言與其他程序設(shè)計語言的區(qū)別 本節(jié)重點 Visual Basic 程序的基本特點 顏華城教授于 1999 年底開始為北京市建筑物資租賃公司開發(fā)研制 計算機建筑物資租 賃管理信息系統(tǒng) 該系統(tǒng)現(xiàn)已投入該公司所屬各租賃站和公司本部實際運行 3 年 取得了 良好的經(jīng)濟(jì)和社會效益 建筑物資租賃管理是一個集物流和資金流相互交織為一體 數(shù)據(jù) 處理過程復(fù)雜的系統(tǒng) 它是在 Windows 95 98 以及 Windows 2000 平臺上 以 Visual Basic 6 0 企業(yè)版 為開發(fā)工具 開發(fā)研制的數(shù)據(jù)庫應(yīng)用軟件 系統(tǒng)以 ADO 方式連接 Access 97 數(shù)據(jù)庫中的數(shù)據(jù) 并集成 Excel 97 作為報表輸出的工具 計算機建筑物資租賃管理系統(tǒng)系統(tǒng)共包括 61 個主要數(shù)據(jù)處理與操作功能 這些功能分 為 9 個子系統(tǒng) 源程序中共含 72 個 VB 窗體以及一個標(biāo)準(zhǔn)模塊 開發(fā)者之所以選擇 VB 作為系統(tǒng)的開發(fā)工具 是因為 VB 繼承了其先輩 Basic 程序設(shè) 計語言簡單易用的特點 其編程系統(tǒng)又采用了面向?qū)ο?事件驅(qū)動的編程機制 提供了一 種所見即所得的可視界面設(shè)計方法 更可貴的是 VB 可以與 Microsoft 微軟 公司提供的 Microsoft Office 中的應(yīng)用程序緊密結(jié)合 即與 Microsoft Office 中的宏語言混合編程 開發(fā) 者可以充分利用 Microsoft Office 中功能強大的應(yīng)用軟件完成系統(tǒng)所需要的各項工作 一 Windows 平臺上應(yīng)用程序的可視化開發(fā)工具 Visual Basic Visual Basic 最早于 1991 年由 Microsoft 公司推出 其中 Visual 表示 可視化 可 視化程序設(shè)計語言是當(dāng)代計算機程序設(shè)計語言的先進(jìn)代表與主流 1998 年 Microsoft 公司 又推出 Visual Basic 6 0 Visual Basic 6 0 在開發(fā)環(huán)境 功能方面比前幾版進(jìn)一步完善和擴(kuò) 充 尤其在數(shù)據(jù)庫管理 網(wǎng)絡(luò)應(yīng)用方面更勝一籌 使得 Visual Basic 6 0 成為大多數(shù)程序員 首選的編程工具 VB 6 0 包括三個版本 分別為學(xué)習(xí)版 專業(yè)版和企業(yè)版 其中 學(xué)習(xí)版 為 VB 6 0 的基礎(chǔ)版本 主要供初學(xué)者學(xué)習(xí)使用 專業(yè)版 主要供專業(yè)人員使用 它除具有學(xué)習(xí)版的 全部功能外 還包括 ActiveX Internet 控件開發(fā)工具 動態(tài) HTML 頁面設(shè)計等高級特性 企業(yè)版 是 VB 6 0 的最高版本 供開發(fā)研制企業(yè)應(yīng)用程序使用 在本門課程的教學(xué)中 我們使用的是 Visual Basic 6 0 的中文企業(yè)版 二 VB 功能特點 1 具有面向?qū)ο蟮目梢暬O(shè)計工具 在 VB 中 應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法 OOP 方法 把程序和數(shù)據(jù)封裝起來視為 一個對象 每個對象都是可視的 程序員在設(shè)計時只需根據(jù)界面設(shè)計的要求 直接在計算 機屏幕上 畫 出各種需要的不同類型的對象 控件和窗體 并為每個對象設(shè)置屬性 就 可以完成應(yīng)用程序的人機對話的界面設(shè)計 最后程序員的編程工作僅針對對象要完成的功 能進(jìn)行編程 就可以完成應(yīng)用程序的全部程序設(shè)計工作 2 事件驅(qū)動的編程機制 事件驅(qū)動編程是當(dāng)代最先進(jìn)的編程方法 VB 中每個對象都有相應(yīng)的各種事件 每個事 件都能夠驅(qū)動一段程序的運行 針對對象所響應(yīng)的事件進(jìn)行編程 能夠令應(yīng)用程序完成設(shè) 計者所期望的各種數(shù)據(jù)處理及其他工作 此種編程機制既可以極大地減少編程量 又可以 降低編程的難度 使得程序易于編寫和維護(hù) 3 提供了易學(xué)易用的應(yīng)用程序集成開發(fā)環(huán)境 VB 為用戶提供了開發(fā)應(yīng)用程序的集成開發(fā)環(huán)境 用戶可以在同一個開發(fā)環(huán)境中設(shè)計應(yīng) 用程序界面 編寫程序代碼 調(diào)試程序 進(jìn)行應(yīng)用程序的編譯等各項工作 4 結(jié)構(gòu)化的程序設(shè)計 5 支持多種數(shù)據(jù)庫系統(tǒng)的訪問 利用 VB 提供的數(shù)據(jù)控件或 ODBC VB 可以訪問各種當(dāng)代流行的數(shù)據(jù)庫系統(tǒng) 如 Access SQL Server 以及 Oracle 等各種類型的數(shù)據(jù)庫 也可訪問 Microsoft 的 Excel 電子電 子表格以及 Loutus1 2 3 等 6 OLE 技術(shù) VB 的核心是其對對象的鏈接與嵌入 OLE 的支持 利用 OLE VB 可開發(fā)集聲音 圖象 動畫 字處理 Web 等對象于一體的應(yīng)用程序 7 Active 技術(shù) VB 可方便地使用標(biāo)準(zhǔn)的 Active 部件 調(diào)用標(biāo)準(zhǔn)接口 實現(xiàn)各種特定的功能 8 完備的 Help 聯(lián)機幫助功能 三 運行環(huán)境 VB 6 0 是 Windows95 98 Windows NT 或 Windows 2000 下的一個應(yīng)用程序 它對環(huán) 境的要求與所依賴的操作系統(tǒng)的要求是一致的 硬件要求 586 以上 CPU 16M 以上內(nèi)存 100M 以上硬盤 軟件要求 Windows95 98 NT3 51 以上版本或 Windows2000 四 啟動 啟動 VB 的常用方法主要有以下兩種方法 1 通過 開始 按鈕的 程序 菜單 選擇打開 Microsoft Visual Basic 6 0 中文版 2 雙擊桌面上的 VB 快捷方式圖標(biāo) 1 2 集成開發(fā)環(huán)境 教學(xué)目標(biāo) 學(xué)習(xí) Visual Basic 程序設(shè)計的開發(fā)環(huán)境 理解掌握主窗口 屬性窗口 代碼編輯窗 口 工程資源管理器窗口 工具箱窗口的作用及使用方法 教學(xué)要求 了解 VB 的工程的三種 工作模式 運行模式 中斷模式 了解 屬性窗口和代碼編輯窗口的關(guān)系和區(qū)別 理解 各個窗口在程序開發(fā)中的作用 掌握 主窗口的使用 窗體窗口的使用 工具箱窗口的使用 屬性窗口的使用和工程資源管理器窗口的使用 本節(jié)重點 主窗口 屬性窗口 代碼編輯窗口 工程資源管理器窗口 工具箱窗口的作 用及使用方法 當(dāng)用戶啟動 Microsoft Visual Basic 6 0 中文版后 首先進(jìn)入的環(huán)境就是 VB 的系統(tǒng) 集成開發(fā)環(huán)境 用戶可以在這個環(huán)境中進(jìn)行應(yīng)用程序界面的設(shè)計 編寫程序代碼 調(diào)試程 序 進(jìn)行應(yīng)用程序的編譯等各項工作 系統(tǒng)集成開發(fā)環(huán)境中包括以下的欄目和窗口 一 集成開發(fā)環(huán)境窗口 系統(tǒng)集成開發(fā)環(huán)境也由一個窗口展示 它包括以下 3 個欄目 1 標(biāo)題欄 窗口中的 標(biāo)題攔 用于標(biāo)識當(dāng)前工程的名稱以及工程當(dāng)前所處的工作模式 VB 的 工程有三種工作模式 1 設(shè)計模式 進(jìn)行用戶界面的設(shè)計 代碼的編制及應(yīng)用程序的開發(fā) 2 運行模式 運行應(yīng)用程序 此時不可編輯代碼和界面 3 中斷模式 運行暫時中斷 此時可編輯代碼 但不能編輯界面 2 菜單欄 菜單攔 中包括 13 個下拉菜單 這些菜單中包含了程序開發(fā)過程中所需要的命令 1 文件 主要用于創(chuàng)建 VB 的工程 保存工程 顯示最近設(shè)計的工程 將當(dāng)前 工程編譯生成可執(zhí)行文件 保存或另存工程中的文件 打印等工作 VB 的工程是應(yīng) 用程序的基本和主要載體 要開發(fā)一個 VB 的應(yīng)用程序首先要創(chuàng)建一個工程 一個工 程可以包含一個應(yīng)用程序的全部窗體 模塊 程序等 VB 的工程以文件的形式存放 到磁盤 文件的擴(kuò)展名為 VBP 2 編輯 主要用于對程序源代碼的編輯 其中包括復(fù)制 粘貼 查找 替換等 諸多功能 3 視圖 主要用于在集成開發(fā)環(huán)境下 各種管理和工具窗口的顯示 以便用戶 在程序設(shè)計中對 VB 源程序以及各種對象的查看和定義 4 工程 主要用于添加窗體或模塊 移除窗體或模塊 在 VB 工具箱中添加控 件 設(shè)置應(yīng)用程序運行的啟動窗體等 5 格式 主要用于設(shè)置窗體控件的位置 如水平居中 垂直居中 多個控件的 對齊位置 控件間的間距等 6 調(diào)試 主要用于源程序的查錯和調(diào)試 7 運行 用于程序的運行 停止及中斷 8 查詢 主要用于在設(shè)計數(shù)據(jù)庫應(yīng)用程序時設(shè)計 SQL 屬性 9 圖表 主要用于在設(shè)計數(shù)據(jù)庫應(yīng)用程序時編輯數(shù)據(jù)庫 10 工具 主要用于應(yīng)用程序的菜單設(shè)計 以及應(yīng)用程序設(shè)計過程中設(shè)置 VB 系 統(tǒng)的各種編輯狀態(tài) 如 是否要求對源程序進(jìn)行自動語法檢測 是否要求變量聲明 是否要求控件對齊到窗體的網(wǎng)格等 11 外接程序 用于為工程增加或刪除外接程序 12 窗口 用于屏幕窗口的層疊 平鋪以及列出全部打開的文檔窗口等 13 幫助 用于幫助用戶系統(tǒng)學(xué)習(xí)掌握 VB 的使用方法及程序設(shè)計的方法 3 工具欄 工具攔可以使用戶迅速地訪問系統(tǒng)常用的菜單命令 二 窗體窗口 窗體窗口用于對窗體的設(shè)計 窗體是組成 VB 應(yīng)用程序的主體對象 它是一個容器 即每一個窗體都可以容納諸多控件 它通常也是應(yīng)用程序中人機交互的主要界面 一個應(yīng) 用程序中包括多個窗體 每個窗體必須有唯一的窗體名 在設(shè)計時 窗體網(wǎng)格是可見的 并可通過 工具 菜單中的 選項 命令來改變 三 屬性窗口 屬性窗口由對象列表框 屬性列表框 屬性含義說明 屬性顯示排列方式 4 部分組成 通過屬性窗口 用戶可以設(shè)置對象的各種屬性 四 工程資源管理器窗口 工程資源管理器窗口類似 Windows 中的資源管理器 它保存并展示一個應(yīng)用程序所有 的文件 其中主要包括以下三類文件 窗體文件 文件擴(kuò)展名是 FRM 標(biāo)準(zhǔn)模塊文件 文件擴(kuò)展名是 BAS 類模塊文件 文件擴(kuò)展名是 CLS 工程資源管理器窗口有三 個按鈕 查看代碼 查看對象 切換文件夾 其中 查看代碼 命令按鈕用于查看 與編輯窗體的源程序 查看對象 命令按鈕用于對窗體和窗體控件的設(shè)計以及各種對象 屬性的設(shè)置 五 代碼窗口 代碼窗口專門供用戶編寫程序 打開代碼窗口有以下三種方法 1 選擇窗體或模塊后 單擊 查看代碼 按鈕 2 鼠標(biāo)雙擊窗體或控件 3 視圖 菜單中的 代碼窗口 命令 六 立即窗口 用戶可在立即窗口顯示所關(guān)心的表達(dá)式的值 以便調(diào)試程序 七 窗體布局窗口 窗體布局窗口用于指定程序運行時的初始位置 主要為使用戶所開發(fā)的應(yīng)用程序能夠 在各種不同分辨率的計算機屏幕上正常運行 八 對象瀏覽器窗口 對象瀏覽器窗口用以查看在工程中定義的模塊或過程 九 工具箱窗口 工具箱窗口為用戶提供標(biāo)準(zhǔn)控件 如 命令按鈕 Command 標(biāo)簽 Label 文本框 TextBox 組合框 ComboBox 等 也可以通過 工程 菜單中的 部件 項在其中 添加其它控件或 Windows 應(yīng)用程序 第二章 簡單的 VB 程序設(shè)計 在了解 VB 語言的基本特性 功能特點及其開發(fā)環(huán)境后 VB 的學(xué)習(xí)者還需要進(jìn)一步了 解面向?qū)ο蟪绦蛟O(shè)計的概念 掌握建立簡單應(yīng)用程序的基本方法 然后通過一個較為簡單 的 VB 應(yīng)用程序窗體實例的開發(fā) 對 VB 的程序設(shè)計有一個全面的了解 以便為今后復(fù)雜 應(yīng)用程序的開發(fā)打下良好的基礎(chǔ) 本章教學(xué)目標(biāo) 知識點 1 結(jié)構(gòu)化程序設(shè)計和面向?qū)ο蟪绦蛟O(shè)計的區(qū)別 2 掌握類及對象的概念 3 窗體 控件 屬性 事件 方法的開發(fā)程序中的作用 4 工程文件的作用及結(jié)構(gòu) 技能點 1 理解并能正確設(shè)置窗體及相關(guān)控件的屬性 2 熟悉并基本掌握 Visual Basic 程序的創(chuàng)建過程 3 理解并能運用工程文件的作用及工程的使用方法 4 正確掌握事件代碼的創(chuàng)建方法及方法的調(diào)用 2 1 程序設(shè)計方法的發(fā)展 教學(xué)目標(biāo) 學(xué)習(xí)面向?qū)ο蟪绦蛟O(shè)計 OOP 語言的基本思想和基本方法 教學(xué)要求 了解 程序設(shè)計語言的發(fā)展過程 理解 結(jié)構(gòu)化程序設(shè)計和面向?qū)ο蟪绦蛟O(shè)計的區(qū)別 本節(jié)重點 結(jié)構(gòu)化程序設(shè)計和面向?qū)ο蟪绦蛟O(shè)計的區(qū)別 一 初期的程序設(shè)計 自 1946 年誕生世界上第一臺計算機起 計算機程序設(shè)計語言的發(fā)展經(jīng)歷了四個階段 1 機器語言階段 2 匯編語言階段 3 高級語言階段 4 面向?qū)ο蟪绦蛟O(shè)計階段 二 結(jié)構(gòu)化程序設(shè)計 結(jié)構(gòu)化程序設(shè)計 Structure Programming 是一種強調(diào)功能抽象化和模塊化的編程方 法 它把求解問題的過程看作一個處理過程 20 世紀(jì) 70 年代 Dijkstra 提出三種基本的程序結(jié)構(gòu) 順序結(jié)構(gòu) 選擇結(jié)構(gòu) 循環(huán)結(jié)構(gòu) 以及自頂向下 逐步求精 模塊化程序設(shè)計的原則 結(jié)構(gòu)化程序設(shè)計解決了由多人共同開 發(fā)大型軟件時 如何高效率地完成高可靠性系統(tǒng)的問題 結(jié)構(gòu)化程序的可讀性好 可維護(hù) 性好已成為評價程序質(zhì)量的首要條件 VB 改變了原 Basic 語言的非結(jié)構(gòu)程序設(shè)計思想 采 用結(jié)構(gòu)化程序設(shè)計的思想和方法 三 面向?qū)ο蟮某绦蛟O(shè)計 面向?qū)ο蟪绦蛟O(shè)計 OOP Object Oriented Programming 是一種以對象為基礎(chǔ) 以 事件來驅(qū)動對象執(zhí)行的程序設(shè)計技術(shù) OOP 將一個應(yīng)用程序 逐步劃分成相互關(guān)聯(lián)的多個 對象 并且建立起與這些對象相關(guān)聯(lián)的事件過程 通過對象對所發(fā)生的事件產(chǎn)生響應(yīng) 來 執(zhí)行相應(yīng)事件過程 以引發(fā)對象狀態(tài)的改變 從而最終達(dá)到運算 處理的目的 程序員在 應(yīng)用程序中只需說明對象應(yīng)完成的任務(wù) 該任務(wù)通常仍由編程來完成 仍采用結(jié)構(gòu)化程序 設(shè)計的方法 面向?qū)ο蟪绦蛟O(shè)計最早在 20 世紀(jì) 80 年代就已提出 起源于 Smalltalk 語言 此種方 法引入了新的概念和思維方式 為使軟件在程序設(shè)計階段能夠模仿建立真實世界的模型 此種設(shè)計方法對系統(tǒng)的復(fù)雜性進(jìn)行概括 抽象和分類 使軟件的設(shè)計與實現(xiàn)形成一個由抽 象到具體 由簡單到復(fù)雜的一個循序漸進(jìn)的過程 從而解決了大型軟件研制中存在的效率 低 質(zhì)量難以保證 調(diào)試復(fù)雜 維護(hù)困難等一系列問題 因此近年來面向?qū)ο蟮某绦蛟O(shè)計 得到廣泛的應(yīng)用 目前在 Windows 環(huán)境下常用的面向?qū)ο蟪绦蛟O(shè)計語言有 Visual Basic Visual J Visual C Visual FoxPro 等 面向?qū)ο蟪绦蛟O(shè)計的優(yōu)點 1 符合人們的習(xí)慣思維方式 便于分析復(fù)雜而多變的問題 2 易于軟件的維護(hù)和功能的增減 3 能用繼承的方式減短程序開發(fā)所花的時間 5 與可視化技術(shù)相結(jié)合 改善了工作界面 2 2 對象的概念 VB 提供了面向?qū)ο蟪绦蛟O(shè)計的強大功能 程序的核心是對象 VB 不僅提供了大量的 控件對象 而且提供了創(chuàng)建自定義對象的方法和工具 為開發(fā)應(yīng)用者帶來了諸多便利 教學(xué)目標(biāo) 學(xué)習(xí)面向?qū)ο蟪绦蛟O(shè)計中對象 類 方法 對象的屬性 對象的事件和對象的事 件過程的基本概念及有關(guān)的內(nèi)容 教學(xué)要求 理解 對象和類的概念 理解 對象和類的關(guān)系與區(qū)別 掌握 對象的屬性 事件 方法在程序開發(fā)中的作用 在程序設(shè)計過程中如何設(shè)計 對象的屬性 編寫對象的事件代碼 調(diào)對象的方法 本節(jié)重點 對象和類的關(guān)系 屬性 方法 事件在面向?qū)ο蟪绦蛟O(shè)計中的作用 本節(jié)難點 對象和類的概念 本節(jié)應(yīng)注意的問題 對象和類的關(guān)系與區(qū)別 一 對象和類 1 對象 Object 在 OOP 中 程序的核心是對象 在開發(fā)一個應(yīng)用程序時 必須先建立各種對象 然后 圍繞對象來進(jìn)行程序設(shè)計 對象是具有某些特性的具體事物的抽象 如 控件及窗體 每 個對象都具有描述其特征的屬性 以及附屬于它的行為 在 VB 中 工程中的每一個窗體 窗體中的每一個控件都是一個對象 2 類 類是創(chuàng)建對象實例的模板 是同種對象的集合與抽象 它包含所創(chuàng)建對象的屬性描述 和行為特征的定義 類含有屬性和方法 它封裝了用于類的全部信息 在 VB 中 所見到的類大多是系統(tǒng)已經(jīng)設(shè)計完成的 我們只需使用就可以了 如 VB 工具箱中的可視類圖標(biāo)是 VB 系統(tǒng)設(shè)計好的標(biāo)準(zhǔn)類控件 具體的如 工具箱中的 TextBox 控件就是一個標(biāo)準(zhǔn)類 當(dāng)我們從該類中 取出 某個 Text 控件后 這個 Text 控件就成為一個對象 它自動繼承了 TextBox 類的各種特征 即當(dāng)我們在窗體上畫一個控 件時 就將類轉(zhuǎn)換為一個對象 也就創(chuàng)建了一個控件對象 控件對象簡稱控件 VB 也允 許程序員自行設(shè)計類 注意 窗體是一個特例 它既是對象又是類 3 容器 容器也是對象 只是此種對象允許我們在其中添加或包含其他對象 常用的對象有窗 體 Frame 等 除了通過利用控件類產(chǎn)生控件對象外 VB 還提供了系統(tǒng)對象 如打印機 Printer 剪貼板 Clipboard 屏幕 Screen 應(yīng)用程序 App 等 二 對象的建立和編輯 1 對象的建立方法 1 從工具箱中建立 2 使用復(fù)制的方法 2 對象的選定 1 單個對象的選擇 用鼠標(biāo)單擊對象 2 多個對象的選擇 單擊第一個對象 按住 Shift 鍵 再單擊其他對象 3 復(fù)制或刪除對象 1 復(fù)制 先選擇對象 然后復(fù)制并粘貼 注意 在粘貼對象時 VB 系統(tǒng)會提問是 否要建立控件數(shù)組 若不想建立控件數(shù)組應(yīng)回答 否 2 刪除 選定對象后按 Del 鍵 4 對象的命名 每一個對象都有自己的名稱 用戶所建立的控件和窗體都有默認(rèn)的名稱 如 Form1 Form2 Text1 Text2 等 用戶也可以通過對象的屬性窗口給對象重新命名 對象 名稱必須以英文字母或漢字開頭 后面可由字母 漢字 數(shù)字串組成 其長度不超過 255 個字符 根據(jù)我們多年從事軟件開發(fā)的經(jīng)驗 我們建議 窗體用漢字命名 控件一般使用 原默認(rèn)名 三 對象的屬性 事件和方法 VB 的控件具有自己的屬性 事件和方法 我們可以將屬性看作一個對象的性質(zhì) 將 事件看作對象的響應(yīng) 將方法看作對象的動作 這三者構(gòu)成了對象的三要素 1 屬性 對象中的數(shù)據(jù)保存在屬性中 是用來描述和反映對象特征的參數(shù) 定義對象屬性的方 法有以下兩種 1 在設(shè)計階段使用屬性窗口直接設(shè)置對象的屬性 如 給一個名為 Label1 的標(biāo)簽對象的 Caption 屬性值定義為 建筑物資租賃管理 2 在程序代碼編制過程中通過賦值語句來定義 其語句形式為 如 在程序中用 Label1 Caption 建筑物資租賃管理 的語句為 Label1 的標(biāo)簽 對象的 Caption 屬性賦值 2 事件 事件過程和事件驅(qū)動 1 事件 事件是發(fā)生在對象上的事情 VB 系統(tǒng)為每一個對象預(yù)先定義了一系列的事件 如單擊 Click 雙擊 DblClick 改變 Change 獲取焦點 GotFocus 等 2 事件過程 當(dāng)對象發(fā)生了事件后 應(yīng)用程序就可能需要處理這個事件 而其處理的步驟就是 事件過程 它是針對某一對象的過程 并與該對象的一個事件相聯(lián)系 VB 的編程工 作主要就是為對象編寫事件過程中的程序代碼 事件過程的形式如下 Sub 對象名 事件 參數(shù)列表 End Sub 例如 當(dāng)用戶單擊名為 Command1 命令按鈕事件發(fā)生后 所編制的事件過程如下 Sub command1 click Command1 Fontsize 20 設(shè)置命令按鈕的字體大小為 20 磅 End Sub 注意 當(dāng)用戶對一個對象發(fā)出一個動作時 可能會同時在該對象上發(fā)生多個事件 如用戶在對象上單擊鼠標(biāo) 會同時產(chǎn)生 Click MouseDown MouseUp 三個事件 我 們只需對感興趣的事件編程即可 3 事件驅(qū)動的程序設(shè)計 在 VB 中 程序的執(zhí)行是先等待某個事件的發(fā)生 然后再執(zhí)行處理此事件的過程 即事件驅(qū)動程序設(shè)計方式 VB 驅(qū)動程序的執(zhí)行步驟如下 啟動應(yīng)用程序 裝載和顯示窗體 注意 若用戶需要在窗體裝載計算機內(nèi)存時執(zhí)行某些操作和數(shù)據(jù)處理功能 應(yīng)將 程序?qū)懺诖绑w的 Form Load 事件或標(biāo)準(zhǔn)模塊中 窗體或控件等待事件的發(fā)生 事件發(fā)生時 執(zhí)行對應(yīng)的事件過程 重復(fù)執(zhí)行 步 3 方法 面向?qū)ο蟮某绦蛟O(shè)計語言提供了一種特殊的過程和函數(shù) 該過程和函數(shù)稱為方法 每 個方法都可執(zhí)行完成某項任務(wù) 對象方法的調(diào)用格式為 對象 方法 參數(shù)名表 例 Print 方法 2 3 初步建立應(yīng)用程序 教學(xué)目標(biāo) 運用所學(xué)習(xí)的 VB 程序設(shè)計語言的知識 通過創(chuàng)建一個簡單的應(yīng)用程序窗體 來學(xué) 習(xí)應(yīng)用軟件開發(fā)的基本思想和基本方法 教學(xué)要求 了解 應(yīng)用程序開發(fā)示例 理解 VB 程序的開發(fā)步驟 掌握 窗體及主要控件的設(shè)置及使用方法 本節(jié)重點 開發(fā) VB 應(yīng)用程序的步驟 常用控件及窗體的屬性及事件的作用及定義方法 在 VB 中要創(chuàng)建一個應(yīng)用程序 首先就需要至少創(chuàng)建一個工程和工程中的窗體 創(chuàng)建 工程的常用方法有以下兩種 第一種方法是當(dāng)用戶啟動 VB 后 在啟動對話框中選擇 新 建 頁的 標(biāo)準(zhǔn) EXE 系統(tǒng)就會自動創(chuàng)建一個工程和一個窗體 第二種方法是用戶選擇 系統(tǒng) 文件 菜單中的 新建工程 功能 系統(tǒng)也會自動創(chuàng)建一個工程和一個窗體 新建 工程的默認(rèn)名稱通常為 工程 1 新建窗體的默認(rèn)名稱通常為 Form1 若用戶需要 更改窗體的名稱 可通過窗體的 名稱 屬性值直接更改 若需要更改工程的名稱則需要 在保存工程時進(jìn)行更改 VB 工程文件保存的順序是 先保存工程中的標(biāo)準(zhǔn)模塊文件 然 后保存工程中的窗體文件 最后保存工程文件 VB 建立應(yīng)用程序的步驟如下 第一步 建立用戶界面的對象 第二步 進(jìn)行對象屬性的設(shè)置 第三步 進(jìn)行對象事件編程 第四步 保存和調(diào)試程序 在調(diào)試程序時應(yīng)設(shè)置斷點 可設(shè)置多個 當(dāng)程序執(zhí)行到斷點時會暫停程序的運行 用 戶可對程序中的變量值以及運行情況進(jìn)行查驗 若需依次查驗程序運行的情況可按 F8 鍵 單步執(zhí)行 否則可按 運行 按鈕繼續(xù)程序的運行 下面給出創(chuàng)建一個應(yīng)用程序的實例 設(shè)需要創(chuàng)建的工程名為 租賃管理 工程中的 窗體名為 系統(tǒng)啟動畫面 窗體樣式為 1 1 中的圖 1 1 該窗體內(nèi)只包括一個圖形控件 Image 和兩個標(biāo)簽 Label 控件 為順利地完成上述簡單窗體的程序設(shè)計工作 我們首先需要學(xué)習(xí)有關(guān)窗體和幾個常用 標(biāo)準(zhǔn)控件的基本知識 一 窗體和標(biāo)準(zhǔn)控件的基本屬性 VB 中的窗體和每一個控件都有很多屬性 但所有窗體和大多數(shù)標(biāo)準(zhǔn)控件都具有如下基 本屬性 1 名稱屬性 名稱屬性指所創(chuàng)建對象的名稱 建議窗體用漢字命名 控件一般使用系統(tǒng)默認(rèn)名 2 Caption 屬性 Caption 屬性用于設(shè)置控件上顯示的文字內(nèi)容 3 Height Width Top Left 屬性 這四個屬性用于設(shè)置控件的高度 控件的寬度 控件離屏幕頂部的距離 控件離 屏幕左邊的距離 4 Enabled 屬性 Enabled 屬性用于設(shè)置對象的可操作性 其值為 True False 5 Visible 屬性 Visible 屬性用于設(shè)置對象的可見性 其值為 True False 6 Font 屬性 Font 屬性用于設(shè)置對象的字體 7 Fore Color 屬性 Fore Color 屬性用于設(shè)置對象的前景顏色 字體顏色 8 Back Color 屬性 Back Color 屬性用于設(shè)置對象的背景顏色 9 Border Style 屬性 Border Style 屬性用于設(shè)置對象的邊框樣式 0 無 1 單邊 10 Alignment 屬性 Alignment 屬性用于設(shè)置對象的對齊方式 0 左對齊 1 右對齊 2 居中 11 Auto Size 屬性 當(dāng)對象的 Auto Size 屬性為 True 時 自動調(diào)整大小 當(dāng) Auto Size 屬性為 False 時 不可調(diào) 若正文太長則自動裁掉 12 Word Warp 屬性 當(dāng)對象的 Word Warp 屬性為 True 時 垂直方向顯示文本 13 Tab Index 屬性 Tab Index 屬性用于決定按下 Tab 鍵時 焦點在各個控件中移動的順序 二 窗體 窗體是 VB 工程中的基本容器 通常一個窗體就是應(yīng)用程序的一個模塊 1 屬性 1 基本屬性 窗體的基本屬性主要包括 名稱 Caption Height Width Top Left Font Enabled Visible ForeColor Backcolor Image 等 2 MaxButton 屬性 MaxButton 屬性決定窗體有無最大化按鈕 其值為 True False 3 MinButton 屬性 MinButton 屬性決定窗體有無最小化按鈕 其值為 True False 4 Icon 屬性 Icon 屬性設(shè)置窗體最小化時所顯示的圖標(biāo) 5 ControlBox 屬性 ControlBox 屬性決定窗體左上角有無控制菜單框 其值為 True False 6 Picture 屬性 Picture 屬性用于設(shè)置窗體所加載的圖片 7 Border Style 屬性 Border Style 屬性決定窗體的邊框樣式 其值為 0 None 無邊框 不能移動和改變大小 1 Fixed Single 單線邊框 可移動 但不可改變大小 2 Sizable 雙線邊框 可移動和改變大小 3 Fixed Double 固定對話框 4 Fixed Tool Window 有關(guān)閉按鈕 不能改變大小 5 Sizable Tool Window 有關(guān)閉按鈕 可改變大小 8 Windows State 屬性 Windows State 屬性決定窗體運行時的狀態(tài) 其值為 0 Normal 正常 有窗口邊界 1 Minimized 圖標(biāo) 2 Maximized 占滿整個屏幕 無邊框 2 窗體事件 1 Click 事件 Click 事件指單擊窗體時所發(fā)生的事件 2 Dblclick 事件 Dblclick 事件指雙擊窗體時所發(fā)生的事件 3 Form Load 事件 Form Load 事件是指窗體在裝入計算機內(nèi)存時所發(fā)生的事件 對于未被加載 的窗體 如果其他窗體中引用該窗體的控件及屬性時 也會引發(fā) Load 事件 該 事件過程通常用來在啟動窗體前 對窗體及其所包含控件的屬性進(jìn)行設(shè)置和窗體 中變量的初始化 使窗體按用戶需要的方式顯示出來 4 Activate 事件 當(dāng)使用 Show 方法顯示一個窗體或單擊一個窗體時 使一個窗體變成活動窗 體時 會產(chǎn)生一個 Activate 事件 5 Resize 事件 當(dāng)使用最大化 最小化按鈕或改變窗體大小時 會引發(fā)窗體的 Resize 事件 窗體常用的事件是 Form Load 和 Click 事件 3 方法 窗體常用的方法有 Print Cls Move 等 三 圖形控件 VB 中常用的圖形控件有兩個 一個是 Image 圖像框 控件 另一個是 PictureBox 圖形框 控件 這兩個控件都是標(biāo)準(zhǔn)控件 也都可以放置圖形 但兩者之間 也有很大的區(qū)別 1 Image 圖像框 控件 Image 控件占用內(nèi)存少 描繪快 它不是容器 其常用屬性為 Picture 和 Stretch Picture 屬性用于在控件中添加圖形 當(dāng) Stretch 設(shè)置為 True 時 加載到圖像框 的圖形可自動調(diào)整大小以適應(yīng) Image 圖像框 控件的尺寸 2 PictureBox 圖形框 控件 PictureBox 控件占用內(nèi)存比 Image 控件多 它是容器 即允許在 PictureBox 控件中 添加其他控件 其常用屬性為 Picture 和 Autosize Picture 屬性用于在控件中添加圖形 當(dāng) Autosize 屬性設(shè)置為 True 時 圖形框控件會自動調(diào)整大小以適應(yīng)圖形的尺寸 注意 兩個圖形控件雖然都能夠自動調(diào)整大小以使所裝載的圖形和控件相匹配 但 Image 控件中是圖形調(diào)整大小來適應(yīng)控件的尺寸 而在 PictureBox 控件中是控件調(diào)整大 小來適應(yīng)圖形的尺寸 3 Shape 形狀 控件 Shape 形狀 控件是 VB 的一個簡單標(biāo)準(zhǔn)控件 該控件基本沒有特定的功能 主要 用于畫基本的幾何圖形 在應(yīng)用軟件的設(shè)計中 Shape 形狀 控件通常用于人機界面的 裝飾 四 標(biāo)簽 標(biāo)簽 Label 主要用于顯示文本信息 但不能作為輸入信息的界面 也就是說 標(biāo) 簽的內(nèi)容只能用 Caption 屬性來設(shè)置和修改 不能編輯 1 屬性 Label 的基本屬性有 名稱 Caption Enabled Visible FontName Font ForeColor Backcolor Alignment BackStyle 等 其中 Alignment 用于指定 Label 中文字的位置 0 左對齊 1 右對 齊 2 居中 BackStyle 用于指定 Label 背景樣式 0 透明 1 不透明 2 事件 Label 的常用事件有 Click DblClick Change 等 五 文本框 文本框 TextBox 是一個文本編輯區(qū) 用戶可在文本區(qū)輸入 編輯 修改文本 也可以顯示文本 1 屬性 1 基本屬性 文本框的基本屬性主要有 名稱 Height Width Top Left Enabled Visible FontName FontSize 等 2 Text 屬性 Text 屬性用于顯示文本框中的信息 3 Maxlength 屬性 Maxlength 屬性用于設(shè)置文本中輸入字符的長度 0 屬性值表示不限 制用戶輸入字符的長度 注意 VB 中所有的字符 漢字的長度均為 1 4 Multiline 屬性 Multiline 屬性用于設(shè)置 TextBox 中的文本能否換行 5 Scrollbars 屬性 Scrollbars 屬性用于設(shè)置 TextBox 是否具有滾動條 并設(shè)置滾動條的樣式 0 None 無 1 Horizontal 加水平滾動條 2 Vertical 加垂直滾動條 3 Both 同時加水平 垂直滾動條 6 Locked 屬性 Locked 屬性用于設(shè)置文本框是否可編輯 常在程序中使用 7 PassWord 屬性 PassWord 屬性用于設(shè)置用何種顯示字符掩飾用戶輸入的字符 常用于密 碼口令的輸入 8 SelStart 屬性 SelStart 屬性用于設(shè)置在 TextBox 中正文的起始位置 第一個字符的位置為 0 9 SelLength 屬性 SelLength 屬性用于設(shè)置 TextBox 中正文的長度 10 SelText 屬性 SelText 屬性用于設(shè)置 TextBox 中正文的內(nèi)容 這幾個屬性一般用在文本編輯中設(shè)置插入點及范圍 選定字符串 清除文本等 2 事件 Change KeyPress LostFocus 等 1 Change 事件 在 文本中輸入新信息時 或在程序中將 Text 屬性設(shè)置為新值時 每當(dāng) 用戶鍵入一個字符 都會引發(fā)一次該事件 2 KeyPress 事件 當(dāng)用戶按下并釋放鍵盤上某鍵時引發(fā)的事件 在該事件發(fā)生的同時 返 回用戶輸入字符的 ASCII 碼值 十進(jìn)制 3 Lostfocus 事件 當(dāng)用戶使用鍵或用鼠標(biāo)單擊窗體上其他對象而使該文本失去焦點 時 觸發(fā)該事件 3 方法 SetFocus 方法 用于將光標(biāo)自動移到指定的文本框中 該方法主要用于程序 中 其形式如下 對象 SetFocus 如 程序代碼 Text5 SetFocus 當(dāng) VB 執(zhí)行了上述程序代碼后 就會將光標(biāo)移到 Text5 上 六 命令按鈕 命令按鈕 Command 控件主要用于運行某一個程序 1 屬性 1 基本屬性 命令按鈕控件的基本屬性主要有 名稱 Height Width Top Left Enabled Visible FontName FontSize Backcolor 等 2 Caption 屬性 Caption 屬性用于使用文字來標(biāo)識命令按鈕的功能 最多 255 個字符 該屬性 也可為命令按鈕創(chuàng)建快捷鍵 如果在所輸入的某字母前加一個 Spc 5 2 Cls 方法 Cls 方法用以清除程序在運行時在窗體或圖形中顯示的文本或圖形 其語法格式為 對象 Cls 使用 Cls 方法后 圖形坐標(biāo)中兩坐標(biāo)軸的 x 與 y 值均被置為 0 并清除運行時窗體上 顯示的文本及圖形 但不清除窗體在設(shè)計時的文本和圖形 對象 選項省略時指窗體 3 Move 方法 Move 方法用于移動窗體或控件 并改變其大小 其語法格式為 對象 Move 上邊距離 寬度 高度 說明 1 對象 可以是除時鐘 菜單外的所有控件 省略對象時默認(rèn)對象為窗體 2 左邊距離 上邊距離 寬度 高度 數(shù)值表達(dá)式 以 twip 緹 為單位 如果對 象是窗體 則 距離 以屏幕為參照 否則以窗體為參照 例 首先編程設(shè)置圖形控件 Image1 在窗體中的位置 并向 Image1 中裝載圖形 然后 令該圖形控件移動并放大 Private Sub Form Load 設(shè)置圖形控件 Image1 在窗體中的位置 并向 Image1 中裝載圖形 Image1 Top 100 Image1 Left 100 Image1 Picture LoadPicture MYCOMP ICO End Sub Private Sub Image1 Click 令圖形控件移動并放大 Image1 Stretch True Image1 Move Image1 Left 100 Image1 Top 100 Image1 Width 100 Image1 Height 100 End Sub 四 源程序的書寫要求 1 在主要的程序段落應(yīng)用漢語對程序的功能進(jìn)行標(biāo)注 以增加程序的可讀性 2 書寫的程序要具有鋸齒形風(fēng)格 即每當(dāng)書寫到條件判斷和循環(huán)等結(jié)構(gòu)語句時 結(jié)構(gòu) 內(nèi)的語句應(yīng)有規(guī)律地后移 遇到嵌套結(jié)構(gòu)時 嵌套結(jié)構(gòu)內(nèi)的語句不但需要后移而且要分出 層次 每一個程序員都要培養(yǎng)此種書寫程序的風(fēng)格與習(xí)慣 以便在編寫復(fù)雜和大程序時仍 能保證程序語法和邏輯的正確性 3 2 數(shù)據(jù)類型 教學(xué)目標(biāo) 掌握 VB 中主要的數(shù)據(jù)類型及其表示方法 教學(xué)要求 了解 數(shù)據(jù)類型的概念及種類 理解 各種標(biāo)準(zhǔn)數(shù)據(jù)類型的應(yīng)用場合 掌握 各種標(biāo)準(zhǔn)數(shù)據(jù)類型的表示方法及表示范圍 本節(jié)重點 自定義數(shù)據(jù)類型 各種標(biāo)準(zhǔn)數(shù)據(jù)類型的表示方法及表示范圍 一 標(biāo)準(zhǔn)數(shù)據(jù)類型 1 數(shù)值 Numeric 數(shù)據(jù)類型 1 整型 Integer 和長整型 Long 整形用于保存整數(shù) 整數(shù)運算速度快 但所表示數(shù)的范圍小 其中 Integer 的取值 范圍是 32768 32767 占 2 個字節(jié) 類型符是 號 Long 的取值范圍是 2147483648 2147483647 占 4 個字節(jié) 類型符是 x1 x2 x2 Else MsgBox 輸入有錯 2 End If End Sub 3 If Then ElseIf 語句 語句形式 If Then ElseIf Then ElseIf Then Else 語句組 n 1 End if 例 設(shè)已在 strC 中存入了一個字符 編程判斷該字符是英文字母 數(shù)字 其它 并顯 示結(jié)果 If strC a and strC A and strC 0 and strC y Then t x x y y t If x z Then t x x z z t End If If y z Then t y y z z t End If Else If x z Then t x x z z t End If If y z Then t y y z z t End If End If 5 Select Case 語句 語句形式 Select Case Case 表達(dá)式列表 1 Case 表達(dá)式列表 2 Case 表達(dá)式列表 n Case Else 語句組 n 1 End Select 例 編程判斷 strC 中字符的類型 Select Case strC Case a to z A to Z Print strC 是英文字母 Case 0 to 9 Print strC 是數(shù)字 Case Else Print strC 是其它字符 End Select 6 條件函數(shù) 1 IIf 函數(shù) 形式 IIf 例 編程將 x y 中值較大者的值賦給 z z IIf x y x y 2 Choose 函數(shù) 形式 Choose 例 假設(shè)變量 Nop 中存放了 1 2 3 4 中的某一個值 編程將變量 Nop 中的值轉(zhuǎn)換 成算術(shù)四則運算符 其中 1 轉(zhuǎn)換為 2 轉(zhuǎn)換為 3 轉(zhuǎn)換為 4 轉(zhuǎn)換為 并將轉(zhuǎn)換結(jié) 果存放到 OP 變量中 Op Choose Nop 四 循環(huán)結(jié)構(gòu) 1 For Next 語句 語句形式 For To Step 步長 exit for Next 循環(huán)變量 注意 若缺省 Step 步長 選項 系統(tǒng)默認(rèn)步長為 1 例 編程計算 1 到 100 中奇數(shù)之和 Dim i s As Integer s 0 For i 1 To 100 Step 2 s s i Next i Print s 例 編程將 ASCII 碼制成表格在圖形控件 Picture1 中輸出 每行打印 7 個字符 Private Sub Picture1 Click Dim asc I As Integer Picture1 Print Tab 30 ASCII 碼對照表 Picture1 Print For asc 32 To 126 Picture1 Print Tab 10 I 2 Chr asc asc I I 1 If I 7 Then I 0 Picture1 Print End If Next End Sub 2 Do Loop 語句 語句形式 Do While exit do Loop Do Loop 循環(huán)語句在執(zhí)行時先判斷循環(huán)條件 若循環(huán)條件為真 執(zhí)行循環(huán)體內(nèi)的 語句 否則終止循環(huán) 例 1 編程計算自然對數(shù) e 的近似值 要求計算的誤差小于 0 000001 計算自然對數(shù) e 的公式為 e 1 1 1 1 2 1 3 1 4 1 n Private Sub Command1 Click Dim i n As Integer Dim e s As Double s 1 e 1 Do While s 0 000001 i i 1 s s i e e s Loop Print e End Sub 例 2 編程用轉(zhuǎn)輾相除法求兩個正整數(shù) m n 的最大公約數(shù)和最小公倍數(shù) 求兩個正整 數(shù) m n 的最大公約和最小公倍數(shù)的算法如下 求兩個正整數(shù) m n 的最大公約數(shù)算法 第一步 對已知的 m 和 n 先使 m n 第二步 m 除以 n 得余數(shù) r 第三步 若 r 0 則 n 為所求的最大公約數(shù) 計算結(jié)束 否則將 n 的值賦值給 m 將 r 的值賦值給 n 然后重復(fù)執(zhí)行第二步 直至 r 0 求兩個正整數(shù) m n 的最小公倍數(shù)算法 當(dāng)取得 m 和 n 的最大公約數(shù)后 將 m 和 n 相乘再除以最大公約數(shù)就可得到 m 和 n 的最小公倍數(shù) 求兩個正整數(shù) m n 的最大公約數(shù)和最小公倍數(shù)的源程序如下 Private Sub Command1 Click Dim m n p mn As Integer m Val Text1 n Val Text2 If m 0 Or n 0 Then End If m n Then t m m n n t Do While n 0 r m Mod n m n n r Loop Print 最大公約為 n Print 最小公倍為 m n n End Sub 在循環(huán)結(jié)構(gòu)中 VB 還有 Do Until 等循環(huán)語句 由于語句的功能與上述兩種循環(huán)語 句基本相同 不再贅述 感興趣的同學(xué)可自學(xué) 3 循環(huán)的嵌套 在一個循環(huán)體內(nèi)又包含一個完整的循環(huán)結(jié)構(gòu)稱為循環(huán)的嵌套 循環(huán)的嵌套是編程中常 用技術(shù) 是每一個計算機程序設(shè)計員必須掌握的技術(shù) 計算機語言中 循環(huán)可以并列 可 以嵌套 但不能相交 例 1 古代數(shù)學(xué)中有一個 百文買百雞 的問題 題目是 雞翁一值三文 雞母一 值二文 雞雛三值一文 問 百文買百雞 各買幾何 用現(xiàn)代數(shù)學(xué)方法來考慮這一問題 可以發(fā)現(xiàn)這是一個簡單的三元一次方程組的求解問題 方程組的數(shù)學(xué)公式為 設(shè)公雞買 X 只 母雞買 Y 只 小雞買 Z 只 根據(jù)已知條件可列出以下方程組 X Y Z 100 其中 X 的取值范圍 1 33 Y 的取值范圍 1 50 3X 2Y Z 3 100 其中 Z 的取值范圍 1 99 由于方程組中有三個未知量 而方程只有兩個 因此方程為多解 解該方程的程序如 下 Private Sub Command1 Click Dim X Y Z As Integer For X 1 To 33 For Y 1 To 50 For Z 1 To 99 If 3 X 2 Y Z 2 100 And X Y Z 100 Then Print X Y Z End If Next End Sub 例 2 用循環(huán)語句編制一個在圖形控件 Picture1 中打印 九九乘法表 的程序 Private Sub Picture1 Click Dim ss As String Picture1 Print Tab 40 九九乘法表 Picture1 Print For i 1 To 9 For j 1 To i ss j ss Next Picture1 Print Picture1 Print Next End Sub 五 其它輔助控制語句 1 Go To 語句 語句格式 Go To Go To 語句的作用是無條件地轉(zhuǎn)移到行號或標(biāo)號指定的語句行 注意 在 VB 程序設(shè)計中要盡量少用或不用 Go To 語句 以保證所編程序的結(jié)構(gòu)化 2 End 語句 End 語句用于結(jié)束一個程序的運行 返回 Windows 在一個應(yīng)用程序中 邏輯上只允 許有一個 End 語句 3 With End With 語句 語句格式 With End With With End With 語句用于在不重復(fù)指出對象名稱的情況下 對某對象執(zhí)行一系列的語 句 例 對照下面兩個過程 就可以認(rèn)識到 With End With 語句的作用 Private Sub Command1 Click Private Sub Command1 Click With Label1 Label1 Height 2000 Height 2000 Label1 Width 2000 Width 2000 Label1 FontSize 24 FontSize 24 Label1 Caption 標(biāo)簽 Caption 標(biāo)簽 End Sub End With End Sub 3 6 數(shù)組 數(shù)組是按一定順序排列 具有相同類型的變量的集合 VB 中將數(shù)組分為靜態(tài)數(shù)組和 動態(tài)數(shù)組 靜態(tài)數(shù)組在聲明時必須指明數(shù)組的維數(shù)和變量的個數(shù) 動態(tài)數(shù)組在聲明時僅定 義數(shù)組的名稱和類型 然后在執(zhí)行程序的過程中 根據(jù)實際需要再用 ReDim 語句定義數(shù)組 的維數(shù)及變量的個數(shù) 而且允許使用簡單變量來進(jìn)行數(shù)組中變量個數(shù)的定義 數(shù)組的使用在管理信息系統(tǒng)軟件的程序設(shè)計中有著不可替代的作用 離開數(shù)組的使用 某些程序的編制將會變得非常麻煩 甚至導(dǎo)致程序編制的失敗 因此數(shù)組是程序設(shè)計人員 必須熟悉和掌握的必備知識 教學(xué)要求 了解 數(shù)組的概念 理解 靜態(tài)數(shù)組和動態(tài)數(shù)組的區(qū)別 控件數(shù)組的作用 掌握 數(shù)組的定義及使用方法 控件數(shù)組的應(yīng)用 本節(jié)重點 動態(tài)數(shù)組的應(yīng)用 控件數(shù)組的應(yīng)用 本節(jié)難點 動態(tài)數(shù)組的應(yīng)用 一 靜態(tài)數(shù)組及聲明 1 一維數(shù)組 一維數(shù)組的定義如下 Dim 下界 To 上界 As 類型 若缺省下界 系統(tǒng)默認(rèn)為 0 例 Dim num 1 To 50 As Integer 2 多維數(shù)組 VB 中數(shù)組的維數(shù)允許最多可達(dá) 60 維 多維數(shù)組的定義格式如下 Dim 下界 1 To 上界 1 下界 2 To 上界 2 As 類型 例 Dim A 12 50 C 10 As Double 二 動態(tài)數(shù)組 動態(tài)數(shù)組在聲明時只定義數(shù)組名或數(shù)組名及類型 不指定大小 在執(zhí)行程序的過程中 再根據(jù)需要用 Redim 語句重新定義數(shù)組的大小 重新定義動態(tài)數(shù)組的語句格式如下 Redim 下標(biāo) 1 下標(biāo) 2 注意 1 Redim 語句中的下標(biāo)可以是已被賦值的變量 2 在過程中可多次使用 Redim 來改變數(shù)組的大小和維數(shù) 3 每次使用 Redim 語句都會使原數(shù)組中的數(shù)據(jù)丟失 如需要保留原數(shù)組數(shù)據(jù) 可 用 Preserve 參數(shù)來保留 使用該參數(shù)只能改變最后一維的大小 例 在程序運行時由操作者指定一個一維數(shù)組的變量個數(shù) 然后由計算機自動產(chǎn)生一 組隨機數(shù)存放到一維數(shù)組中 并將此組隨機數(shù)在窗體上打印出來 完成此項工作的源程序 如下 Dim x As Double Private Sub Form Click W InputBox 請問需要產(chǎn)生多少個隨機數(shù) 100 100 W Val W ReDim x W For i 1 To W x i Rnd Print x i Next End Sub 注意 動態(tài)數(shù)組主要用于編程時尚不能確定數(shù)組中變量的個數(shù) 而只能在程序執(zhí)行過 程中根據(jù)統(tǒng)計或外部提供的信息才能確定數(shù)組中變量個數(shù)的情況 三 數(shù)組的基本操作 1 用循環(huán)語句為數(shù)組元素賦初值 例 使用 For Next 語句為一維數(shù)組賦初值 0 Private Sub Form Load Dim a 10 As Integer For i 0 To 10 a i 0 Next End Sub 2 使用 Array 函數(shù)給數(shù)組賦值 例 給 a 數(shù)組賦值 5 個奇數(shù) 給 b 數(shù)組賦值 3 個英文字母 Dim a As Variant b As Variant I a Array 1 3 5 7 9 b Array x y z 注意 1 利用 Array 函數(shù)對數(shù)組各元素賦值 聲明的數(shù)組是可調(diào)數(shù)組 并且其類型只能是 Variant 2 數(shù)組的下界為 0 上界由函數(shù)括號中的參數(shù)個數(shù)決定 四 數(shù)組的應(yīng)用舉例 例 1 排序 令計算機用隨機函數(shù)自動生成 20 個 10 100 之間的整數(shù) 將其按由 小到大的順序排列 并將這 20 個隨機數(shù)打印出來 Dim X 20 As Integer Dim i j k As Integer Private Sub Form Load Randomize For i 1 To 20 X i Rnd 90 10 Next End Sub Private Sub Form Click For i 1 To 19 For j i 1 To 20 If X i X j Then k X i X i X j X j k End If Next Print X I Next End Sub 例 2 編程實現(xiàn) 當(dāng)用戶由鍵盤輸入一串英文字母到文本框 Text1 中后 令計算機 自動統(tǒng)計出 Text1 中各種英文字母出現(xiàn)的次數(shù) 不區(qū)分大小寫 并將統(tǒng)計結(jié)果打印出來 Private Sub Command1 Click Dim ss As String Dim a 1 To 26 As Integer i k As Integer k Len Text1 Text For i 1 To k ss UCase Mid Text1 Text i 1 If ss A And ss 1 For k 1 To j m m 1 m m Mod 16 Do While Not Label1 m Visible m m 1 m m Mod 16 Loop Next k Label1 m Visible False Image1 m Visible False n n 1 DoEvents ti DateAdd s 1 Now Do While ti Now Loop Loop For i 0 To 15 If Image1 i Visible Then k i 1 End If Next i Text1 Visible True Text1 Text 最后剩的是第 x End Sub 2 函數(shù)過程的調(diào)用 由于函數(shù)過程可由函數(shù)名返回一個值 因此函數(shù)過程不