VisualBasic程序設(shè)計課件之第5章數(shù)組和記錄

1、第5章 數(shù)組和記錄 5.1 數(shù)組的概念 5.2 數(shù)組的定義 5.3 數(shù)組的基本操作 5.4 數(shù)組的應(yīng)用 5.5 控件數(shù)組 5.6 記錄 5.7 常用算法（二）1.5.1 數(shù)組的概念 1. 數(shù)組的作用 數(shù)組通常和循環(huán)一起使用可以大大減少編程的復(fù)雜性，有些算法不用數(shù)組就無法實現(xiàn)。 例5.1 計算100個學(xué)生某門課的平均分，并統(tǒng)計高于平均分的人數(shù)。不用數(shù)組就很難編程。 Dim mark(1 To 100) As Integer，aver!, over%, i% aver = 0: over=o For i = 1 To 100 mark(i) = InputBox(輸入成績) aver = aver

2、 + mark(i) 計算總分 Next i aver = aver / 100 over = 0 For i = 1 To 100 If (mark(i) aver) Then over = over + 1 Next I Print aver, over2.2. 數(shù)組的概念 數(shù)組是一批數(shù)據(jù)或控件的集合。 普通數(shù)組存放一批相同類型的數(shù)據(jù) 控件數(shù)組存放一批相同名稱的控件例如，定義一個integer型數(shù)組a(10)，它包含11個同類型的變量：a(0),a(1),a(10) Variant型數(shù)組則可以存放不同類型的數(shù)據(jù)又如，在窗體上畫一個標(biāo)簽label1，并用復(fù)制和粘貼的方法操作5次，可以得到一個

3、名稱為label1的控件數(shù)組，含6個標(biāo)簽，每個標(biāo)簽的名稱均為label1，但各個控件的index屬性值分別是0,1,5。3. 3.數(shù)組元素和數(shù)組的維數(shù) 數(shù)組的成員稱為數(shù)組元素，其名稱與數(shù)組名相同，其下標(biāo)表示該元素在數(shù)組中的位置。因此，數(shù)組元素也稱下標(biāo)變量。 數(shù)組的維數(shù)表示數(shù)組元素需要幾個下標(biāo)才能正確表示其在數(shù)組中的位置，它代表數(shù)組的邏輯結(jié)構(gòu)，最多60維。 一維數(shù)組的邏輯結(jié)構(gòu)是線性的，只用一個下標(biāo)表示各個元素在數(shù)組中的位置 例 a(10):含11個元素的一維數(shù)組 a(0),a(1),a(2),a(3),a(4),a(5),a(6),a(7),a(8),a(9),a(10) 二維數(shù)組的邏輯結(jié)構(gòu)是一

4、個二維表，用兩個下標(biāo)表示各個元素在數(shù)組中的位置：第一個下標(biāo)表示行，第二個下標(biāo)表示列。 例 b(2,3):含三行四列共12個元素的二維數(shù)組 b(0,0) b(0,1) b(0,2) b(0,3) b(1,0) b(1,1) b(1,2) b(1,3) b(2,0) b(2,1) b(2,2) b(2,3) 4. 4.數(shù)組的存儲結(jié)構(gòu) 數(shù)組在內(nèi)存中占用一片連續(xù)的存儲單元。 一維數(shù)組的存儲結(jié)構(gòu)與邏輯結(jié)構(gòu)相同，即各個元素按下標(biāo)順序依次存放； 二維數(shù)組的存儲結(jié)構(gòu)是按行的順序存儲各個元素。例如，數(shù)組b(2,3)的存儲形式為： b(0,0) b(0,1) b(0,2) b(0,3) b(1,0) b(1,1)

5、 b(1,2) b(1,3) b(2,0) b(2,1) b(2,2) b(2,3) 三維數(shù)組是由若干個二維數(shù)組組成的，其存儲結(jié)構(gòu)是按順序存儲各個二維數(shù)組。例如，數(shù)組c(1,2,1)的存儲形式為： c(0,0,0) c(0,1,0) c(0,2,0) c(1,0,0) c(1,1,0) c(1,2,0) c(0,0,1) c(0,1,1) c(0,2,1) c(1,0, 1) c(1,1,1) c(1,2,1)5.5.2 數(shù)組的定義 靜態(tài)數(shù)組（定界數(shù)組） 動態(tài)數(shù)組（可變數(shù)組、可調(diào)數(shù)組） 靜態(tài)數(shù)組：在定義時明確規(guī)定數(shù)組的大小，且在程序運行過程中，其大小不能再改變 動態(tài)數(shù)組：在定義時不指定數(shù)組的大

