【正文】 輸入 、 輸出數(shù)組元素的值 。 【 例 】 根據(jù)不同的時(shí)間段發(fā)出問候語 。 即 Then和 Else后面的語句塊包含另一個(gè)條件語句 。 n(i) Next i End Sub 程 序 運(yùn) 行 后 ， 單 擊 命 令 按 鈕 ， 執(zhí) 行 事 件 過 程Command1_Click。 i。 Str(i) amp。 利用循環(huán)結(jié)構(gòu)可以對已定義的數(shù)組進(jìn)行輸出 。 i amp。 Dim A（ 1 To 10） As Integer ’數(shù)組的每個(gè)元素是 0 For i=1 To 10 A(i)=0 Next I 可通過 InputBox函數(shù)輸入數(shù)組中第 i個(gè)元素的值 ， 此方法適合輸入少量數(shù)據(jù) 。 ?在 Viaual Basic語言中 ， 一個(gè)數(shù)組不能整體引用 。 以上面定義的 a數(shù)組為例 ， 其定義的第一個(gè)數(shù)組元素是 a(0)， 最后的一個(gè)元素是 a(8)。 ?在引用數(shù)組元素之前 ， 必須先對數(shù)組進(jìn)行定義 。 應(yīng)該建立起以下概念： ?一個(gè)數(shù)組元素實(shí)質(zhì)上就是一個(gè)變量名 ， 代表內(nèi)存中的一個(gè)存儲單元 。 同一模塊中 ， 數(shù)組和變量不可同名 。 在程序中 ， 數(shù)組與其他變量的使用方式相同 ， 即可參與運(yùn)算 ， 可以被賦值 。 例如在程序中有說明： Dim Counter(1 to 10) As Integer Dim Sum(10 to 20) As Double Dim name(20 to 20 ) As String Counter的下標(biāo)值范圍從 1到 10， Sum的下標(biāo)范圍從 10到 20， 數(shù)組 name的下標(biāo)等于上標(biāo) ， 即 name退化成一個(gè)簡單變量了 。 數(shù)組說明格式 2： 〈 說明符 〉 〈 變量名 〉 〔〈 下標(biāo) to 上界 〉〕 [As〈 類型 〉 ] 此種數(shù)組說明中 ， 關(guān)鍵字 to可以顯式地規(guī)定下標(biāo)下界 。 如果不想讓數(shù)組的下標(biāo) 值從 0開始算起 ， 可以用 Option Base語句來改變它的起始值 ， 例如： Option Base 1 Public Students(10) As Integer 將使數(shù)組項(xiàng)目變成 10個(gè) （ 也就是由 1到 10） 。 第二個(gè)語句建立了一個(gè)數(shù)組 Sum， 有 21個(gè)元素 ， 其下標(biāo)從 0到 20， 元素類型為 Double。 第一個(gè)語句建立了一個(gè)有 11個(gè)元素的數(shù)組 Counter， 其下標(biāo)從 0到 10， 元素類型為 Integer。 圖 51編譯程序所開辟的存儲單元 例如在程序中有說明： Dim Counter(10) As Integer Dim Sum(20) As Double Dim name(15) As String 以上語句用 Dim 作說明符 。 ?每個(gè)元素只有一個(gè)下標(biāo) ， Visual Basic語言默認(rèn)此數(shù)組第一個(gè)元素的下標(biāo)值為 0(稱為數(shù)組下標(biāo)的下界 )， 因此 ， 以上 a數(shù)組中的最后一個(gè)元素的下標(biāo)應(yīng)該是 8(稱為數(shù)組下標(biāo)的上界 )。 ?括號 中的 8規(guī)定了 a數(shù)組含有 9個(gè)元素 ， 它們是 a(0)， a(1)，a(2)， …， a(8)。 例如： Dim a(8) As Integer 在這里 ， Integer是類型名 ， a(8)就是一維數(shù)組說明符 。 此種形式默認(rèn)下標(biāo)下界為 0。 ?“ 下標(biāo) ” 用于定義數(shù)組元素的個(gè)數(shù) 。 不同的說明符可以定義數(shù)組的不同性質(zhì)和作用范圍 。 數(shù)組與普通變量一樣 ， 用來存放數(shù)據(jù) ， 且同一數(shù)組中的數(shù)據(jù)必須是同一類型的 。 數(shù)組應(yīng)該先定義后使用 。 在計(jì)算機(jī)內(nèi)存中 ， 數(shù)組占據(jù)了一塊連續(xù)的存儲區(qū)域 ， 數(shù)組名就是這塊空間的名稱 。 數(shù)組是程序設(shè)計(jì)中常用到的數(shù)據(jù)類型 。 程序設(shè)計(jì)語言提供了一種解決此類問題的更為有效的數(shù)據(jù)類型 ——數(shù)組 。Visual Basic程序設(shè)計(jì)教程 (中 ) 目錄 第 1章 Visual Basic程序設(shè)計(jì)概述 第 3章 Visual Basic程序設(shè)計(jì)初步 第 2章 Visual Basic程序設(shè)計(jì)基礎(chǔ) 第 4章 Visual Basic的程序控制結(jié)構(gòu) 第 6章 過程 第 5章 數(shù)組 第 7章 常用控件與系統(tǒng)對象 第 9章 圖形操作 第 8章 界面設(shè)計(jì) 第 10章 鍵盤與鼠標(biāo)事件 第 12章 數(shù)據(jù)庫程序設(shè)計(jì) 第 11章 文件 第 13章 程序調(diào)試與出錯處理 第 5章 數(shù)組 概述 二維數(shù)組 一維數(shù)組 動態(tài)數(shù)組 控件數(shù)組 概述 整型 、 實(shí)型 、 字符型等數(shù)據(jù)類型都屬于簡單類型 ，而在實(shí)際應(yīng)用中 ， 常常要遇到處理相同類型的成批相關(guān)數(shù)據(jù)的情況 。 例如 ， 為了處理某系幾百個(gè)學(xué)生某門課的考試成績 ， 若在程序中定義幾百個(gè)簡單變量記錄這些數(shù)值 ， 顯然是十分笨拙的 。數(shù)組是由固定數(shù)目的同類元素按一定順序排列而成的結(jié)構(gòu)類型數(shù)據(jù) 。 一維數(shù)組 當(dāng)數(shù)組中每個(gè)元素只帶有一個(gè)下標(biāo)時(shí) ， 稱這樣的數(shù)組為一維數(shù)組 。區(qū)域中每個(gè)單元都有自己的地址 ， 該地址用下標(biāo)表示 。 定義數(shù)組的目的是通知計(jì)算機(jī)為其留出所需的存儲空間 。 一維數(shù)組的聲明 數(shù)組說明格式 1： 〈 說明符 〉 〈 變量名 〉 〔〈 下標(biāo) 〉〕 [As〈 類型 〉 ] 其中： ?“ 說明符 ” 為 Visual Basic的保留字 。 ?“ 變量名 ” 是數(shù)組名 ， 是用戶自定義的標(biāo)識符 。 下標(biāo)值類型為長整型 ﹙ Long﹚ ，下標(biāo)界值范圍從 2 147 483 648到 2 147 483 647。 ?“ 類型 ” 是指數(shù)組的類型 。 以上語句說明了下面幾點(diǎn)： ?定義了一個(gè)名為 a的一維數(shù)組 。 ?類型名 Integer規(guī)定了 a數(shù)組中每個(gè)元素都是整型 ， 在每個(gè)元素中只能存放整型數(shù) 。 Visual Basic編譯程序?qū)?a數(shù)組在內(nèi)存中開辟如圖51所示的 9個(gè)連續(xù)的存儲單元 ， 在圖 51中標(biāo)明了每個(gè)存儲單元的名字 ， 可以用這樣名字直接來引用各存儲單元 。 與說明簡單變量一樣 ， 它用于說明局部數(shù)組 ， 也就是說 ， 它可以出現(xiàn)在窗體層 、 模塊和過程中 ，是最常用的說明形式 。 它的元素有： Counter(0)，Counter(1)， Counter(2)， … ， Counter(10)， 帶下標(biāo)的數(shù)組元素也稱為下標(biāo)變量 。 第三個(gè)語句建立了一個(gè)數(shù)組 name， 有 16個(gè)元素 ， 其下標(biāo)從0到 15， 元素類型為 String。 即此數(shù)組有Students(1)， Students(2)， Students(3)， … ， Students(10)。 此時(shí)應(yīng)滿足下界 ≤上界 。 引用數(shù)組元素 （ 下標(biāo)變量 ） ， 即在括弧中指定下標(biāo) 。 在引用數(shù)組時(shí) ， 數(shù)組名 、 類型 、 維數(shù)以及下標(biāo)的范圍 ， 應(yīng)與定義時(shí)一致 。 數(shù)組由一組類型相同的元素組成 ， 一維數(shù)組元素的基本引用方式如下： 數(shù)組名 (下標(biāo)表達(dá)式 ) 如 ， a (0)， a (i+1)等 。一個(gè)數(shù)組占有一串連續(xù)的存儲單元 。 ?規(guī)定數(shù)組元素中下標(biāo)表達(dá)式的值必須是整數(shù) ， 下標(biāo)值的默認(rèn)下限是 0，上限是定義中的下標(biāo)表達(dá)式的值 。 注意 ， 下標(biāo)表達(dá)式的值不得越界 。 例如 ， 對于以上定義的 a數(shù)組 ， 不能用 a代表 a(0)到 a(8)這 9個(gè)元素 . 利用循環(huán)結(jié)構(gòu)可以給已定義的數(shù)組賦初值 。 Dim a（ 3） As Integer For i=0 To 3 a(i) =InputBox(輸入 a( amp。 )的值 ) ’ 運(yùn)行時(shí)顯示： “ 輸入 a(1)的值 ” ， 其中隨著 i值的變化 ， 提醒用戶輸入相應(yīng)元素 Next i 對于大量的數(shù)據(jù)輸入 ， 為了便于編輯 ， 一般不用 InputBox函數(shù) ，而用文本框再加某些技術(shù)處理 。 Option Explicit Private Sub Command1_Click( ) Dim n(1 To 3) As Integer Dim i As Integer For i = 1 To 3 n(i) = InputBox(請輸入第 amp。 個(gè)元素 ) For i = 1 To 3 Print n (。 )=。 若輸入 5， 10， 15三個(gè)值 ， 則窗體上顯示的輸出結(jié)果是： n(1)=5 n(2)=10 n(3)=15 1． If...Then...Else語句 (多分支結(jié)構(gòu) ) 這種語句為多分支選擇結(jié)構(gòu) 。 語句形式如下： If 表達(dá)式 1 Then …… If 表達(dá)式 2 Then …… End If …… Else …… End If 使用條件語句嵌套時(shí) ， 一定要注意 If與 Else， If與 End If的配對關(guān)系 。 例如： 0時(shí)至 12時(shí) ， 顯示 “ 早上好 ” 利用窗體裝載 (Load)事件 ， 采用 Print直接在窗體上輸出結(jié)果 。 在循環(huán)體內(nèi) ， 數(shù)組元素用循環(huán)控制變量 i 作下標(biāo) ， i值的不同表示數(shù)組元素不同 。 例如：若 i=3， 則 n(i2)的值為 5。 例如： n(+)的值是 15； n()的值是 5。 Option Base 1 Private Sub Command1_Click( ) Const n = 20 Dim Score(n) As Integer Dim Max, i, code As Integer Max = 0 For i = 1 To n Score(i) = InputBox(請輸入第 amp。 個(gè)學(xué)生的成績 ) If (Score(i) Max) Then Max = Score(i) code = i End If Next i Print Print 最高分是 :。 code End Sub 【 例 52】 將一個(gè)數(shù)組中的值按逆序重新存放 。 如原來順序?yàn)?10,3,4,5,6,2， 按要求應(yīng)改為 2,6,5,4,3,10。 Str(i) amp。 。 。 類似這種數(shù)據(jù)結(jié)構(gòu) ， 可用二維數(shù)組形式描述 。 二維數(shù)組 數(shù)組說明格式 1： 〈 說明符 〉 〈 變量名 〉 〔〈 下標(biāo) 1, 下標(biāo) 2〉〕 [As〈 類型 〉 ] 其中： ?“ 說明符 ” 為 Visual Basic的保留字 。 ?“ 變量名 ” 是數(shù)組名 ， 是用戶自定義的標(biāo)識符 。 ?“ 類型 ” 是指數(shù)組元素的類型 。 例如： Dim a(8,8) As Integer 在這里 ， Integer是類型名 ， a（ 8， 8 )就是數(shù)組說明符 。 ?括號中的 8,8規(guī)定了 a數(shù)組為含有兩個(gè)下標(biāo)的二維數(shù)組 ， 它們的排列圖52所示 。 如下標(biāo)個(gè)數(shù)有多個(gè) ， 則此數(shù)組為多維數(shù)組 。 例： Dim A（ 3,3） ,i,j As Integer ’數(shù)組的每個(gè)元素是 0 For i=0 To 3 For j=0 to 3 A(I,j)=0 Next j Next i 2． 數(shù)組的輸入 可通過 InputBox函數(shù)輸入數(shù)組中某個(gè)元素的值 ， 此方法適合輸入少量數(shù)據(jù) 。 Str(i) + Chr(44) + Str(j) amp。 Option Explicit Private Sub Command1_Click( ) Dim A(2, 2) As Integer Dim i, j As Integer For i = 0 To 2 For j = 0 To 2 A(i, j) = InputBox(請輸入 A( amp。 , amp。 )) Next j Next i For i = 0 To 2 For j = 0 To 2 Print A(。 j。 A(i, j) Next j Next i End Sub 程序運(yùn)行后，單擊命令按鈕，執(zhí)行事件過程 Command_Click。 在循環(huán)體內(nèi) ， 用循環(huán)控制變量 i 作數(shù)組元素的第一維下標(biāo) ， 用循環(huán)控制變量 j作數(shù)組元素的第二維下標(biāo) ， i， j值的不同表示數(shù)組元素的不同 。 設(shè) A， B， C分別為 m p,p n和 m n的矩陣 ， 按矩陣乘法的定義求 C。 程序?yàn)椋? Option explicit Private Sub Command1_Click() Const m = 4, p = 3, n = 2 Dim a(1 To m, 1 To p) As Integer Dim b(1 To p, 1 To n) As Integer Dim c(1 To m, 1 To n) As Integer Dim i As