項目7排序法演示系統(tǒng)

1、VBVB程序設計項目化教程程序設計項目化教程主編主編 管小清管小清 郭賀彬郭賀彬VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社項目七項目七 排序法演示系統(tǒng)排序法演示系統(tǒng) n項目目標：項目目標：n本項目要制作一個排序自動演示系統(tǒng)，該系統(tǒng)是隨機本項目要制作一個排序自動演示系統(tǒng)，該系統(tǒng)是隨機產生一組數(shù)據，當單擊排序時將產生的一組數(shù)據按從產生一組數(shù)據，當單擊排序時將產生的一組數(shù)據按從小到大的順序排列。熟練掌握循環(huán)語句的使用方法；小到大的順序排列。熟練掌握循環(huán)語句的使用方法；熟練掌握數(shù)組的定義、賦值、輸出方法以及數(shù)組的應熟練掌握數(shù)組的定義、賦值、輸出方法以及數(shù)組的應用。

2、了解過程的定義、調用及函數(shù)的定義、調用定義。用。了解過程的定義、調用及函數(shù)的定義、調用定義。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社項目七項目七 排序法演示系統(tǒng)排序法演示系統(tǒng)n項目主要知識點：項目主要知識點：n 1、一維數(shù)組的聲明和使用方法、一維數(shù)組的聲明和使用方法n2、RGB函數(shù)的使用函數(shù)的使用n 3、循環(huán)程序結構、循環(huán)程序結構nFor 循環(huán)循環(huán)nDo 循環(huán)（四種）循環(huán)（四種）n4、控件顏色屬性、控件顏色屬性n5、控件數(shù)組的使用、控件數(shù)組的使用n6、過程的使用方法、過程的使用方法n過程的定義過程的定義n過程的調用過程的調用n退出過程退出過程n VBVB

3、程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社項目七項目七 排序法演示系統(tǒng)排序法演示系統(tǒng)n7、函數(shù)的使用方法、函數(shù)的使用方法n函數(shù)的定義函數(shù)的定義n函數(shù)的調用函數(shù)的調用n退出函數(shù)語句退出函數(shù)語句n8、MsgBox函數(shù)的使用函數(shù)的使用n7、插入法排序的原理、插入法排序的原理n8、程序調試能力培養(yǎng)、程序調試能力培養(yǎng)VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社項目七項目七 排序法演示系統(tǒng)排序法演示系統(tǒng)n項目實施步驟：項目實施步驟：n掌握相關基礎知識掌握相關基礎知識n界面設計界面設計o 窗體設計窗體設計o 控件屬性設置控件屬性設置n程序設計

4、程序設計n編程初步編程初步n程序代碼程序代碼n運行程序，優(yōu)化程序運行程序，優(yōu)化程序n保存項目工程保存項目工程VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識 n7.1.1 數(shù)組數(shù)組n 1、數(shù)組的定義、數(shù)組的定義n S(0) S(1) S(2) S(3) S(4)n在在VB中如果沒有特別的說明，數(shù)組元素的下標是從中如果沒有特別的說明，數(shù)組元素的下標是從0開始的，即第一元開始的，即第一元素的下標為素的下標為0。n數(shù)組是一組具有相同名字、不同下標的變量的集合。需要注意它并不是數(shù)組是一組具有相同名字、不同下標的變量的集合。需要注意它

5、并不是一種數(shù)據類型，它是用來存放或表示一組相關數(shù)據的。一種數(shù)據類型，它是用來存放或表示一組相關數(shù)據的。n數(shù)組必須先聲明后使用，主要聲明數(shù)組名、類型、維數(shù)、數(shù)組大小。按數(shù)組必須先聲明后使用，主要聲明數(shù)組名、類型、維數(shù)、數(shù)組大小。按聲明時下標的個數(shù)確定數(shù)組的維數(shù)，聲明時下標的個數(shù)確定數(shù)組的維數(shù)，VB中的數(shù)組有一維數(shù)組、二維數(shù)中的數(shù)組有一維數(shù)組、二維數(shù)組組最多最多60維；按聲明時數(shù)組的大小確定與否分為定長（靜態(tài)）數(shù)組維；按聲明時數(shù)組的大小確定與否分為定長（靜態(tài)）數(shù)組和可調（動態(tài)）數(shù)組兩類數(shù)組。和可調（動態(tài)）數(shù)組兩類數(shù)組。n數(shù)組分靜態(tài)數(shù)和動態(tài)數(shù)組。在定義數(shù)組時已確定了數(shù)組的大小，稱為靜數(shù)組分靜態(tài)數(shù)和動

6、態(tài)數(shù)組。在定義數(shù)組時已確定了數(shù)組的大小，稱為靜態(tài)數(shù)組。在定義數(shù)組時未給出數(shù)組的大小，省略了括號中的下標，稱動態(tài)數(shù)組。在定義數(shù)組時未給出數(shù)組的大小，省略了括號中的下標，稱動態(tài)數(shù)組。態(tài)數(shù)組。 VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識 n2、一維數(shù)組的聲明、一維數(shù)組的聲明n 聲明一維數(shù)組形式如下：聲明一維數(shù)組形式如下：n Dim 數(shù)組名（下標）數(shù)組名（下標）【As類型類型】n其中：其中：n下標：必須為常數(shù)，不可以為表達式或變量下標：必須為常數(shù)，不可以為表達式或變量n在在VB中，可以用中，可以用4個語句來定義數(shù)組。個語句來定