6、小，在運行過程中可以根據(jù)需要用ReDim重新規(guī)定其大小數(shù)組6. 1.靜態(tài)數(shù)組的定義 形式:Dim 數(shù)組名(維界1,維界2) As 類型 維界1、維界2等表示各維的大小，形式為: 下界 To 上界 下界和上界為常數(shù)表達式： -2147483648 到 2147483647 下界缺省時默認0 維界用來確定數(shù)組的體積。 類型缺省時，默認變體型 除了用Dim外，還可以用static、private和public來定義數(shù)組，它們可以在不同的窗體和模塊內(nèi)定義，所定義的數(shù)組的作用范圍也不相同。7.下界可以缺省，系統(tǒng)默認的下界缺省值為0。例：Dim lArray(0 To 3，0 To 4) As Long

7、等價于: Dim lArray(3，4) As Long 例：Dim mark(1 to 100) As Integer8.如果需要默認的下界缺省值不是0，則可以在通用聲明段內(nèi)用Option Base語句確定，例如用 Option Base 1來定義下界缺省值為1，此后，若定義 Dim a(2,3)則等價于Dim a(1 to 2,1 to 3)注意： (1)在數(shù)組定義中，數(shù)組名后面括號中數(shù)值表示數(shù)組的維界,即每一維的大??；而在程序其他地方出現(xiàn)的帶擴號的則表示數(shù)組中的某一個元素，括號中的數(shù)值表示該元素在數(shù)組中的位置。兩者寫法形式相同，但意義不同。 Dim x(10) As Integer 定義

8、x數(shù)組有11個元素 x(10)=100 對x(10)這個數(shù)組元素賦值 (2)靜態(tài)數(shù)組一經(jīng)定義，編譯系統(tǒng)為其安排存儲空間，其維數(shù)和各維大小不能再改變9. 2.動態(tài)數(shù)組的定義 定義動態(tài)數(shù)組時，數(shù)組名后面的括號內(nèi)不含維界。這時，編譯系統(tǒng)并不為該數(shù)組安排存儲空間。而在程序運行時，用ReDim語句指明該數(shù)組的大小，并安排存儲空間 Dim sArray( ) As Single Sub Form_Load( ) ReDim sArray(4，8) sArray原有值丟失 ReDim Preserve sArray(4,100) sArray原有值保留 End Sub10. (1)重新定義動態(tài)數(shù)組的大小時，

9、既可以改變其大小，也可以改變其維數(shù)，下標(biāo)可以用常數(shù)，也可以用有確定值的變量。例如： Dim a() As Integer a為動態(tài)數(shù)組 Private Sub Command1_click() ReDim a(4,5) 重新定義動態(tài)數(shù)組 n=InputBox(“請輸入n的值”) ReDim a(n) 重新定義動態(tài)數(shù)組 End Sub 11. (2)定義Variant型動態(tài)數(shù)組時，可以省略數(shù)組名后面的圓括號 Dim a a為variant型變量或數(shù)組 a=5 a為簡單變量 Print a Redim a(5) a為數(shù)組 For I=0 to 5 a(I)=I Print a(I); Next I

10、12. (3)每次使用ReDim語句都會使數(shù)組中原有的數(shù)據(jù)丟失，當(dāng)希望改變數(shù)組大小而又要保留數(shù)組中原有的數(shù)據(jù)時，可以在數(shù)組名前面增加Preserve關(guān)鍵字，這時，只能改變多維數(shù)組中最后一維的上界，而不允許改變其它維的大小及最后一維的下界。 Dim a() As Integer ReDim a(10,10) ReDim Preserve a(10,Ubound(a)+2) 正確 ReDim Preserve a(Ubound(a)+2,10) 錯誤13.5.3 數(shù)組的基本操作1. 數(shù)組元素的賦值(1)靜態(tài)數(shù)組只能對數(shù)組元素逐一賦值，不能用數(shù)組名整體賦值 Dim a(4) As Integer F

11、or i = 0 To 4 a(i)=10 a數(shù)組的每個元素值為10 Next I是允許的。 a=(1,2,3,4,5)是不允許的。 14. (2)變體型動態(tài)數(shù)組可以用Array函數(shù)定界和整體賦值 Dim a As Variant, b() As variant, i% a=Array(1,2,3,4,5) b=Array(“abc”,”derf”,67，True) For i=Lbound(a) To Ubound(a) Picture1.Print a(i) Next i For i=Lbound(b) To Ubound(b) Picture1.Print b(i) Next I 其中，

