VB程序設(shè)計(jì)數(shù)組課件

1、Visual Basic 程序設(shè)計(jì)1精選課件pptVisual Basic 程序設(shè)計(jì)1精選課件ppt目 錄前言第1講第2講第3講第4講第5講第6講第7講第8講第9講第10講第11講第12講第13講第14講第15講第16講2精選課件ppt目 錄前言第1講第2講第3講第4講第5講第6講第7講第8講第回顧上一講學(xué)習(xí)的內(nèi)容判斷條件執(zhí)行循環(huán)WhilewendDo WhileLoopDo UntilLoopDo Loop WhileDo Loop Until3精選課件ppt回顧上一講學(xué)習(xí)的內(nèi)容判斷條件執(zhí)行循環(huán)3精選課件ppt上機(jī)實(shí)驗(yàn)中的問題求累加和SUM=SUM+K （sum的初始值一定是0）求連乘SUM

2、=SUM*K（sum的初始值一定是1）程序填空題：特別要注意選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)的完整性。4精選課件ppt上機(jī)實(shí)驗(yàn)中的問題求累加和4精選課件ppt第六章 數(shù)組 （4學(xué)時(shí)）6.1 數(shù)組的引入6.2 數(shù)組的聲明6.3 動(dòng)態(tài)數(shù)組及聲明6.4 數(shù)組的基本操作6.5 控件數(shù)組6.6 自定義數(shù)據(jù)類型6.7 數(shù)組應(yīng)用6.8 常見錯(cuò)誤5精選課件ppt第六章 數(shù)組 （4學(xué)時(shí)）6.1 數(shù) 1.數(shù)組概念例6.1 求一個(gè)班36個(gè)學(xué)生的平均成績，然后統(tǒng)計(jì)高于平均分的人數(shù)。按以前簡單變量的使用和循環(huán)結(jié)構(gòu)相結(jié)合，求平均成績程序段如下： aver = 0 For i = 1 To 36 mark = InputBox(輸入第

3、+ i + 位學(xué)生的成績) aver = aver + mark Next i aver = aver / 1006.1 數(shù)組的引入6精選課件ppt 1.數(shù)組概念6.1 數(shù)組的引入6精選課件ppt 若要統(tǒng)計(jì)高于平均分的人數(shù)，則無法實(shí)現(xiàn)。mark是一個(gè)簡單變量，存放的是最后一個(gè)學(xué)生的成績。已有知識解決方法：再重復(fù)輸入成績，這樣又帶來兩個(gè)問題： （1）輸入數(shù)據(jù)的工作量成倍增加； （2）若本次輸入的成績與上次不同，則統(tǒng)計(jì)的結(jié)果不正確。解決此問題的根本方法，需引入數(shù)組，保存輸入的數(shù)據(jù)，一次輸入，多次使用。7精選課件ppt 若要統(tǒng)計(jì)高于平均分的人數(shù)，則無法實(shí)現(xiàn)。mark是一個(gè)簡數(shù)組的概念具有相同類型的一

4、組變量作為一個(gè)整體，稱為數(shù)組。數(shù)組占據(jù)一塊內(nèi)存區(qū)域，數(shù)組名是這個(gè)區(qū)域的名稱，區(qū)域中的每個(gè)內(nèi)存單元都有自己的地址，該地址用下標(biāo)表示，即標(biāo)識了數(shù)組中的每個(gè)元素。定義數(shù)組的目的就是通知系統(tǒng)為其留出所需要的空間，且同名數(shù)組中的元素按一定的順序連續(xù)存放。整型一維數(shù)組N(1)N(2)N(9)N(10)8精選課件ppt數(shù)組的概念具有相同類型的一組變量作為一個(gè)整體，稱為數(shù)組。定義數(shù)組的概念數(shù)組是用一個(gè)統(tǒng)一的名稱表示的、順序排列的一組內(nèi)存變量。數(shù)組中的每個(gè)變量稱為數(shù)組元素，用不同的數(shù)字（下標(biāo)）來標(biāo)識它們，因此數(shù)組元素又稱為下標(biāo)變量。 如果每個(gè)數(shù)組元素只有一個(gè)下標(biāo)，則稱這個(gè)數(shù)組為一維數(shù)組。有兩個(gè)下標(biāo)的數(shù)組稱為二維