7、義數(shù)組。4個語句格式相同，但適應個語句格式相同，但適應范圍不一樣。范圍不一樣。nDim 用在窗體模塊或標準模塊中，定義窗體或標準模塊數(shù)組，也用在窗體模塊或標準模塊中，定義窗體或標準模塊數(shù)組，也可在過程中用。可在過程中用。nReDim 用在過程中，用來重定義數(shù)組。用在過程中，用來重定義數(shù)組。nStatic 用在過程中，用來定義靜態(tài)數(shù)組。用在過程中，用來定義靜態(tài)數(shù)組。nPublic 用在標準模塊中，定義全局數(shù)組。用在標準模塊中，定義全局數(shù)組。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識 n下標是數(shù)組的維數(shù)，可以用來定義多維數(shù)

8、組，在一般情況下，若下標是數(shù)組的維數(shù)，可以用來定義多維數(shù)組，在一般情況下，若缺省上界，則數(shù)組元素下標的下界為缺省上界，則數(shù)組元素下標的下界為0；當使用下界；當使用下界 To 上上界界時，下標的范圍可以為時，下標的范圍可以為-32 76832767。一維數(shù)組的大小。一維數(shù)組的大小為：為：(上界上界-下界下界+1)。n下界都必須小于上界。如果希望下標從下界都必須小于上界。如果希望下標從1開始，可以通過開始，可以通過Option Base語句來實現(xiàn)。語句來實現(xiàn)。n格式：格式： Option Base Nn功能：指定數(shù)組下標的缺省下界為功能：指定數(shù)組下標的缺省下界為1。n說明：如果不使用該語句，程序默

9、認數(shù)組的下標下界為說明：如果不使用該語句，程序默認數(shù)組的下標下界為0。Option Base語句在程序中只能使用一次；使用時必須把它放在語句在程序中只能使用一次；使用時必須把它放在數(shù)組定義之前才起作用。數(shù)組定義之前才起作用。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識 n As 數(shù)據類型項，用來說明數(shù)組的類型，類型可以是：數(shù)據類型項，用來說明數(shù)組的類型，類型可以是：n 整型整型 Integern 長整型長整型 Longn 單精度單精度 Singlen 雙精度雙精度 Doublen 字符串型字符串型 Stringn 用戶定

10、義型用戶定義型nDIM語句中的下標可以是常數(shù)，變量或表達式。下標全為常數(shù)稱為靜語句中的下標可以是常數(shù)，變量或表達式。下標全為常數(shù)稱為靜態(tài)數(shù)組，即數(shù)組大小在編譯時是確定的。下標中有變量則稱為動態(tài)數(shù)組，態(tài)數(shù)組，即數(shù)組大小在編譯時是確定的。下標中有變量則稱為動態(tài)數(shù)組，數(shù)組的大小是可變的，只有在程序運行時，變量有確定的值后，數(shù)組的數(shù)組的大小是可變的，只有在程序運行時，變量有確定的值后，數(shù)組的大小才確定。大小才確定。n數(shù)組必須先定義，后使用。數(shù)組必須先定義，后使用。n當用當用Dim語句定義數(shù)組時，該語句把數(shù)值數(shù)組中的全部數(shù)組元素都初語句定義數(shù)組時，該語句把數(shù)值數(shù)組中的全部數(shù)組元素都初始化為始化為0，而把

11、字符串數(shù)組中的全部元素都初始化為空字符串。，而把字符串數(shù)組中的全部元素都初始化為空字符串。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n例如：例如：n Dim A(4) As Stringn定義了類型為字符型的一維數(shù)組定義了類型為字符型的一維數(shù)組A，共有，共有5個元素：個元素：A(0)、A(1)、A(2)、A(3)、A(4)。nDim B(1，3 To 5) As Integern定義了一個整型的二維數(shù)組，共有定義了一個整型的二維數(shù)組，共有6個元素：個元素：B(0，3)、B(0，4)、B(0，5)、B(1，3)、B(1，

12、4)和和B(1，5)。nDim S(5 To 5， 2 To 10 ) As String*20n定義定義S是一個定長字符串組成的二維數(shù)組，下標范圍是是一個定長字符串組成的二維數(shù)組，下標范圍是55，210。每。每個數(shù)組元素的字符串長度是個數(shù)組元素的字符串長度是20。n Dim X(10) As Integer n定義了數(shù)組定義了數(shù)組X，有，有11個元素個元素n X(10)=10 n對對X(10)這個數(shù)組元素賦值為這個數(shù)組元素賦值為10VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n3、數(shù)組下標界的測試函數(shù)、數(shù)組下標界的測試

13、函數(shù)n有時需要知道數(shù)組的上界值和下界值，這可以通過有時需要知道數(shù)組的上界值和下界值，這可以通過LBound和和UBound函數(shù)來測試。函數(shù)來測試。n格式：格式： LBound(數(shù)組名，維數(shù)組名，維)n格式：格式： UBound(數(shù)組名，維數(shù)組名，維)n功能：功能： LBound函數(shù)返回一個數(shù)組中指定維的下界。函數(shù)返回一個數(shù)組中指定維的下界。UBound函數(shù)返回一個數(shù)組中指定維的上界。函數(shù)返回一個數(shù)組中指定維的上界。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n4、動態(tài)數(shù)組的定義、動態(tài)數(shù)組的定義n格式：格式：ReDim 數(shù)

14、組名數(shù)組名(下標下標)As類型類型n功能：改變動態(tài)數(shù)組的大小和存儲空間。功能：改變動態(tài)數(shù)組的大小和存儲空間。n說明：說明：n例如：例如：n Dim A(20，20，20)n n ReDim A(10，10，10) 重新定義動態(tài)數(shù)組重新定義動態(tài)數(shù)組A的空間的空間n n ReDim A(5，5，5) 再重新定義動態(tài)數(shù)組再重新定義動態(tài)數(shù)組A的空間的空間n此程序是采用動態(tài)數(shù)組，能根據應用的情況確定數(shù)組的大小，因此程序是采用動態(tài)數(shù)組，能根據應用的情況確定數(shù)組的大小，因此編寫的程序有更強的實用性和通用性。此編寫的程序有更強的實用性和通用性。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國

