VB-數(shù)組的用法

1、第8章 數(shù) 組,數(shù)組的基本概念,數(shù)組一組相同類型的變量,使用同一個名字來組織 一個班(48個)學生的成績 Score 30種圖書的名字 BookName 100種商品的價格 Cost 數(shù)組元素數(shù)組中的各個變量 使用唯一的下標（索引）來標識 Score(1)、 Score(2)Score(48) BookName(0) BookName(29) Cost(0) Cost(99) 數(shù)組的長度數(shù)組元素的個數(shù),數(shù)組的基本概念,數(shù)組的維數(shù) 一維數(shù)組 多維數(shù)組 二維數(shù)組 三維數(shù)組 ,(2,5,7,9,10,4,8),行,行列,行列層,數(shù)組的基本概念,數(shù)組的分類 按維數(shù)分： 一維、二維、三維 按在內(nèi)存分配是

2、否可變分： 靜態(tài)數(shù)組 動態(tài)數(shù)組（可重新定義數(shù)組的維數(shù)和長度）,靜態(tài)數(shù)組的聲明-一維數(shù)組,格式：Dim|Public|Static 數(shù)組名(下標) As 類型名,只能由常數(shù)表示,Dim Score(1 to 48) As Integer Dim Cost(100) As Single Static BookName(30) As String,下標的格式,下界 to 上界 省略下界，則默認為0 如：Dim Score(1 to 48) As Integer數(shù)組元素： Score(1)、 Score(2)Score(48) Dim Cost(100) As Single 數(shù)組元素： Cost(0)

3、、 Cost(1) Cost(100),格式：Dim 數(shù)組名(下標1，下標2) As 類型名 二維數(shù)組： Dim db(3,1 to 5) As Integer Public N(5,5) As Single 三維數(shù)組： Dim Tr(3,4,4) As Long Dim A(1 to 5,1 to 5,1 to 5) As Long 元素: 數(shù)組db共有4行5列4520個元素,靜態(tài)數(shù)組的聲明-多維數(shù)組,二維數(shù)組在內(nèi)存中的存放,以列為單位存放！,動態(tài)數(shù)組的聲明,格式：Dim 數(shù)組名( ) As 類型名 如：Dim s( ) As Single,聲明時未指定數(shù)組的大小,動態(tài)數(shù)組在需要時使用Red

4、im語句指定維數(shù)和大小,格式：Redim Preserve 數(shù)組名（下標1，下標2）As 類型名 如：Redim s(10) Redim s(2,3),下標可以是常量、變量和表達式； 與靜態(tài)數(shù)組的聲明不同之處！ Dim a() As Single, i As Integer k=5 Redim a(3) Redim a(k) Redim a(k*3+1) ,Redim的注意點,As 類型名可以省略 不省略則必須與Dim語句聲明的類型一致； Preserve保留數(shù)組中原有的數(shù)據(jù) 使用Preserve的Redim只能改變最后一維的大小且不能改變維數(shù) Dim b() As Integer Redim

5、 b(1,2) Redim Preserve b(1,4),二維數(shù)組按列存放,Redim的注意點,Redim語句只能出現(xiàn)在過程內(nèi)部原因：是VB的執(zhí)行語句，不是聲明語句 Private Sub Form_Click() Dim A( ) As Integer, i As Integer Print “一維數(shù)組：” ReDim A(1 To 10) 重新指定數(shù)組A為一維數(shù)組，大小為10 For i = 1 To 10 使用一維數(shù)組A A(i) = Int(Rnd * 101) Print A(i), Next i PrintEnd Sub,若沒有Redim語句而直接使用數(shù)組的元素,則：無論引用哪個

6、元素都將出錯， 出錯類型為：下標越界,Redim的注意點,Private Sub Form_Click() Dim A( ) As Integer, i As Integer Print “二維數(shù)組：” ReDim A(1 To 9, 1 To 5) 重新指定數(shù)組A為二維數(shù)組，大小為95 For i = 1 To 9 使用二維數(shù)組A For j = 1 To 5 A(i, j) = 10 + Int(Rnd * 21) Print A(i, j), Next j Print Next i End Sub,二重循環(huán)：i控制行，j控制列,但是切不可思維定勢！,動態(tài)數(shù)組求某個正整數(shù)的所有因子,X :

7、 27,For I=1 to 13,因子個數(shù)k 動態(tài)數(shù)組a,x=val(text1.text)k=0 ,目前沒有因子,Private Sub Command1_Click() Dim a() As Integer ：k = 0：x = Val(Text1.Text),For i = 1 To x 2 If x Mod i = 0 Then k = k + 1 ：ReDim Preserve a(k) a(k) = i End If Next i,動態(tài)數(shù)組求某個正整數(shù)的所有因子,要求將輸入的10進制正整數(shù) 根據(jù)用戶的輸入轉換為n進制 n=2,8,16,動態(tài)數(shù)組進制轉換 102/8/16,1011