5、數(shù)組。VB中規(guī)定：數(shù)組必須先聲明后使用，不允許使用隱含定義。9精選課件ppt數(shù)組的概念數(shù)組是用一個(gè)統(tǒng)一的名稱表示的、順序排列的一組內(nèi)存變2.數(shù)組的邏輯結(jié)構(gòu)和存儲結(jié)構(gòu)例如：聲明一維整型數(shù)組N(8) Dim N%(8)N(8)在內(nèi)存中排列示意圖：例：從鍵盤隨意輸入8個(gè)數(shù)，將這8個(gè)數(shù)從大到小排列輸出。10精選課件ppt2.數(shù)組的邏輯結(jié)構(gòu)和存儲結(jié)構(gòu)例如：聲明一維整型數(shù)組N(8) 二維數(shù)組的邏輯結(jié)構(gòu)二維數(shù)組的邏輯結(jié)構(gòu)：可以看成一個(gè)二維表格或看成一個(gè)矩陣。數(shù)組元素的第一個(gè)下標(biāo)值表示該元素在表格中的行號，第二個(gè)下標(biāo)值表示該元素在表格中的列號。 例如：聲明二維數(shù)組：DIM W%(4,3)11精選課件ppt二維

6、數(shù)組的邏輯結(jié)構(gòu)二維數(shù)組的邏輯結(jié)構(gòu)：可以看成一個(gè)二維表格或二維數(shù)組的存儲結(jié)構(gòu)數(shù)組的存儲結(jié)構(gòu)：按行為主序存儲。W(0,0)W(0,1)W(0,2)W(1,0)W(1,1)W(1,2)W(3,0)W(3,1)W(3,2)12精選課件ppt二維數(shù)組的存儲結(jié)構(gòu)數(shù)組的存儲結(jié)構(gòu)：按行為主序存儲。W(0,0 VB中，使用4個(gè)關(guān)鍵字聲明數(shù)組，它們格式相同，只是適用范圍不同而已。Dim 用在窗體模塊或標(biāo)準(zhǔn)模塊中，也可用于過程ReDim 用于過程中Static 用在過程中Public 用在標(biāo)準(zhǔn)模塊中，定義全局?jǐn)?shù)組。 VB中，數(shù)組又有兩種情況： 靜態(tài)(定長)數(shù)組 動(dòng)態(tài)(可變長)數(shù)組6.2 數(shù)組的聲明13精選課件ppt

7、 VB中，使用4個(gè)關(guān)鍵字聲明數(shù)組，它們格式相同，只是適用范1.靜態(tài)數(shù)組定義數(shù)組時(shí)，明確了數(shù)組的維數(shù)，及每維下標(biāo)的上下界，這種數(shù)組稱為靜態(tài)數(shù)組。靜態(tài)數(shù)組：計(jì)算機(jī)在程序執(zhí)行之前，進(jìn)行編譯時(shí)就根據(jù)數(shù)組說明語句開辟了固定的內(nèi)存區(qū)，直到程序執(zhí)行完畢。聲明靜態(tài)數(shù)組，下標(biāo)必須用數(shù)值常數(shù)或符號常量。14精選課件ppt1.靜態(tài)數(shù)組定義數(shù)組時(shí)，明確了數(shù)組的維數(shù)，及每維下標(biāo)的上下界2.靜態(tài)數(shù)組聲明靜態(tài)數(shù)組聲明語句形式（以dim為例） : Dim 數(shù)組名(下標(biāo)1,下標(biāo)2) As 類型聲明了數(shù)組的名、維數(shù)、大小、類型維數(shù)：有N個(gè)下標(biāo)稱為N維數(shù)組，N=1,2，最多60維。下標(biāo): 下界 To 上界 省略下界默認(rèn)為0，下標(biāo)必

