【正文】 5) a(6) a(7) a(8) 如 : Dim a(2,3) As Integer 共 3*4個(gè)元素 a(0,0) a(0,1) a(0,2) a(0,3) a(1,0) a(1,1) a(1,2) a(1,3) a(2,0) a(2,1) a(2,2) a(2,3) 二維數(shù)組在內(nèi)存的存放順序是 “ 先行后列 ” 。 a(0,0) a(0,1) a(0,2) a(0,3) a(1,0) a(1,1) … a(2,2) a(2,3) （二） VB程序設(shè)計(jì)基礎(chǔ) 授課教師：葉夏 計(jì)算機(jī)應(yīng)用基礎(chǔ)及 VBASIC （二） 動(dòng)態(tài)（變長(zhǎng)）數(shù)組及聲明 在聲明時(shí)未給出數(shù)組的大小。定長(zhǎng)數(shù)組是在程序編譯時(shí)分配存儲(chǔ)空間，而動(dòng)態(tài)數(shù)組是在程序執(zhí)行時(shí)分配存儲(chǔ)空間。 建立動(dòng)態(tài)數(shù)組包括聲明和大小說(shuō)明兩步： 1． 格式： Dim | Private|Public 數(shù)組名 （ ） As 數(shù)據(jù)類(lèi)型 例： Dim a() As Integer 2． 在過(guò)程中用 ReDim語(yǔ)句指明該數(shù)組的大小 。 格式： ReDim [Preserve] 數(shù)組名 （ 下標(biāo) 1[， 下標(biāo) 2… ]） ） 例： ReDim a(20) 或 ReDim a(20) Preserve參數(shù)：保留數(shù)組中原來(lái)的數(shù)據(jù) （二） VB程序設(shè)計(jì)基礎(chǔ) 授課教師：葉夏 計(jì)算機(jī)應(yīng)用基礎(chǔ)及 VBASIC 說(shuō)明： 1）區(qū)分定長(zhǎng)、變長(zhǎng)數(shù)組 Dim N As Integer N=Val(InputBox(“ N=” )) Dim x(n) As Single 定長(zhǎng)數(shù)組聲明中下標(biāo)不能是變量 Dim N As Integer Dim x() As Single N=Val(InputBox(“ N=” )) ReDim x(N) 2）在過(guò)程中可以多次使用 ReDim來(lái)改變數(shù)組的大小，也可 改變數(shù)組的維數(shù)。 3）每次使用 ReDim語(yǔ)句都會(huì)使原來(lái)數(shù)組中值丟失，可以在 ReDim后加 Preserve 參數(shù)來(lái)保留數(shù)組中的數(shù)據(jù)。但此時(shí) 只能改變最后一維的大小。 （二） VB程序設(shè)計(jì)基礎(chǔ) 授課教師：葉夏 計(jì)算機(jī)應(yīng)用基礎(chǔ)及 VBASIC 數(shù)組的范例 Fibonacci數(shù)列 f1 = 1: f2 = 1 Print f1。 f2。 For i = 3 To 30 f3 = f1 + f2 Print f3 If i Mod 5 = 0 Then Print f1 = f2: f2 = f3 Next 數(shù)列 8。 要求：打印該數(shù)列的 30個(gè)數(shù) Dim a%(30) f(1) = 1: f(2) = 1 For i = 3 To 30 f(i) = f(i 1) + f(i 2) Next For i = 1 To 30 Print f(i)。 If i Mod 5 = 0 Then Print Next （二） VB程序設(shè)計(jì)基礎(chǔ) 授課教師：葉夏 計(jì)算機(jī)應(yīng)用基礎(chǔ)及 VBASIC 1. 數(shù)組的應(yīng)用 Dim iA(1 to 10) as Integer Dim iMax As Integer , Max As Integer Max=iA(1) iMax=1 For i = 2 To 10 If iA(i) Max Then Max=iA(i) iMax=i End If Next i Print “ 最大值： ” 。 Max 。 ” 位置： ” ；iMax iA(iMax) Then iA(iMax)。 （二） VB程序設(shè)計(jì)基礎(chǔ) 授課教師：葉夏 計(jì)算機(jī)應(yīng)用基礎(chǔ)及 VBASIC 2. 統(tǒng) 計(jì) : 用隨機(jī)函數(shù)產(chǎn)生 100個(gè) [0， 99]范圍內(nèi)的隨機(jī)整數(shù)，統(tǒng)計(jì)個(gè)位上的數(shù)字分別為 1， 2， 3， 4，5， 6， 7， 8， 9， 0的數(shù)的個(gè)數(shù)并打印出來(lái)。 將個(gè)位是 0的個(gè)數(shù)放在 a(0),……. Dim a(9) As Integer, i% ,x% ,p% For i=1 to 100 Next i x=int(Rnd*100) p=x mod 10 a(p)=a(p)+1 For i=0 to 9 print “ 個(gè)位是“ amp。 i amp。 “ 的個(gè)數(shù)：” amp。 a(i) Next i （二） VB程序設(shè)計(jì)基礎(chǔ) 授課教師：葉夏 計(jì)算機(jī)應(yīng)用基礎(chǔ)及 VBASIC 大量數(shù)據(jù)的輸入 (1)、使用循環(huán)用 inputBox()函數(shù)輸入 dim j%, a(20) as single for j=0 to 20 a(j)=Val(InputBox(輸入數(shù)組元素 )) next j (2) 、用 VB系統(tǒng)函數(shù) Array()給數(shù)組初始值 Dim A() As Integer A = Array(10,20,30) 如果不提供參數(shù)，則創(chuàng)建一個(gè)長(zhǎng)度為 0 的數(shù)組。 （二） VB程序設(shè)計(jì)基礎(chǔ) 授課教師：葉夏 計(jì)算機(jī)應(yīng)用基礎(chǔ)及 VBASIC Ubound( )函數(shù)和 Lbound( )函數(shù) 分別用來(lái)確定數(shù)組某一維的上界和下界值 。 使用形式： UBound(arrayname[, dimension]) LBound(arrayname[, dimension]) （二） VB程序設(shè)計(jì)基礎(chǔ) 授課教師：葉夏 計(jì)算機(jī)應(yīng)用基礎(chǔ)及 VBASIC ? arrayname 必需的。數(shù)組變量的名稱(chēng)，遵循標(biāo)準(zhǔn)變量命名約定。 ? dimension 可選的； Variant (Long)。指定返回哪一維的上界。 1 表示第一維，2 表示第二維，如此等等。如果省略 dimension，就認(rèn)為是 1。 例： Dim a(15) Print UBound(a) Print LBound(a) 15 0 （二） VB程序設(shè)計(jì)基礎(chǔ) 授課教師：葉夏 計(jì)算機(jī)應(yīng)用基礎(chǔ)及 VBASIC 例：打印輸出楊輝三角 Dim a(1 To 5, 1 To 5) As Integer For i = 1 To 5 a(i, i) = 1: a(i, 1) = 1 Next i For i = 3 To 5 For j = 2 To i1 a(i, j) = a(i 1, j 1) + a(i 1, j) Next j Next i 1 0 0 0 0 1 1 0 0 0 1 2 1 0 0 1 3 3 1 0 1 4 6 4 1 For i = 1 To 5 Next i Print Tab(20 3 * i)。 For j = 1 To i Print a(i, j)。 Spc(3)。 Next j Print （二） VB程序設(shè)計(jì)基礎(chǔ) 授課教師：葉夏 計(jì)算機(jī)應(yīng)用基礎(chǔ)及 VBASIC (一 ) 設(shè)置啟動(dòng)對(duì)象 ? 在程序運(yùn)行時(shí)，首先被加載并執(zhí)行的對(duì)象，稱(chēng)為程序的 啟動(dòng)對(duì)象 。 一個(gè)程序的啟動(dòng)對(duì)象可以是： ① 一個(gè)窗體 （缺省情況下為第一個(gè)創(chuàng)建的窗體） ②標(biāo)準(zhǔn)模塊中名為 Main的自定義 Sub過(guò)程 。 設(shè)置方法： 在 “ 工程 ” 菜單中的最后一項(xiàng) “ **屬性 ” 進(jìn)行設(shè)置。 如果設(shè)置從主過(guò)程 Main()啟動(dòng)，則必須在標(biāo)準(zhǔn)模塊中編寫(xiě) Main()過(guò)程代碼。 （二） VB程序設(shè)計(jì)基礎(chǔ) 授課教師：葉夏 計(jì)算機(jī)應(yīng)用基礎(chǔ)及 VBASIC （二）窗體的加載與顯示 （ 1） Load語(yǔ)句：裝入窗體到內(nèi)存 Load 窗體名稱(chēng) 說(shuō)明：執(zhí)行 Load語(yǔ)句后，窗體并不顯示出來(lái)，但可引用該窗體中的控件及各種屬性。 注意：這里的窗體名稱(chēng)是窗體的 Name屬性，而不是窗體的文件名，以下相同。 （ 3） Show方法：顯示一個(gè)窗體 [窗體名稱(chēng) ].Show [模式 ] 0－ Modeless（非模式）：可以對(duì)其它窗體進(jìn)行操作 1－ Model，關(guān)閉才能對(duì)其它窗體進(jìn)行操作。 （二） VB程序設(shè)計(jì)基礎(chǔ) 授課教師：葉夏 計(jì)算機(jī)應(yīng)用基礎(chǔ)及 VBASIC （三）窗體的隱藏與卸載 （ 1） Unload語(yǔ)句：從內(nèi)存刪除窗體 Unload 窗體名稱(chēng) 說(shuō)明： 當(dāng)窗體卸載之后，所有在運(yùn)行時(shí)放到該窗體上的控件都不再是可訪問(wèn)的。在設(shè)計(jì)時(shí)放到該窗體上的控件將保持不變 在卸載窗體時(shí)，只有顯示的部件被卸載。與該窗體模塊相關(guān)聯(lián)的代碼還保持在內(nèi)存中。 （ 2） Hide方法：隱藏，沒(méi)有刪除 [窗體名稱(chēng) .] Hide