15、水利水電出版社7.1 第第1步：基礎知識步：基礎知識n5、數(shù)組的基本操作、數(shù)組的基本操作n數(shù)組的基本操作包括輸入、輸出及復制，這些操作都是對數(shù)組元素進行的。數(shù)組的基本操作包括輸入、輸出及復制，這些操作都是對數(shù)組元素進行的。n給數(shù)組元素賦初值給數(shù)組元素賦初值n利用利用For循環(huán)語句循環(huán)語句nDim A(5) As IntegernFor I=1 To 5nA(I)=0 數(shù)組的每個元素值為數(shù)組的每個元素值為0nNextn利用利用Array函數(shù)函數(shù)n在在VB中可以使用中可以使用Array函數(shù)為數(shù)組元素賦值，即把一個數(shù)據集賦值給某個數(shù)組。函數(shù)為數(shù)組元素賦值，即把一個數(shù)據集賦值給某個數(shù)組。n利用利用Ar

16、ray函數(shù)函數(shù)n格式：格式：數(shù)組變量名數(shù)組變量名=Array(數(shù)組元素值數(shù)組元素值)n功能：將數(shù)組元素值賦給數(shù)組各元素的值，各值之間用逗號分隔。功能：將數(shù)組元素值賦給數(shù)組各元素的值，各值之間用逗號分隔。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n說明：數(shù)組變量名是預先定義的數(shù)組名說明：數(shù)組變量名是預先定義的數(shù)組名(定義時沒有指定維數(shù)和上下界，定義時沒有指定維數(shù)和上下界，并且類型必須為變量體類型并且類型必須為變量體類型Variant)，在數(shù)組變量名之后沒有括號。，在數(shù)組變量名之后沒有括號。n說明：說明：n利用利用Arra

17、y函數(shù)對數(shù)組各元素賦值，定義數(shù)組時圓括號可以省略，其類型函數(shù)對數(shù)組各元素賦值，定義數(shù)組時圓括號可以省略，其類型只能是只能是Variant。n數(shù)組的下界為零，上界由數(shù)組的下界為零，上界由Array函數(shù)括號內的參數(shù)個數(shù)決定，也可通過函函數(shù)括號內的參數(shù)個數(shù)決定，也可通過函數(shù)數(shù)UBound獲得。獲得。n數(shù)組的輸入數(shù)組的輸入n數(shù)組的輸入可以用數(shù)組的輸入可以用For循環(huán)語句及文本框控件輸入，也可以通過循環(huán)語句及文本框控件輸入，也可以通過InputBox函數(shù)輸入。函數(shù)輸入。nInputBox函數(shù)給數(shù)組賦值函數(shù)給數(shù)組賦值n用賦值語句給數(shù)組賦值用賦值語句給數(shù)組賦值VBVB程序設計項目化教程程序設計項目化教程中國

18、水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n數(shù)組元素的輸出數(shù)組元素的輸出n多維數(shù)組元素的輸出和輸入都可以通過多重循環(huán)來實多維數(shù)組元素的輸出和輸入都可以通過多重循環(huán)來實現(xiàn)。由于現(xiàn)。由于VB中的數(shù)組是按行存儲的，因此把控制數(shù)組中的數(shù)組是按行存儲的，因此把控制數(shù)組第一維的循環(huán)變量放在最外層循環(huán)中。第一維的循環(huán)變量放在最外層循環(huán)中。n數(shù)組元素的復制數(shù)組元素的復制n控件數(shù)組控件數(shù)組n前面我們介紹了數(shù)值數(shù)組和字符數(shù)組。在前面我們介紹了數(shù)值數(shù)組和字符數(shù)組。在VB中，還提中，還提供了控件數(shù)組，它為處理一組功能相近的控件提供有供了控件數(shù)組，它為處理一組功能相近的控件提供有力的方法。力

19、的方法。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n7.1.2 控件數(shù)組控件數(shù)組n控件數(shù)組是由一組相同類型的控件組成。他們共用一個控件名，控件數(shù)組是由一組相同類型的控件組成。他們共用一個控件名，具有相同的屬性，但通常有不同的屬性值。當建立控件數(shù)組時，具有相同的屬性，但通常有不同的屬性值。當建立控件數(shù)組時，系統(tǒng)給每個元素賦一個惟一的索引號系統(tǒng)給每個元素賦一個惟一的索引號(Index),即下標，下標值由即下標，下標值由Index屬性指定。通過屬性窗口的屬性指定。通過屬性窗口的Index屬性，可以知道該控件的屬性，可以知道該

20、控件的下標是多少，第下標是多少，第1個元素下標是個元素下標是0，第，第2個元素下標是個元素下標是1，以此類推。，以此類推。其所有的元素的其所有的元素的Name屬性必須相同。控件數(shù)組共享同樣的事件屬性必須相同?？丶?shù)組共享同樣的事件過程。例如，控件數(shù)組過程。例如，控件數(shù)組Command有有3個命令按鈕，不論單擊哪個個命令按鈕，不論單擊哪個命令按鈕，都會調用同一個事件過程。命令按鈕，都會調用同一個事件過程。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n為了區(qū)分控件數(shù)組中的各個元素，為了區(qū)分控件數(shù)組中的各個元素，VB會把下標值