8、須為常數(shù)每一維大小: 上界-下界+1數(shù)組大小: 每一維大小的乘積15精選課件ppt2.靜態(tài)數(shù)組聲明靜態(tài)數(shù)組聲明語句形式（以dim為例） : 1例：dim x(9) as integerdim a(10,10) as long說明：（1）對于數(shù)組的每一維，可以只給出使用的下標(biāo)的最大值，即下標(biāo)的上界。此時(shí)，默認(rèn)下標(biāo)下界為0。（2）如果需要數(shù)組的下標(biāo)下界從1開始，可以：dim x%(1 to 9),a&(1 to 10,1 to 10)或使用option base語句：option base 1說明：Option base語句只能出現(xiàn)在窗體通用段或標(biāo)準(zhǔn)模塊中，不能出現(xiàn)在過程中，且必須在數(shù)組定義語句之

9、前。默認(rèn)下標(biāo)值對每一維都有效。數(shù)組聲明語句格式116精選課件ppt例：dim x(9) as integer說明：數(shù)組聲明語數(shù)組聲明語句格式2Dim 數(shù)組名(下界 To 上界,下界 To上界) As 類型說明：此格式可以自由定義下標(biāo)的下界和上界。 例：dim a(-2 to 10) as integerdim b(10 to 100) as longdim c(1 to 10 , 11 to 20) as single數(shù)組下界上界的測試函數(shù)LBound(數(shù)組,維)、UBound(數(shù)組,維)默認(rèn)數(shù)組數(shù)據(jù)類型為Variant的數(shù)組稱默認(rèn)數(shù)組。定義時(shí)省略As類型說明。數(shù)組中元素的類型可以不同。17精