8、00101,357,2,.1,178,2,.0,89,2,.1,44,2,.0,22,2,.0,11,2,.1,5,2,.1,2,2,.0,1,2,.1,0,10101,21,2,.1,10,2,.0,5,2,.1,2,2,.0,1,2,.1,0,動態(tài)數(shù)組進制轉換 102/8/16,33,27,8,.3,3,8,.3,0,1F,31,16,.15,1,16,.1,0,動態(tài)數(shù)組進制轉換 102/8/16,假設使用動態(tài)數(shù)組 bin（） as string 存儲每 一個余數(shù) 變量k代表余數(shù)的個數(shù) Num代表要轉換的10進制正整數(shù) N代表要轉換為的進制,動態(tài)數(shù)組進制轉換 102/8/16,K=0 目前

9、余數(shù)個數(shù)為0 Do Loop unitl num=0 當商為0結束循環(huán),求出余數(shù)，存放在bin數(shù)組中 num=numn,將數(shù)組元素從尾到頭組合，輸出,數(shù)量 k=k+1 數(shù)組bin重新定義大小 bin(k)=num取n的余數(shù),動態(tài)數(shù)組進制轉換 102/8/16,問題：求得的余數(shù)是10進制的，對于16進制而言， 要完成10A 11B 15F 的轉換,解決：使用一個字符數(shù)組chr dim ch (15) as string來完成,利用下標與數(shù)組元素內(nèi)容的對應完成轉換,動態(tài)數(shù)組進制轉換 102/8/16,k = 0 Do k = k + 1 ReDim Preserve bin(k) r = num

10、Mod n bin(k) = ch (r) num = num n Loop Until num = 0,For i = k To 1 Step 1 顛倒輸出 ch = ch + bin(i) Next i,動態(tài)數(shù)組進制轉換 102/8/16,Option Base語句,格式：Option Base n ( n : 0 , 1 ) 如：Option Base 1 位置：模塊的通用部分 跟Option Explict語句一樣是設置的功能語句； 如： Option Base 1 Dim a(5) 元素a(1)a(5) Dim b(3,4) 3行4列，b(1,1)b(3,4),Option Base

11、 1Dim a(2 To 5) 元素a(2)a(5)Dim b(3,4) 3行4列，b(1,1)b(3,4),LBound(aname , d),Private Sub Form_Click( ) Dim A(5) As Integer , B(3 to 8,200 to 208) Print Lbound(A), Lbound(B,1),Lbound(B,2) End Sub,0 3 200,UBound(aname , d),Private Sub Form_Click( ) Dim A(5) As Integer , B(3 to 8,200 to 208) Print Ubound(A

12、), Ubound(B,1),Ubound(B,2) End Sub,5 8 208,數(shù)組的基本操作,數(shù)組的輸入 數(shù)組的輸出 數(shù)組的查找 數(shù)組的排序 數(shù)組的插入 數(shù)組的刪除,數(shù)組的輸入,給數(shù)組元素賦值 (一般采用循環(huán)結構 ) 鍵盤讀入 使用InputBox()函數(shù)實現(xiàn) 靜態(tài)數(shù)組Dim A(1 To 10) As Integer, i As IntegerFor i = 1 To 10 A(i) = Val(InputBox(“請輸入第” Next L Next K,A. 1 2 1 B. 1 2 3 C. 2 4 6 D. 1 3 1,練 習,Dim A(1 To 100) As Intege

13、r Dim B(1 To 10, 1 To 10 ) As Integer For I=1 To _ A(I)=Int(Rnd*5+1) Next I For I=1 To _ For J=1 To _ B(I,J)= _ Print B(I,J); Next J Print Next I,以下程序代碼將具有100個元素的數(shù)組A按每行10個數(shù)的形式賦值給二維數(shù)組B。即將A(1)到 A(10)依次賦值給B(1,1)到B(1,10)；將A(11)到A(20)依次賦值給B(2,1)到B(2,10);.將A(91)到A(100)依次賦值給B(10,1)到B(10,10)。,100,10,10,A(I-

14、1)*10+J),數(shù)組的查找,在已知數(shù)組中尋找是否存在關鍵值為Key的元素 若找到則給出元素所在的位置，否則給出失敗信息 1.順序法查找 2.二分法查找,順序法查找,基本思想: 從第一個元素開始逐個判斷,直到找到或數(shù)組結束 實現(xiàn) - a(1)a(N) For i = 1 To N If a(i) = key Then Exit For Next i If i = N + 1 Then Print “數(shù)組中沒有元素” & key Else Print key & “是數(shù)組中的第” & i & “個元素” End If,二分法查找 (折半查找),僅適用于有序數(shù)組！ 基本思想：在下標區(qū)間left,r

15、ight間，用mid將區(qū)間一分為二，根據(jù)mid位置元素和key的大小關系，確定下一次查找區(qū)間, amidkey 則 right=mid-1 amid=key 找到! amidkey 則 left=mid+1,結束條件： 找到 未找到（leftright）,Left = 1 : Right = N Do While Left Key Then Right = Mid 1 Else Left = Mid + 1 End If Loop If Left Right Then Print “數(shù)組中沒有元素” & Key Else Print Key & “是數(shù)組中的第” & Mid & “個元素” E

16、nd If,求一個二維數(shù)組中的鞍點元素,鞍點元素 該元素在所在行中最大, 且所在列中最小， 它可能存在,也可能不存在,Private Sub Form_Click() Dim a(3, 3) As Integer, i As Integer, j As Integer Dim maxvr As Integer, col As Integer, flg As Integer a(1, 1) = 1: a(1, 2) = 9: a(1, 3) = 6 a(2, 1) = 15: a(2, 2) = 10: a(2, 3) = 4 a(3, 1) = 4: a(3, 2) = 12: a(3, 3)

17、 = 18 End Sub, 初始化數(shù)組,求一個二維數(shù)組中的鞍點元素,針對每一行循環(huán)（For i = 1 To 3） 找出該行最大的元素 判斷其是否在一列中最小 如果最小，打印出來,如果所有行都不存在鞍點元素， 則打印 不存在,求一個二維數(shù)組中的鞍點元素,2) 找出該行最大的元素,maxvr = a(i, 1) For j = 2 To 3 If maxvr a(i, j) Then maxvr = a(i, j) End If Next j,2) 判斷其是否在一列中最小,For j = 1 To 3 If maxvr a(j, ?) Then Exit For End ifNext j,問題