21、傳送會把下標值傳送給一個過程。例如，單擊上述控件數(shù)組中的任意一個給一個過程。例如，單擊上述控件數(shù)組中的任意一個命令按鈕時，調用的事件過程如下：命令按鈕時，調用的事件過程如下：n Private Sub Command_Click(Index As Integer)n n End Subn1、控件數(shù)組的建立、控件數(shù)組的建立n控件數(shù)組是針對控件建立的，因此與普通數(shù)組的定義控件數(shù)組是針對控件建立的，因此與普通數(shù)組的定義方法不一樣?？梢酝ㄟ^以下三種方法來建立控件數(shù)組。方法不一樣?？梢酝ㄟ^以下三種方法來建立控件數(shù)組。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1

22、第第1步：基礎知識步：基礎知識n在設計時建立控件數(shù)組方法一：在設計時建立控件數(shù)組方法一：n在窗體上畫出作為數(shù)組元素的各個控件。在窗體上畫出作為數(shù)組元素的各個控件。n單擊要包含到數(shù)組中的某個控件，將其激活。單擊要包含到數(shù)組中的某個控件，將其激活。n在屬性窗口中，選擇在屬性窗口中，選擇Name屬性，并輸入控件的名稱。屬性，并輸入控件的名稱。當對第二個控件輸入與第一個控件相同的名稱后，當對第二個控件輸入與第一個控件相同的名稱后，VB將顯示一個對話框，詢問是否確實要建立控件數(shù)組。將顯示一個對話框，詢問是否確實要建立控件數(shù)組。單擊單擊“是是”按鈕，將建立控件數(shù)組，單擊按鈕，將建立控件數(shù)組，單擊“否否”按

23、鈕，按鈕，則放棄建立操作。則放棄建立操作。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n方法二：方法二：n在窗體上畫出一個控件，將其激活。在窗體上畫出一個控件，將其激活。n執(zhí)行執(zhí)行“編輯編輯”菜單中的菜單中的“復制復制”命令命令(或者按或者按Ctrl+C命令命令)，將，將該控件放入剪貼板中。該控件放入剪貼板中。n執(zhí)行執(zhí)行“編輯編輯”菜單中的菜單中的“粘貼粘貼”命令命令(或者按或者按Ctrl+V命令命令)，將，將顯示一個對話框，詢問是否建立控件數(shù)組。顯示一個對話框，詢問是否建立控件數(shù)組。n單擊對話框中的單擊對話框中的“是是

24、”按鈕，窗體的左上角將出現(xiàn)一個控件，按鈕，窗體的左上角將出現(xiàn)一個控件，它就是控件數(shù)組的第二個元素。它就是控件數(shù)組的第二個元素。n重復執(zhí)行重復執(zhí)行“編輯編輯”菜單中的菜單中的“粘貼粘貼”命令命令(或者按或者按Ctrl+V命令命令)，可以建立控件數(shù)組的其他元素。可以建立控件數(shù)組的其他元素。n刪除控件數(shù)組，只要改變一個控件的刪除控件數(shù)組，只要改變一個控件的Name屬性，并把屬性，并把Index屬性屬性置為空置為空(不是不是0)，就把該控件從控件數(shù)組中刪除。，就把該控件從控件數(shù)組中刪除。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知

25、識n方法三：在運行時添加控件數(shù)組方法三：在運行時添加控件數(shù)組n在在VB中可以在程序運行時，通過中可以在程序運行時，通過load方法添加或建立控件數(shù)組，方法添加或建立控件數(shù)組，通過通過unload方法刪除數(shù)組中的某個控件。方法刪除數(shù)組中的某個控件。n在窗體上畫出某個控件，設置該控件的在窗體上畫出某個控件，設置該控件的index屬性值為，表屬性值為，表示該控件為數(shù)組；也可以進行控件名的屬性設置，這是建立的第示該控件為數(shù)組；也可以進行控件名的屬性設置，這是建立的第一個元素。一個元素。n在編程時通過在編程時通過load方法，添加其余若干個元素，也可以通過方法，添加其余若干個元素，也可以通過unload

26、方法，刪除某個添加的元素。方法，刪除某個添加的元素。n每個新添加的控件，通過每個新添加的控件，通過left 和和top屬性確定其在窗體的位置，屬性確定其在窗體的位置，并將并將Visible屬性設置為屬性設置為true.VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n7.1.3 過過 程程nVB的通用過程包括兩大類：它們是的通用過程包括兩大類：它們是Sub過程過程(即子程序即子程序)和和Function過程過程(即函數(shù)即函數(shù))。n1、過程的定義、過程的定義n自定義子過程有兩種方法：在自定義子過程有兩種方法：在“工具工具”菜單

27、中定義和在代碼窗口中定義。菜單中定義和在代碼窗口中定義。n（1）在）在“工具工具”菜單中定義菜單中定義n為想要編寫函數(shù)和過程的窗體為想要編寫函數(shù)和過程的窗體/標準模塊打開代碼窗口。標準模塊打開代碼窗口。n在在“工具工具”菜單下，選擇菜單下，選擇“添加過程添加過程”命令，屏幕顯示命令，屏幕顯示“添加過程對添加過程對話框話框”，如圖，如圖7-1所示。所示。n在在“名稱名稱”框中，輸入過程名（過程名中不允許空格），例如輸入過框中，輸入過程名（過程名中不允許空格），例如輸入過程名：程名：ADD。n在在“類型類型”組中，如果選擇組中，如果選擇“子程序子程序”，來定義過程，如果選擇函數(shù)，來定義過程，如果選