10、選課件ppt數(shù)組聲明語句格式2Dim 數(shù)組名(下界 To 上界,例1：Dim mark(1 to 100) As Integer例2：Dim lArray( 0 To 3，0 To 4) As Long等價(jià)于: Dim lArray(3，4) As Long聲明了Larray數(shù)組共有20（ 45）個(gè)元素18精選課件ppt例1：Dim mark(1 to 100) As Integ注意：(1)聲明靜態(tài)數(shù)組，下標(biāo)為常數(shù)表達(dá)式，不能是變量。 n =Inputbox(“輸入n”）Dim x(n) As Single(2)數(shù)組聲明語句中的下標(biāo)說明了數(shù)組的整體，即每一維的大?。欢诔绦蚱渌胤匠霈F(xiàn)的下標(biāo)表

11、示數(shù)組中的一個(gè)元素。兩者寫法形式相同，但意義不同。例如： Dim x(10) As Integer 聲明了x數(shù)組有11個(gè)元素 x(10)=100 對x(10)這個(gè)數(shù)組元素賦值19精選課件ppt注意：19精選課件ppt給數(shù)組中的各元素賦初值的操作稱為“數(shù)組的初始化”。使用dim定義的靜態(tài)數(shù)組，數(shù)值型的初始化為0，字符型的初始化為空串，變體類型為Empty。20精選課件ppt給數(shù)組中的各元素賦初值的操作稱為“數(shù)組的初始化”。20精選課6.3 動(dòng)態(tài)數(shù)組聲明數(shù)組時(shí)，沒有說明數(shù)組的大小，這種數(shù)組稱為動(dòng)態(tài)數(shù)組。動(dòng)態(tài)數(shù)組：在程序未運(yùn)行時(shí)，動(dòng)態(tài)數(shù)組不占用內(nèi)存，計(jì)算機(jī)在執(zhí)行過程中才給數(shù)組開辟存儲空間，當(dāng)不需要時(shí)

12、，可以用Erase語句刪除它，收回分配給它的內(nèi)存區(qū)，需要時(shí)還可以用Redim語句再次分配存儲區(qū)。動(dòng)態(tài)數(shù)組可以用已經(jīng)賦值的變量定義下標(biāo)范圍。21精選課件ppt6.3 動(dòng)態(tài)數(shù)組聲明數(shù)組時(shí)，沒有說明數(shù)組的大小，這種數(shù)組稱動(dòng)態(tài)數(shù)組的定義和聲明動(dòng)態(tài)數(shù)組定義首先在窗體、標(biāo)準(zhǔn)模塊或過程中用Dim、Public聲明一個(gè)沒有下標(biāo)的數(shù)組。再在過程中用ReDim語句定義帶下標(biāo)的數(shù)組。ReDim語句格式如下： ReDim Preserve 數(shù)組名(下標(biāo)，下標(biāo)2) As 類型例： Sub Form_Load( ) Dim sArray( ) As Single ReDim sArray(4，8) End Sub22精選

13、課件ppt動(dòng)態(tài)數(shù)組的定義和聲明動(dòng)態(tài)數(shù)組定義22精選課件ppt動(dòng)態(tài)數(shù)組聲明的幾點(diǎn)說明：(1)Dim、Private、Public變量聲明語句是說明性語句，可出現(xiàn)在過程內(nèi)或通用聲明段；ReDim語句是執(zhí)行語句，只能出現(xiàn)在過程內(nèi)。(2)在過程中可多次使用ReDim來改變數(shù)組的大小，也可改變數(shù)組的維數(shù)。(3)每次使用ReDim語句都會(huì)使原來數(shù)組中的值丟失，可以在ReDim語句后加Preserve參數(shù)用來保留數(shù)組中的數(shù)據(jù)，但使用Preserve只能改變最后一維的大小，前面幾維大小不能改變。(4)ReDim中的下標(biāo)可以是常量，也可以是有了確定值的變量。23精選課件ppt動(dòng)態(tài)數(shù)組聲明的幾點(diǎn)說明：(1)Dim

14、、Private、Pub6.4 數(shù)組的基本操作 數(shù)組元素的賦值賦值語句使用For循環(huán)和InputBox函數(shù)來賦值使用array函數(shù)數(shù)組元素的引用數(shù)組名（下標(biāo)）數(shù)組元素的輸出使用Print方法實(shí)現(xiàn)24精選課件ppt6.4 數(shù)組的基本操作 數(shù)組元素的賦值24精選課件ppt(1)用循環(huán)和賦值語句 For i = 1 To 10 iA(i)=i Next I(2)Array函數(shù) Dim ib As Variant ib =Array(abc, def, 67) For i = 0 To UBound(ib) Picture1.Print ib(i); ; Next i注意：(1)利用Array 對數(shù)組

15、各元素賦值，聲明的數(shù)組是可調(diào)數(shù)組或連圓括號都可省，并且其類型只能是Variant。(2)數(shù)組的上界由Array 函數(shù)括號內(nèi)的參數(shù)個(gè)數(shù)決定，也可通過函數(shù)Ubound獲得。1.數(shù)組元素的賦值25精選課件ppt(1)用循環(huán)和賦值語句注意：1.數(shù)組元素的賦值25精選課件p格式：數(shù)組變量名array（數(shù)組元素值表）功能：把一組數(shù)據(jù)賦給數(shù)組中每個(gè)元素。說明：數(shù)組元素值表是一個(gè)用逗號分隔的值表;Array函數(shù)僅適用于一維數(shù)組使用array函數(shù)創(chuàng)建的數(shù)組,其下界受Option base語句指定的下界的限制。若不提供參數(shù) ，則創(chuàng)建一個(gè)長度為0的數(shù)組。Array函數(shù)數(shù)組變量名是預(yù)先定義的數(shù)組名。在數(shù)組變量名后沒有

16、括號。采用變量定義形式，作為數(shù)組使用，類型為variant。26精選課件ppt格式：數(shù)組變量名array（數(shù)組元素值表）Array函數(shù)數(shù) For i = 0 To UBound(a) b(i) = a(i)Next i注意：賦值號左邊的數(shù)組只能聲明為Variant的可調(diào)數(shù)組或簡單變量。數(shù)組的賦值在VB6.0中，提供了數(shù)組直接對數(shù)組的賦值。例如： Dim a( ) As Variant, b( ) As Variant, i% a = Array(1, 2, 3, 4, 5) ReDim b(UBound(a) b = a27精選課件pptFor i = 0 To UBound(a)注意：賦值號

17、左邊Dim Max As Integer, iMax As IntegerDim ia(1 to 10) as integer Max=iA(1)：iMax=1For i = 2 To 10 If iA(i)Max Then Max=iA(i) iMax=i End IfNext I2.數(shù)組元素的引用 例1：求數(shù)組中的最大元素及所在下標(biāo)ia(1)ia(2)ia(3)ia(4)ia(5)ia(6)ia(7)ia(8)ia(9)ia(10)maximax參看例5交換數(shù)組元素：求數(shù)組中最大值及所在下標(biāo)28精選課件pptDim Max As Integer, iMax As In數(shù)組元素的引用 例2：

18、 交換數(shù)組中各元素For i =1 To 102 t=iA(i) iA(i)=iA(10-i+1) iA(10-i+1)=tNext I參看例 數(shù)組元素交換交換前24681013579交換后97531108642要求是：將數(shù)組的第1個(gè)元素與最后1個(gè)元素交換，第2個(gè)元素與倒數(shù)第2個(gè)交換，以此類推。29精選課件ppt數(shù)組元素的引用 例2： 交換數(shù)組中各元素For i =13. 二維數(shù)組的輸入和輸出Dim a%(4, 2)For i = 0 To 4For j = 0 To 2 a(i, j) = Val(InputBox(請輸入第（ & i + 1 & ， & j + 1 & ）元素) Pictu

19、re1.Print Format(a(i, j), );Next jPicture1.PrintNext i30精選課件ppt3. 二維數(shù)組的輸入和輸出Dim a%(4, 2)30精選課數(shù)組輸入和賦值舉例1、定義兩個(gè)一維數(shù)組A和B，大小相同。要求從鍵盤輸入數(shù)據(jù)，然后交換A、B中的值后輸出。31精選課件ppt數(shù)組輸入和賦值舉例1、定義兩個(gè)一維數(shù)組A和B，大小相同。要求數(shù)組輸入和賦值舉例2、定義兩個(gè)階數(shù)相同的矩陣，求c=a+b,并輸出。32精選課件ppt數(shù)組輸入和賦值舉例2、定義兩個(gè)階數(shù)相同的矩陣，求c=a+b,4.數(shù)組的清除清除數(shù)組的語句格式：Erase 數(shù)組名,數(shù)組名Erase用于靜態(tài)數(shù)組時(shí)，

20、若數(shù)組是數(shù)值型，則所有元素置0；若數(shù)組是字符串類型，則所有元素置空字符串。Erase用于動(dòng)態(tài)數(shù)組時(shí)，將刪除整個(gè)數(shù)組結(jié)構(gòu)并釋放數(shù)組所占內(nèi)存。Erase用于變體數(shù)組時(shí)，每個(gè)元素被重置為空Empty33精選課件ppt4.數(shù)組的清除清除數(shù)組的語句格式：33精選課件ppt問題講解簡單變量與數(shù)組變量的區(qū)別: AIA(I) I=1,2,310A(1)A(2)A(3)A(4)A(5)A(6)A(7)A(8)A(9)A(10)小結(jié):AI代表的是一個(gè)簡單變量，而A(I)代表的則是以A為名的十個(gè)下標(biāo)變量組成的數(shù)組。當(dāng)I發(fā)生變化時(shí)，A(I)中的I會(huì)隨著I值的變化而變化，而AI變量與I毫無關(guān)系。34精選課件ppt問題講

21、解簡單變量與數(shù)組變量的區(qū)別:A(1)A(2)A(3)A動(dòng)態(tài)數(shù)組示例：例：輸入若干個(gè)學(xué)生的成績，統(tǒng)計(jì)高于平均分的人數(shù)。 Dim mark() As Integer, i%, n%, aver n = InputBox(輸入學(xué)生的人數(shù)) ReDim mark(1 To n) 聲明存放n個(gè)學(xué)生成績的動(dòng)態(tài)數(shù)組 aver = 0 For i = 1 To n mark(i) = Int(Rnd * 61 + 40) 通過隨機(jī)數(shù)產(chǎn)生 40 ,100的成績 aver = aver + mark(i) Next i ReDim Preserve mark(1 To n + 2) 增加兩個(gè)元素,存放平均分和高于平均分的人數(shù),原來的學(xué)生成績?nèi)员Ａ?mark(n + 1) = aver / n mark(n + 2