12、Lbound()和Ubound()用來確定數(shù)組的下界和上界15. (3)動態(tài)數(shù)組也可以用同類型的靜態(tài)數(shù)組整體賦值 Dim a(4) As Integer, b() As Integer a(0)=1:a(1)=3:a(2)=5:a(3)=-8:a(4)=7 b=a 將數(shù)組a整體賦給數(shù)組b，b為動態(tài)數(shù)組 其中， b=a相當(dāng)于 For i=Lbound(a) To Ubound(a) b(i)=a(i) Next i16.2.數(shù)組的輸入 可以用InputBox函數(shù)或文本框?qū)崿F(xiàn)數(shù)組的輸入 Dim sB(4, 5) As Integer, i%, j% For i = 0 To 4 For j = 0

13、 To 5 sB(i, j) = InputBox(輸入sB( & i &, & j &)的值) Next j Next i For i = 0 To 4 For j = 0 To 5 Print Format$(sB(i, j), 00); spc(2); Next j Print Next i17.3. 數(shù)組的輸出數(shù)組的輸出只能對數(shù)組的各個元素進行。例：輸出方陣sc中的下三角元素 Dim sc(4,4) As Integer For i = 0 To 4 For j = 0 To i sc(i, j) = i * 5 + j Print sc(i, j); “ “; Next j Prin

14、t Next i如何輸出上三角？18.4. 求數(shù)組中最大元素及所在下標(biāo)及各元素之和 Option Base 1 Dim Max As Integer,iMax As Integer Dim Sum As Integer,iA(10) Max=iA(1)：iMax=1: Sum=iA(1) For i = 2 To 10 If iA(i)Max Then 求最大值 Max=iA(i) iMax=i End If Sum=Sum+iA(i) 求各元素之和 Next i Picture1.Print Max,iMax,Sum19.5. 將數(shù)組iA(10)中第一個元素與最后一個元素交換，第二個元素與倒

15、數(shù)第二個元素交換，直到整個數(shù)組各元素按逆序存放。 For i =1 To 102 t=iA(i) iA(i)=iA(10-i+1) iA(10-i+1)=t Next i20.1. 控件數(shù)組的概念 一組相同的控件可以組成一個控件數(shù)組,它們共用一個控件名，具有相同的屬性，建立時系統(tǒng)給每個元素賦一個唯一的索引號(Index=0,1,2,.)，類似數(shù)組的下標(biāo)。 使用控件數(shù)組的最大優(yōu)點是數(shù)組中的各個控制件可以共享同樣的事件過程，從而減少編程工作量。 例：Private Sub cmdName_Click(Index As Integer) If Index=3 then 處理第四個命令按鈕的操作 En

16、d If End Sub5.4 控件數(shù)組21.2. 控件數(shù)組的建立(1)在設(shè)計階段建立 第一步先建立第一個控件,即在窗體上畫出該控件，設(shè)置其Name屬性,作為控件數(shù)組名。 第二步選中該控件，進行“復(fù)制”和“粘貼”，當(dāng)彈出的對話框中出現(xiàn)“已經(jīng)有一個控件為.，創(chuàng)建控件數(shù)組嗎”信息時，單擊“是”按鈕，就建立了一個控件數(shù)組，經(jīng)過若干次“復(fù)制”和“粘貼”，可以建立該控件數(shù)組的各個元素。每個元素都是一個控件,它們具有相同的Name，各個控件的index屬性值為該控件在數(shù)組中的位置(索引)號,從0開始。 第三步編制控件數(shù)組的事件過程。22.例5.3 建立含有四個命令按鈕的控件數(shù)組，當(dāng)單擊某個命令按鈕，分別顯

17、示不同的圖形或結(jié)束操作。Private Sub command1_Click(Index As Integer) Picture1.Cls Picture1.FillStyle = 5 填充右斜線圖案 Select Case Index Case 0 Picture1.Print 畫直線 Picture1.Line (2, 2)-(7, 7) Case 1 Picture1.Print 畫矩形 Picture1.Line (2, 2)-(7, 7), , BF Case 2 Picture1.Print 畫圓 Picture1.Circle (4.5, 4.5), 3.5, , , , 1 C

18、ase Else End End SelectEnd Sub23.(2) 在程序運行階段建立 第一步在窗體上畫出某控件（如Label1），并設(shè)置該控件的Index屬性值為0，表示該控件為數(shù)組,從而建立控件數(shù)組的第一個元素 第二步在編程時通過Load方法添加其余的若干個元素，也可以通過Unload方法刪除某個添加的元素。如：Load label1(i) i=1 第三步在程序中為每個新添加的控件數(shù)組元素設(shè)置Left和Top屬性以確定其在窗體的位置，并將其Visible 屬性設(shè)置為True(或-1)。 程序運行時會自動按程序中的設(shè)置，將各個控件顯示在窗體上。24.例5.4 通過程序建立的方法在窗體上