28、擇函數(shù)，則定義函數(shù)過程。則定義函數(shù)過程。n在在“范圍范圍”組中，選擇組中，選擇“公有的公有的”，定義一個公共級的全局過程；選，定義一個公共級的全局過程；選擇擇“私有的私有的”，定義一個標準模塊級，定義一個標準模塊級/窗體級的局部過程。窗體級的局部過程。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n定義完成后，按定義完成后，按“確定確定”按鈕，退出按鈕，退出“添加過程添加過程”對話框，系統(tǒng)自動對話框，系統(tǒng)自動給了程序的頭和尾的定義過程窗口，如圖給了程序的頭和尾的定義過程窗口，如圖7-2所示，此時可以輸入過程的所示，此時可以

29、輸入過程的具體代碼了。具體代碼了。圖圖7-1 “添加過程”對話框 圖圖7-2 定義過程窗口 VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n（2）在代碼窗口中定義）在代碼窗口中定義n在窗體在窗體/標準模塊的代碼窗口中，把插入點放在所有現(xiàn)有過程之外。標準模塊的代碼窗口中，把插入點放在所有現(xiàn)有過程之外。n在左側顯示對象名的下拉列表框中，選擇在左側顯示對象名的下拉列表框中，選擇“通用通用”，在右側顯示過程，在右側顯示過程的下列表框中，選擇的下列表框中，選擇“聲明聲明”。n按格式輸入按格式輸入sub及過程名，按回車后，及過程名，按

30、回車后，VB系統(tǒng)會自動加上系統(tǒng)會自動加上end sub與與過程名后的一對括號，此時就可以輸入過程語句了。過程名后的一對括號，此時就可以輸入過程語句了。n自定義子過程的格式如下：自定義子過程的格式如下：n Public|PrivateStaticSub子過程名子過程名(形參表列形參表列)n 語句塊語句塊n Exit Subn 語句塊語句塊n End Sub VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n功能：定義一個功能：定義一個Sub過程。過程。n說明：說明：nPublic：表示：表示Sub過程是過程是“公用公用”過程，

