第8章數(shù)組的使用-在線瀏覽
2024-12-01 15:42本頁面
【正文】 = 2 * i 1 Next i End Sub 數(shù)組排序 排序就是將一組數(shù)據(jù)按照遞增或者遞減的次序排列。在這里主要介紹選擇法和冒泡法。 選擇法排序 的思想是： （ 1）對(duì)于有 n個(gè)數(shù)的序列，從中選出最大的一個(gè)數(shù)與第一個(gè)數(shù)交換； （ 2）從除去第一個(gè)數(shù)的 n1個(gè)數(shù)中在按照步驟（ 1）選出最大的數(shù)和數(shù)組序列的第二個(gè)數(shù)交換；一直重復(fù)第（ 1）步 n1次，最后構(gòu)成遞減數(shù)列。 下面是實(shí)現(xiàn) 冒泡排序的通用程序段 ：為了通用性更強(qiáng)，這里給出含有 n個(gè)元素的數(shù)組的排序程序代碼： For I = n1 to 1 step –1 For j=1 to I If S（ j） S(j+1) then Temp =S(j) S(j)=s(j+1) S(j+1) = Temp End If Next j Next I 數(shù)組的復(fù)制 “復(fù)制數(shù)組”是指將整個(gè)數(shù)組的內(nèi)容復(fù)制到另一個(gè)數(shù)組中。例如： Dim a（ 2） Dim b（ 3） Dim obj（） c = Array（ 10， 11， 12， 13） d = Array（‘ a’，‘ b’，‘ c’，‘ d’，‘ e’） b = c ‘這一句是錯(cuò)誤的，因?yàn)?b是一個(gè)固定大小的數(shù)組 a = c ‘錯(cuò)誤， a的大小固定，且數(shù)組元素個(gè)數(shù)也不等 obj = c ‘正確 c = d ‘正確，因?yàn)榇颂?c的大小不固定 但是下面程序段是正確的： for I=0 to 3 b（ I） =d（ I） next I 動(dòng)態(tài)數(shù)組的使用 在聲明中不給出數(shù)組的大?。ㄊ÷詳?shù)組聲明中括號(hào)中的下標(biāo)），當(dāng)要使用它的時(shí)候，隨時(shí)可以用 ReDim語句來重新定義該數(shù)組的大小。 聲明動(dòng)態(tài)數(shù)組的方法：使用 Dim， Private或 Public語句聲明一個(gè)不寫下標(biāo)的數(shù)組，然后在后面需要的時(shí)候再用 ReDim語句來指出數(shù)組的大小。例如： Dim sa（） AS Integer Private Sub Form_click() ReDim sa（ 4,8） …… End Sub 二維數(shù)組 二維數(shù)組就是有兩個(gè)下標(biāo)的數(shù)組，用來表示一些分組的元素。對(duì)于二維數(shù)組來說，數(shù)組的元素個(gè)數(shù)就是（下標(biāo) 1上界 下標(biāo) 1下界 +1） *（下標(biāo) 2上界 下標(biāo) 2下界 +1）個(gè)。 將一個(gè)二維數(shù)組行和列元素交換，存到另一個(gè)二維數(shù)組中 ‘定義兩個(gè)數(shù)組變量和兩個(gè)計(jì)數(shù)器變量 Dim a(1 To 2, 1 To 3) AS Integer Dim b(1 To 3, 1 To 2) AS Integer Dim i, j AS Integer ‘程序裝入時(shí)輸入數(shù)組元素，本例中分別輸入 ‘ 12， 34， 56， 78， 89， 90 Private Sub Form_Load
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1