19、用64個標(biāo)簽框組成一個國際象棋的棋盤。先在窗體上畫label1控件，設(shè)置其Index屬性值為0，表示該控件為數(shù)組,從而建立控件數(shù)組的第一個元素在Form_load()事件中用兩重循環(huán)由Load方法自動生成8行8列l(wèi)abel1(k)，k=8(i-1)+j,并確定每個控件的Left和Top在label1_click()事件中獲得被單擊的label1控件的index值，并改變所有控件的顏色用程序建立的方法25.*VB程序設(shè)置顏色的四種方法用RGB(x,y,z)函數(shù)x、y、z在0255之間取值黑色RGB(0,0,0) 蘭色RGB(0,0,255) 綠色RGB(0,255,0) 青色RGB(0,255,

20、255)紅色RGB(255,0,0) 洋紅色RGB(255,0,255)黃色RGB(255,255,0) 白色RGB(255,255,255)用Quick BASIC提供的顏色函數(shù)QBColor(i)0 黑色 1 蘭色 2 綠色 3 青色 4 紅色 5 洋紅色 6 黃色 7 白色 8 灰色 9 亮蘭色 10 亮綠色 11亮青色12 亮紅色 13 亮洋紅色 14 亮黃色 15 亮白使用“對象瀏覽器”中列出的內(nèi)部常數(shù) vbBlack黑 vbBlue藍 vbCyan青 vbGreen綠 vbMagenta洋紅 vbRed紅 vbWhite白 vbYellow黃直接用十六進制長整數(shù)表示(數(shù)值越小顏色越

21、深) &H0&黑&HFFFFFF&白26.5.5 自定義數(shù)據(jù)類型(記錄)記錄的概念 記錄是由一組相關(guān)的數(shù)據(jù)項（字段）組成的整體。 例如，一個學(xué)生的記錄包括學(xué)號、姓名、性別、各門課的分數(shù)等，均稱為數(shù)據(jù)項或字段，它們可以是不同的數(shù)據(jù)類型。 在VB中，每個控件是一個對象，一個對象的所有屬性組成一個記錄，屬性名則是記錄的一個數(shù)據(jù)項（字段）。當(dāng)用戶自己創(chuàng)建類或?qū)ο髸r，就要定義屬性記錄。27.2. 記錄的定義 定義記錄時，要先定義記錄類型，然后再定義該記錄類型的變量或數(shù)組。記錄類型的定義 Type 自定義類型名 元素名(下標(biāo)) As 類型名 元素名(下標(biāo)) As 類型名End Type 例：Type St

22、udType No As Integer 學(xué)號 Name As String * 20 姓名 Sex As String * 1 性別 Mark(1 To 4) As Single 4門課程成績 Total As Single 總分 End Type28.定義記錄的語句如果放在標(biāo)準模塊中，可省略public。如果放在窗體中，則必須用private。如在窗體的通用聲明處Private Type StuType End Type在模塊的通用聲明處Public Type StuType End Type(2) 記錄變量或數(shù)組的定義可以用已定義的記錄類型定義變量或數(shù)組。 Dim a As StuTyp

23、e,b(20) As StuType 3. 記錄的引用(1) 引用記錄的一般形式是 . a.IntNo=123 a.StrName=“李明”29.(2) 用With語句引用形式： With 語句塊 End With 其中，對象名可以是記錄變量、控件名或其他的對象名作用：對一個對象執(zhí)行多條語句時，可省略對象名。例如：要給記錄變量a賦值，可以用with語句設(shè)置。 With a .IntNo=123 .StrName=“李明” .strSex=“M” .sngMark(1)=87 .sngMark(2)=91 .sngMark(3)=79 .sngMark(4)=95 .blnTag=True En

24、d With30.例5.5 利用記錄類型編程模擬數(shù)據(jù)庫記錄的輸入、顯示和查詢。標(biāo)簽：Label1Label5 文本框：Text1Text3命令按鈕：Command1(3)在窗體通用聲明段定義記錄類型：Private Type StudType用Command1_Click(Index As Integer)事件編程新增：添加記錄前一個：顯示前一條記錄后一個：顯示下一條記錄最高分：顯示最高分位置：顯示總記錄數(shù)和當(dāng)前記錄號31.5.6 常用算法(二) 1.分類統(tǒng)計例5.6 輸入一串字符，統(tǒng)計各字符出現(xiàn)的次數(shù)，不區(qū)分字母的大小寫。32.設(shè)計：用一個文本框輸入字符串，圖形框輸出個字符的個數(shù)，命令按鈕進