31、可在整個程序范圍被過程，可在整個程序范圍被調用調用(但需要指明該子程序所在的對象名，如果在窗體但需要指明該子程序所在的對象名，如果在窗體 Form1中中定義了一個程序定義了一個程序Sub1，在窗體，在窗體From2中調用它，應該用：中調用它，應該用：Call Form1.Sub1。nPrivate：表示：表示Sub過程是過程是“私用私用”過程，只能被本窗體中的其過程，只能被本窗體中的其他過程訪問，不能被其他模塊的過程訪問。他過程訪問，不能被其他模塊的過程訪問。nStatic：表示該過程中的局部變量是靜態(tài)變量，在過程被調用：表示該過程中的局部變量是靜態(tài)變量，在過程被調用后其值仍然保留；如果省略后

32、其值仍然保留；如果省略“Static”，則局部變量就默認為，則局部變量就默認為“自自動動”的，即在每次調用過程時，局部變量被初始化為的，即在每次調用過程時，局部變量被初始化為0或空字符或空字符串。串。Static對在過程之外的變量沒有影響，即使這些變量在過程對在過程之外的變量沒有影響，即使這些變量在過程中使用。中使用。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n形參表列：是含在調用時傳給該過程的簡單變量名或數(shù)組名，各名字形參表列：是含在調用時傳給該過程的簡單變量名或數(shù)組名，各名字之間用逗號隔開。之間用逗號隔開。 “形參

33、表列形參表列”指明了調用時傳送給過程的參數(shù)的類型指明了調用時傳送給過程的參數(shù)的類型和個數(shù)，每個參數(shù)的形式：和個數(shù)，每個參數(shù)的形式：n ByVal(變量名變量名()As 類型，類型，)n參數(shù)也稱形參或啞元，在定義時沒有值。參數(shù)也稱形參或啞元，在定義時沒有值。ByVal表示該過程被調用時，表示該過程被調用時，參數(shù)是值傳遞，否則引用傳遞。定義子過程或子函數(shù)時，都可以無參數(shù)，參數(shù)是值傳遞，否則引用傳遞。定義子過程或子函數(shù)時，都可以無參數(shù)，但函數(shù)過程無參數(shù)時，函數(shù)過程名后的括號不能省略。這是函數(shù)過程與但函數(shù)過程無參數(shù)時，函數(shù)過程名后的括號不能省略。這是函數(shù)過程與子過程的區(qū)別。子過程的區(qū)別。n過程名：是長

34、度不超過過程名：是長度不超過255個字符的變量名。其命名規(guī)則與變量命名個字符的變量名。其命名規(guī)則與變量命名規(guī)則相同。不要與規(guī)則相同。不要與VB中的關鍵字重名，也不要與中的關鍵字重名，也不要與Windows API函數(shù)重名，函數(shù)重名，也不能與同一級別的變量同名。在同一個模塊中，同一個名稱，不能既也不能與同一級別的變量同名。在同一個模塊中，同一個名稱，不能既用作用作Sub過程名，又用作過程名，又用作Function過程名。過程名。nExit Sub：表示退出子過程。：表示退出子過程。nStatic：表示靜態(tài)，：表示靜態(tài)，Public：表示全局，：表示全局，Private：表示局部。：表示局部。VB

35、VB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n2、 過程的調用過程的調用n在在VB中可以用兩種方法調用中可以用兩種方法調用Sub過程。過程。n(1) 使用使用Call語句調用語句調用Sub過程。過程。n格式：格式： Call 過程名過程名(實參表列實參表列)n功能：調用過程。功能：調用過程。n說明：實參的個數(shù)、數(shù)據類型都要與被調用過程的參數(shù)一一對應。說明：實參的個數(shù)、數(shù)據類型都要與被調用過程的參數(shù)一一對應。n例如下面是調用例如下面是調用Compute過程的語句：過程的語句：n a1=10.5n b1=10.5n Call C

36、ompute(a1，b1)n如果過程不帶參數(shù)，如果過程不帶參數(shù)，Call語句中過程后的一對括號可以省去，例如有一語句中過程后的一對括號可以省去，例如有一過程過程Sum不帶參數(shù)，調用語句只是一行：不帶參數(shù)，調用語句只是一行：n Call Sumn這是合法的。這是合法的。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n(2) 直接使用過程名調用直接使用過程名調用Sub過程，而不必有過程，而不必有Call。n格式：格式： 過程名實參實參過程名實參實參n功能：調用過程。功能：調用過程。n說明：不用括號把實參括起來。例如，也可以這樣

37、調說明：不用括號把實參括起來。例如，也可以這樣調用上面的過程：用上面的過程：n Compute a1，b1n不帶參數(shù)的過程可以直接寫過程名即可，假如不帶參數(shù)的過程可以直接寫過程名即可，假如Compute過程沒有參數(shù)，以下調用是符合過程沒有參數(shù)，以下調用是符合VB語法的：語法的：n ComputeVBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n3、 退出過程退出過程n在過程中可以對給出的條件測試，并根據測試的結果在過程中可以對給出的條件測試，并根據測試的結果確定是否退出過程，如果要退出過程，則使用確定是否退出過程，如果要退出

38、過程，則使用Exit Sub語句。語句。n一進入過程，首先測試變量一進入過程，首先測試變量b的值是否等于的值是否等于0，如果，如果b的的值為值為0，立即退出，立即退出Compute過程。避免在執(zhí)行過程中過程。避免在執(zhí)行過程中出現(xiàn)錯誤出現(xiàn)錯誤(被零除被零除)。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n4、Sub Main過程過程n如果一應用程序只包含一個窗體，則程序從執(zhí)行窗體如果一應用程序只包含一個窗體，則程序從執(zhí)行窗體Form的的Load過程開始。如果有多個窗體，則從設計階段建立的第一個窗過程開始。如果有多個窗體，則

39、從設計階段建立的第一個窗體開始執(zhí)行。有時，希望在運行窗體程序之前先執(zhí)行一些操作，體開始執(zhí)行。有時，希望在運行窗體程序之前先執(zhí)行一些操作，此時，可以將這些操作寫在此時，可以將這些操作寫在Sub Main過程中。過程中。nSub Main是在模塊中定義的，如果一個程序中包含有多個模塊，是在模塊中定義的，如果一個程序中包含有多個模塊，只能允許有一個只能允許有一個Sub Main過程。過程。Sub Main過程中可以包含若干過程中可以包含若干語句。但它與其他語言中的主程序不同，程序啟動時不會自動執(zhí)語句。但它與其他語言中的主程序不同，程序啟動時不會自動執(zhí)行。人們可以指定程序從哪一個窗體或是行。人們可以指

40、定程序從哪一個窗體或是Sub Main開始執(zhí)行。方開始執(zhí)行。方法如下：法如下：VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n(1)選擇選擇VB主窗口中的主窗口中的“工程工程”菜單中的菜單中的“屬性屬性”命令，命令，打開打開“工程屬性工程屬性”對話框，單擊對話框，單擊“通用通用”選項，如圖選項，如圖5.17所示。所示。n(2)單擊對話框中的單擊對話框中的“啟動對象啟動對象”框右端的箭頭，顯示框右端的箭頭，顯示出當前工程中各窗體的名字和出當前工程中各窗體的名字和Sub Main，可以定義啟，可以定義啟動工程時先啟動的窗體或動

41、工程時先啟動的窗體或Sub Main。如果選擇了。如果選擇了Sub Main，則程序運行時從模塊的，則程序運行時從模塊的Sub Main過程開始。常過程開始。常常用常用Sub Main來完成一些初始處理。來完成一些初始處理。nSub Main也可以被其他過程調用，如：也可以被其他過程調用，如：n Call MainVBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n1、函數(shù)的定義、函數(shù)的定義n函數(shù)與過程相似，也是用來完成特定功能的獨立程序代碼，它由一組符函數(shù)與過程相似，也是用來完成特定功能的獨立程序代碼，它由一組符合合VB語法

42、的語句組成，它與過程不同的是，函數(shù)可以返回一個值給調用語法的語句組成，它與過程不同的是，函數(shù)可以返回一個值給調用程序。自定義函數(shù)過程的格式如下：程序。自定義函數(shù)過程的格式如下：n Public|PrivateStaticFunction函數(shù)過程名函數(shù)過程名(形參表列形參表列)As 類型類型n 局部變量常量定義局部變量常量定義n 語句塊語句塊n 函數(shù)名函數(shù)名=返回值返回值n Exit Functionn 函數(shù)名函數(shù)名=返回值返回值n 語句塊語句塊n End FunctionVBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n功能

43、：定義一個函數(shù)過程。功能：定義一個函數(shù)過程。n說明：說明：n(1)Function與與End Function是一個函數(shù)的開始與結束標志。是一個函數(shù)的開始與結束標志。n(2)Public：表示函數(shù)是：表示函數(shù)是“公用的公用的”，Private：表示函數(shù)是：表示函數(shù)是“私私用的用的”。n(3)形參表列：變量名形參表列：變量名As類型，變量名類型，變量名As類型類型As類型用來表示函數(shù)返回值的類型。類型用來表示函數(shù)返回值的類型。n(4)Exit Function：表示退出函數(shù)過程。：表示退出函數(shù)過程。n(5)建立一個函數(shù)的方法與建立過程是相同的。建立一個函數(shù)的方法與建立過程是相同的。 VBVB程序

44、設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n【例例7.1】定義一個函數(shù)來完成加法功能。定義一個函數(shù)來完成加法功能。n Private Function Add(a As Integer，b As Integer)As Integern Add=a+bn End Functionn表示函數(shù)表示函數(shù)Add是是“私用的私用的”，形參，形參a和和b為整型，函數(shù)返回值也是為整型，函數(shù)返回值也是整型。整型。n2、函數(shù)的調用、函數(shù)的調用n如果要想在過程中調用一個函數(shù)，只需寫出函數(shù)名和相應的參數(shù)如果要想在過程中調用一個函數(shù)，只需寫出函數(shù)名和相應的

45、參數(shù)即可。即可。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.1 第第1步：基礎知識步：基礎知識n【例例7.2】用一個過程調用上述用一個過程調用上述Add函數(shù)。函數(shù)。n Private Sub Command1_Click()n Dim x(1 To 2) As Singlen For I=1 To 2n x(I)=InputBox(Enter a value，INPUT BOX)n Next In Sum=Add(x(1)，x(2)n Print Sum=；Sumn End Subn先定義一個數(shù)組先定義一個數(shù)組x，有兩個元素，有兩個元素x(1)，x(2)

46、。從輸入框中用戶輸入的數(shù)賦給。從輸入框中用戶輸入的數(shù)賦給x(1)和和x(2)，調用，調用Add函數(shù)，以函數(shù)，以x(1)，x(2)作為實參，調用作為實參，調用Add函數(shù)將此二數(shù)相加，其和函數(shù)將此二數(shù)相加，其和由函數(shù)名由函數(shù)名Add返回，調用過程返回，調用過程Command1的的Click事件，賦給變量，最后輸出事件，賦給變量，最后輸出Sum的值。的值。n3、 退出函數(shù)語句退出函數(shù)語句n使用使用Exit Function語句可以從當前調用的函數(shù)中直接退出。語句可以從當前調用的函數(shù)中直接退出。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.2 第第2步：原理介紹步

47、：原理介紹 n 插入法排序是將插入法排序是將N個數(shù)放在一個數(shù)組中個數(shù)放在一個數(shù)組中A中，先將中，先將A（1）與）與A（2）比較，若）比較，若A（1） A（2），則交換兩），則交換兩者。然后再將者。然后再將A（3）與）與A（1）、）、A（2）比較，以確）比較，以確定定A（3）應放的位置；依次類推可以將后面的數(shù)一個）應放的位置；依次類推可以將后面的數(shù)一個一個地拿來插入到排好序地數(shù)列中，直到所有的數(shù)按一個地拿來插入到排好序地數(shù)列中，直到所有的數(shù)按順序排好。順序排好。VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.3 第第3步：界面設計步：界面設計n1、任務一：建立

48、應用程序用戶界面、任務一：建立應用程序用戶界面n選擇選擇“新建新建”工程，進入窗體設計器，首先增加一個工程，進入窗體設計器，首先增加一個用作容器的框架（用作容器的框架（Frame1），選中），選中Frame1，在其中，在其中增加一個文本框控件數(shù)組增加一個文本框控件數(shù)組Text1（0）Text（10），），一個標簽控件數(shù)組一個標簽控件數(shù)組Label1（0）Label1（9）和一個）和一個標簽標簽Label2，然后在窗體上增加一個命令按鈕組，然后在窗體上增加一個命令按鈕組Command1（0）Command1（1）。）。n2、任務二：選中、任務二：選中Frame1，將其，將其Height屬性改小，

49、再屬性改小，再在窗體中增加一個標簽在窗體中增加一個標簽Label3VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.3 第第3步：界面設計步：界面設計n各控件排列如下圖各控件排列如下圖7-3所示：所示：圖圖73控件排列圖VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.3 第第3步：界面設計步：界面設計n3、任務三：設置對象屬性、任務三：設置對象屬性n修改窗體屬性：修改窗體屬性：n Caption改為：插入法排序演示系統(tǒng)改為：插入法排序演示系統(tǒng)n MaxButton改為：改為：Falsen修改修改Frame1的屬性：的屬性：n

50、 Caption改為：（無）改為：（無）n修改修改Label1（0）Label1（9）的屬性：）的屬性：n AutoSize改為：改為：Truen Caption分別改為：分別改為：1、2、3、4、5、6、7、8、9、10n修改修改Label2的屬性：的屬性：n Caption改為：（無）改為：（無）VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.3 第第3步：界面設計步：界面設計n修改修改Text1（0）Text1（10）的屬性）的屬性n Text改為：（無）改為：（無）n Alignment改為：改為：2Centern 其中其中Text1（0）的）的Vi

51、sible屬性改為：屬性改為：Falsen修改修改Label3的屬性：的屬性：n AutoSize改為：改為：Truen Caption改為：排序成功改為：排序成功n Font：（由學生自己設定）：（由學生自己設定）n Visible：Falsen修改修改Command1（0）Command1（1）的屬性）的屬性n Caption分別改為：開始、重置分別改為：開始、重置VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.3 第第3步：界面設計步：界面設計n設置完屬性后界面如圖設置完屬性后界面如圖74所示：所示：圖圖74設置完屬性后的界面VBVB程序設計項目化教程

52、程序設計項目化教程中國水利水電出版社中國水利水電出版社7.4 第第4步：設計代碼步：設計代碼n 1、在窗體的通用過程中聲明數(shù)組變量、在窗體的通用過程中聲明數(shù)組變量n Dim a(1 To 10) As Integer 存放數(shù)據的數(shù)組存放數(shù)據的數(shù)組nDim b(10) As TextBox 現(xiàn)實數(shù)據的對象數(shù)組現(xiàn)實數(shù)據的對象數(shù)組 n2、編寫窗體的、編寫窗體的Load事件事件n Private Sub Form_Load() 該事件主要用于產生十個該事件主要用于產生十個待比較的隨機數(shù)待比較的隨機數(shù)n Randomizen For i = 1 To 10n DoVBVB程序設計項目化教程程序設計項目化

53、教程中國水利水電出版社中國水利水電出版社7.4 第第4步：設計代碼步：設計代碼n x = Int(Rnd * 90) + 1n yes = 0n For j = 1 To i - 1n If x = a(j) Thenn yes = 1n Exit Forn End Ifn Next jn Loop While yes = 1n a(i) = xn Next inEnd SubVBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.4 第第4步：設計代碼步：設計代碼n 3、編寫命令窗體的、編寫命令窗體的Activate事件代碼：事件代碼：n Private Sub

54、Form_Activate() 該事件是把在該事件是把在Load事件中隨事件中隨機產生的數(shù)字裝入文本框中機產生的數(shù)字裝入文本框中nFor i = 0 To 10n Set b(i) = Text1(i)n b(i).BackColor = RGB(255, 255, 255)nNext inFor i = 1 To 10n b(i).Text = a(i)nNext inEnd SubVBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.4 第第4步：設計代碼步：設計代碼n注：（注：（1）、前一個）、前一個For循環(huán)是用來把文本框數(shù)組與數(shù)循環(huán)是用來把文本框數(shù)組與數(shù)

55、組組b建立相應的聯(lián)系，后一個建立相應的聯(lián)系，后一個For循環(huán)是把循環(huán)是把a數(shù)組中的數(shù)數(shù)組中的數(shù)賦給賦給b數(shù)組，兩個循環(huán)不能統(tǒng)一，因為兩個數(shù)組的下標數(shù)組，兩個循環(huán)不能統(tǒng)一，因為兩個數(shù)組的下標不一樣。不一樣。n（2）、）、RGB函數(shù)是采用計算機中的三基色原理，函數(shù)是采用計算機中的三基色原理，R紅色紅色 G綠色綠色 B藍色，從理論上來說，三種基本色藍色，從理論上來說，三種基本色混合可產生混合可產生256256256種顏色，但是實際使用時種顏色，但是實際使用時受到顯示硬件的限制，普通顯示卡只能顯示受到顯示硬件的限制，普通顯示卡只能顯示16種顏色。種顏色。VBVB程序設計項目化教程程序設計項目化教程中國

56、水利水電出版社中國水利水電出版社7.4 第第4步：設計代碼步：設計代碼n具體使用方法如下：具體使用方法如下：n RGB（紅色值，綠色值，藍色值），每種顏色值的范圍為：（紅色值，綠色值，藍色值），每種顏色值的范圍為：0255n 例：例：b(i).BackColor = RGB(255, 255, 255)表表7-1 RGB顏色函數(shù)顏色函數(shù) RGB函數(shù)函數(shù) 顏顏 色色RGB(0,0,0)黑色RGB(255,0,0)紅色RGB(0,255,0)綠色RGB(0,0,255)藍色RGB(0,255,255)青藍色RGB(255,0,255)紫紅色RGB(255,255,0) 黃色RGB(255,255,

57、255)白色VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.4 第第4步：設計代碼步：設計代碼n 4、 編寫命令按鈕組編寫命令按鈕組Command1的的Click事件事件n Private Sub Command1_Click(Index As Integer)nSelect Case Indexn Case 0n b(1).BackColor = RGB(0, 255, 0)n For i = 2 To 10n b(i).BackColor = RGB(0, 255, 0)n x = b(i).Textn j = i - 1VBVB程序設計項目化教程程序設

58、計項目化教程中國水利水電出版社中國水利水電出版社7.4 第第4步：設計代碼步：設計代碼n Label2.Caption = 現(xiàn)在取現(xiàn)在取A（ & Trim(i) & ),依次依次與前面的元素與前面的元素 &作比較，以確定作比較，以確定 & Trim(i) & 的位的位置置n With Text1(0)n .Left = b(i).Leftn .Text = xn .Visible = Truen .BackColor = RGB(255, 0, 128)n End WithVBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7

59、.4 第第4步：設計代碼步：設計代碼n Do While (j 0 And (Val(x) j + 1 ThenVBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.4 第第4步：設計代碼步：設計代碼n MsgBox 將將A( & Trim(i) & ) 放入放入 A( & Trim(j + 1) & )n b(j + 1).Text = xn End Ifn Next in Text1(0).Visible = Falsen Label2.Caption = n Label3.Visible = TrueVBVB程序設計項目化教程

60、程序設計項目化教程中國水利水電出版社中國水利水電出版社7.4 第第4步：設計代碼步：設計代碼n Case 1n Form_Activaten Label3.Visible = Falsen Case 2n EndnEnd SelectnEnd Subn程序執(zhí)行效果如圖程序執(zhí)行效果如圖7-4所示：所示：n程序運行時首先產生程序運行時首先產生10個隨機數(shù)如圖個隨機數(shù)如圖7-5所示：所示：圖圖7-5程序執(zhí)行效果 VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電出版社7.4 第第4步：設計代碼步：設計代碼n7.4 第第4步：設計代碼步：設計代碼圖圖7-6單擊排序后效果VBVB程序設計項目化教程程序設計項目化教程中國水利水電出版社中國水利水電