18、1： 只是求出了該行的最大值 忘了記載下他所在的列號,求一個二維數(shù)組中的鞍點元素,問題1解決：利用變量col，記載最大值所在的列號。,maxvr = a(i, 1) : col = 1 For j = 2 To 3 If maxvr a(i, j) Then maxvr = a(i, j) : col = j End If Next j,求一個二維數(shù)組中的鞍點元素,2) 判斷其是否在一列中最小 3) 如果最小，打印出來,For j = 1 To 3 If maxvr a(j, col) Then Exit For Next j If j = 4 Then Print a( & i & , &

19、col & )= & a(i, col) End If,求一個二維數(shù)組中的鞍點元素,For i = 1 To 3 找出該行最大的元素 判斷其是否在一列中最小 如果最小，打印出來 Next I,求一個二維數(shù)組中的鞍點元素,如果所有行都不存在鞍點元素，則打印 不存在,問題2：如何判斷所有行都不存在鞍點元素,使用變量flg， 如果剛才循環(huán)中每一行找到一個鞍點元素，就flg=1 循環(huán)結束后，如果還是flg=0, 則表示不存在鞍點元素,求一個二維數(shù)組中的鞍點元素,For j = 1 To 3 If maxvr a(j, col) Then Exit For Next j If j = 4 Then Pr

20、int a( & i & , & col & )= & a(i, col) End If,flg = 1,求一個二維數(shù)組中的鞍點元素,For i = 1 To 3 找出該行最大的元素 判斷其是否在一列中最小 如果最小，打印出來，并且改變flg Next I 如果所有行都不存在鞍點元素， 則打印 不存在,If flg = 0 Then Print “鞍點元素不存在”,求一個二維數(shù)組中的鞍點元素,數(shù)組的排序,將一維數(shù)組按各元素值的一定規(guī)律(升序或降序 )重新排放的過程 1.冒泡法排序 2.選擇法排序,If a(j) a(j + 1) Then temp = a(j) a(j) = a(j + 1)

21、 a(j + 1) = temp End If,冒泡法排序,基本思想： 類似于水泡，每趟排序將一個最大(小)值沉到最后 使用相鄰元素的兩兩比較實現(xiàn)每趟排序,元素：(12、7、3、10、18、15、1、5、25、9),12,A(1),A(2),A(3),A(4),A(5),A(6),A(7),A(8),A(9),A(10),7,3,10,18,15,1,5,25,9,12,7,12,3,10,12,18,12,15,18,1,18,5,18,18,25,25,9,第1趟,3,7,7,10,10,12,12,15,1,15,5,15,15,18,9,18,3,25,結論：N個元素需要N1趟排序,F

22、or i = 1 To N - 1 For j = 1 To N - i If a(j) a(j + 1) Then temp = a(j) a(j) = a(j + 1) a(j + 1) = temp End If Next j Next i,冒泡法排序,選擇法排序,基本思想： 對每一趟排序，都在數(shù)組的無序部分找到一個最?。ù螅┲捣旁跓o序部分的第一個 即：每趟確定一個數(shù)的位置,For i = 1 To N - 1 For j = i+1 To N If a(i) a(j) Then temp = a(i) a(i) = a(j) a(j) = temp End If Next j Next