25、行統(tǒng)計。算法：為了計算各字母的個數(shù)，定義一個含26個元素的一維整型數(shù)組a，a(1)存放字母a或A的個數(shù)，a(2)存放字母b或B的個數(shù)，。為了對各個字母計數(shù)，用Mid$()函數(shù)依次取出字符串中的各個字母并進行判斷和計數(shù)。為了不區(qū)分大小寫，可用Ucase$()函數(shù)將所取出的字母一律轉(zhuǎn)換成大寫，也可用Lcase$()將所取出的字母一律轉(zhuǎn)換成小寫33.2.大量數(shù)據(jù)的輸入和編輯例5.7 利用文本框可實現(xiàn)大量數(shù)字串輸入和編輯的功能。 用Text1輸入一批數(shù)字串，Picture1顯示數(shù)字串中的各個數(shù)字，Text2輸出數(shù)組各元素用a=split(text1,”,”)將text1中的文字按逗號分割成各個數(shù)組元素

26、，并顯示在圖形框picture1中用text2=join(a,” “)將數(shù)組a合并成用空格分隔的字符串34.設(shè)計：兩個命令按鈕，一個用于通知用戶輸入數(shù)字串；另一個用于合并數(shù)組元素。兩個文本框，一個用于輸入和編輯數(shù)據(jù)，另一個用于輸出結(jié)果；圖形框用于輸出數(shù)組a各元素的值。算法： 通過Text1_keypress事件編程只允許輸入09、“,”、“.”和“-”； 通過Command1_Click事件編程將連續(xù)兩個逗號分隔符替換成一個逗號，并用a=Split(Text1,”,”)將Text1文本框中的字符串以逗號為分界符分離出各項數(shù)據(jù)，依次存入數(shù)組a中，并在圖形框中顯示； 通過Command2_clic

27、k事件編程，用Text2=join(a,” “)將數(shù)組a的各元素以空格為分隔符合并成字符串,并在Text2中顯示。35.3.數(shù)組排序 (1)選擇法排序 例5.8 對已存放在數(shù)組iA中的n個數(shù)，用選擇法按遞增順序排序。 36.選擇排序算法 n個數(shù)排序要經(jīng)過n-1輪比較和交換(1) 第一輪從n個數(shù)中選出最小的數(shù)(遞增)，與第1個數(shù)交換位置；(2) 第二輪從除第1個數(shù)外的其余n-1個數(shù)再按(1)的方法選出次小的數(shù)，與第2個數(shù)交換位置。(3) 以后各i輪均從余下的數(shù)中找到最小數(shù)，并與第i個數(shù)交換，直到i=n-1為止。最后構(gòu)成遞增序列。 For i = 1 To n - 1 iMax= i For j

28、= i+1 To n If iA(iMax) iA(j) Then iMax = j end if Next j t= iA(i) iA(i) = iA(iMax) iA(iMax) = t Next I 37. (2)冒泡法排序 例5.9 對例5.8用冒泡法按遞增順序排序。 冒泡排序算法： n個數(shù)排序也要經(jīng)過n-1輪比較和交換第一輪從第一個數(shù)開始，與第二個數(shù)比較，若第一個數(shù)大于第二個數(shù)，則將二者交換位置；否則，不交換。其后，再將第二個數(shù)與第三個數(shù)比較，順序不對的，也同樣進行交換，直到倒數(shù)第二個數(shù)。結(jié)果：最大的數(shù)沉底，最小數(shù)上浮一個位置；第二輪仍從第一個數(shù)開始，依次進行相鄰兩個數(shù)的比較，必要時

29、進行交換，直到倒數(shù)第三個數(shù)，結(jié)果：次大數(shù)將落在倒數(shù)第二個位置上，最小數(shù)繼續(xù)上浮一個位置；以后各i輪均從第1個數(shù)開始，直到倒數(shù)第n-i+1個數(shù)，進行相鄰兩數(shù)的比較，直到i=n-1為止，此時最小數(shù)將上浮到第一個位置上，從而最后構(gòu)成遞增序列。38. Option Base 1 Dim i%, j%, imax%, t% For i = 1 To n-1 For j = 1 To n+1-i If iA(j) iA(j + 1) Then t = iA(j) iA(j) = iA(j + 1) iA(j + 1) = t End If Next j Next i For i = 1 To n Picture2.Print iA(i) Next i原始數(shù)據(jù)：8 6 9 3 2 7第一輪 6 8 3