23、 i,注意：與冒泡法的區(qū)別！,數(shù)組的插入,已知一數(shù)組和一待插入的數(shù)據(jù)e，根據(jù)要求將其插入到數(shù)組的相應位置。 1.已知插入位置k 2.在有序數(shù)組中插入,已知插入位置k,在數(shù)組a的第k個位置插入一元素e,已知插入位置k, 數(shù)組長度加一(動態(tài)數(shù)組),N = N + 1 數(shù)組的長度加1 ReDim Preserve a(N),保留原有的數(shù)組元素，在最后添加一個元素,若使用靜態(tài)數(shù)組，則需在聲明時將添加的元素空間事先考慮在內(nèi)。, 將數(shù)組中a(k)a(N)向后移一個元素,For i = N To k + 1 Step -1 a(i) = a(i - 1) Next i,問題：為什么移動要從最后一個位置開始向

24、前處理？,答：若從第k個位置向后處理， 則會把未處理數(shù)據(jù)覆蓋。, 將e放入a(k)位置 a(k) = e,已知插入位置k,在有序數(shù)組中插入,已知數(shù)組b有序，插入元素e后，使得數(shù)組保持原序 分析：(設b中元素按從小到大排列),e,步驟：找到插入位置 按已知位置插入的方法實施插入操作, 找到插入位置,則：b(k)eb(k+1) 即：b(k+1)為第一個比e大的元素,For k = 1 To N If b(k) e Then Exit For Next k k為插入位置,在有序數(shù)組中插入,若從后往前找呢？, 按已知位置插入的方法實施插入操作,N = N + 1 ReDim Preserve b(N)

25、 For i = N To k + 1 Step -1 b(i) = b(i - 1) Next i b(k) = e,在有序數(shù)組中插入,數(shù)組的刪除,已知一數(shù)組，根據(jù)要求將其中某個位置的元素刪除 要求數(shù)組元素保持連續(xù)存放,步驟： 將數(shù)組中a(k+1)a(N)向前移一個元素 數(shù)組長度減一,將數(shù)組中a(k+1)a(N)向前移一個元素,For i = k To N - 1 a(i) = a(i + 1) Next i,問題：1.為什么移動不使用向前處理？ 2.這里為什么不使用a(i-1)=a(i)?,答：會把未處理數(shù)據(jù)覆蓋,答：結合i的取值，不是處理a(k+1)a(N),數(shù)組長度減一,N = N -

26、 1 ReDim Preserve a(N),數(shù)組的刪除,刪除整個數(shù)組Erase函數(shù) 格式： Erase 數(shù)組名1,數(shù)組名2 功能：重新初始化靜態(tài)數(shù)組的元素 釋放動態(tài)數(shù)組的存儲空間 如：Dim a(10) As Integer,Dim b() As Integer Erase a，b 將a(0)a(10)都置為0 釋放b數(shù)組空間,數(shù)組的刪除,Private Sub Form_Click( ) Dim A(5) As Integer , B( ) As Integer A(1)=1: A(2)=2: A(3)=3: Redim B(4): B(2)=9 Print A(1),A(2),A(3),

27、B(2) Erase A, B Print A(1),A(2),A(3) End Sub,B(2),數(shù)組的刪除,約瑟夫問題,15個學生，從1到15號排列，依次1-3報數(shù)，報到3者出圈，直到所有學生都出列為止，顯示出學生出列的順序,問題1，如何解決15個學生的表示?,dim Old_No(15) as integer Old_No(1)代表1號學生， Old_No(2)代表2號學生，,問題2，如何表示出列還是在隊伍中,若在隊列中，Old_No(1)=1，若出列 ，Old_No(1)=0 ,問題3，如何顯示出出列的順序,Dim New_No(15) As Integer， 第1個出列的學生的編號存

28、放在New_No(1) 中 第2個出列的學生的編號存放在New_No(2) 中 ,約瑟夫問題,約瑟夫問題,認為報數(shù)13為一輪，每一輪出列1名，總共要進行15輪,For I= 1 to 15 還沒有人報數(shù) 找到報到3的學生 將該學生出列，并且New_No(i)=它的編號 Next i,約瑟夫問題,使用變量idx代表當前報數(shù)的學生的編號 使用count來代表當前報的數(shù),還沒有人報數(shù) 2) 找到報到3的學生,count = 0 還沒有人報數(shù),Do While count 3 當還沒有報到3 idx指向下個報數(shù)的學生，count+1 如果下個學生已經(jīng)出列，跳過他的位置 Loop,idx = idx + 1 下一個人報數(shù) If idx 15 Then idx = 1,coun