【正文】 ) + 1 = amp。 Code amp。 Space(3) End If Letter = InputBox(請(qǐng)輸入一個(gè)大寫字母 (輸入小數(shù)點(diǎn)結(jié)束程序 )： ) Loop = amp。 . End Sub 譯碼算法如下： Code=ASC(Letter)ASC(A)+1 （ 3）循環(huán)嵌套 所謂循環(huán)嵌套就是在一個(gè)循環(huán)結(jié)構(gòu)的循環(huán)體內(nèi)包含另一個(gè)或多個(gè)循環(huán)結(jié)構(gòu)，也稱為多重循環(huán)。 對(duì)于循環(huán)的嵌套，要注意以下事項(xiàng)： 1)內(nèi)循環(huán)變量與外循環(huán)變量不能同名； 2)外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉； 3)不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，也不能從外循環(huán)轉(zhuǎn)向內(nèi)循環(huán)， 反之則可以。 【 例 66】 編寫一個(gè)程序輸出九九乘法表。該程序窗體界面有 1個(gè)命令按鈕 Button1和 1個(gè)文本框 TextBox1，需將 TextBox1的 Multiline屬性設(shè)置為 True，并拖至足夠大。 For m = 1 To 9 For n = 1 To 9 k = m * n If k = 10 Then = amp。 k amp。 Else = amp。 k amp。 EndIf Next n = amp。 vbCrLf Next m 外重循環(huán)執(zhí)行一次，內(nèi)重循環(huán)執(zhí)行一遍。 數(shù)組 1．?dāng)?shù)組的定義 一維數(shù)組定義格式： Dim 數(shù)組名（下標(biāo)上界） As 類型名稱 注意：下標(biāo)下界為 0， 一維數(shù)組的大小為上界 +1。 無(wú)數(shù)據(jù)類型表示 Object類 。 例如： Dim A (10) As Integer 定義了一個(gè)一維數(shù)組 ， 該數(shù)組的名字為 A， 類型為 Integer(整型 )， 該數(shù)組由 11個(gè)數(shù)組元素組成 ， 即 A (0) A (10)） 二維數(shù)組定義格式： Dim 數(shù)組名 （ 第一維下標(biāo)上界 ， 第二維下標(biāo)上界 ） As 類型名稱 例如： Dim Page(1,2) As Integer 定義了一個(gè)二維數(shù)組 ， 該數(shù)組的名字為 Page， 類型為 Integer(整型 )， 共 6個(gè)數(shù)組元素 ， 分別是： Page(0,0)、 Page(0,1)、 Page(0,2) Page(1,0)、 Page(1,1)、 Page(1,2) 2．?dāng)?shù)組的初始化和引用 （ 1）數(shù)組的初始化 1)一維數(shù)組元素初始化格式如下： Dim 數(shù)組名 () As 類型名稱 ={值 1,值 2,… 值 n} 注意 :，所以圓括號(hào)中必須為空，根據(jù)實(shí)際初值的個(gè)數(shù)確定數(shù)組的上界。 例如： Dim Season() As String = {春天 ,夏天 ,秋天 ,冬天 } 定義了一個(gè)字符串?dāng)?shù)組 Season該數(shù)組有 4個(gè)初值，分別為： Season(0)=“春天 ” 、 Season(1)=“夏天 ” 、 Season(2)=秋天 、 Season(3)=冬天 2）二維數(shù)組元素初始化格式如下： Dim 數(shù)組名（ ,） As 類型名稱 ={{第一行值 },{第二行值 },… {第 n行值 }} 例如： Dim AI(,) As Integer={{1,2,3},{4,5,6}} 定義了一個(gè)二維數(shù)組 AI，內(nèi)層花括號(hào)的個(gè)數(shù)表示數(shù)組的行數(shù)，每個(gè)內(nèi)層花括號(hào)中數(shù)值個(gè)數(shù)表示數(shù)組的列數(shù)，該語(yǔ)句定義了一個(gè) 2行 3列的數(shù)組，即 AI(2,3)。各元素的值分別為： AI(0,0)=1 AI(0,1)=2 AI(0,2)=3 AI(1,0)=4 AI(1,1)=5 AI(1,2)=6 （ 2）數(shù)組元素的引用 只能逐個(gè)引用數(shù)組元素而不能一次引用整個(gè)數(shù)組，數(shù)組元素的表示形式如下。 數(shù)組名 (下標(biāo) 1[,下標(biāo) 2… ]) 其中，下標(biāo)可以是整型常量或整型表達(dá)式，例如 : A(5)、Season(2)、 AI(1,1)、 AI(1+1,2)。 數(shù)組元素可以出現(xiàn)在表達(dá)式中，也可以被賦值。 【 例 67】 設(shè)計(jì)一個(gè)應(yīng)用程序，使用數(shù)組對(duì)新進(jìn)榜歌曲按輸入順序逆序排列并顯示結(jié)果。該程序窗體界面有 2個(gè)標(biāo)簽 Label1和 Label1個(gè)命令按鈕 Button1 。 Private Sub Button1_Click(… ) Handles Const n = 6 39。聲明常量 ,歌曲數(shù)目為 6首 Dim i As Integer, j As Integer 39。i為循環(huán)控制變量 , i和 j為數(shù)組下標(biāo)變量 Dim t As String 39。t用于逆序排列的中間變量 Dim Song(n 1) As String 39。聲明字符串?dāng)?shù)組變量，下標(biāo)上界為 n1 39。為數(shù)組元素賦值，建立歌曲榜單，并顯示在標(biāo)簽 Label1上 For i = 0 To n 1 Song(i) = InputBox(請(qǐng)輸入歌曲名稱： ) = amp。 amp。 Song(i)圖 619程序運(yùn)行結(jié)果 Next i 39。采用首尾元素對(duì)換完成逆序排列 For i = 0 To (n 1) \ 2 j = n 1 i t = Song(i) Song(i) = Song(j) Song(j) = t Next i 39。在標(biāo)簽 Label2上輸出逆序排列結(jié)果 For i = 0 To n 1 = amp。 amp。 Song(i) Next i End Sub 【 例 68】 編寫程序 ， 要求能輸入 4名學(xué)生的英語(yǔ)、數(shù)學(xué)、政治、物理四門課的考試成績(jī)。計(jì)算并輸出每名學(xué)生的平均分。 Private Sub Form1_Click(… ) Handles Const StuNum = 4, CourseNum = 4 Dim StuGrade(StuNum 1, CourseNum 1) As Single 39。StuGrade成績(jī)二維數(shù)組 Dim AveGrade(StuNum 1) As Single 39。AveGrade平均成績(jī)一維數(shù)組 Dim CurrentGrade As String Dim i As Integer, j As Integer, k As Integer = amp。 學(xué)號(hào) amp。 英語(yǔ) _圖 620 程序運(yùn)行結(jié)果 amp。 數(shù)學(xué) amp。 政治 amp。 物理 amp。 平均 amp。 vbCrLf For i = 0 To StuNum 1 k = 0 = amp。 i amp。 For j = 0 To CourseNum 1 39。輸入一個(gè)人各門課成績(jī) , 并計(jì)算和，輸出成績(jī) CurrentGrade = 請(qǐng)輸入 amp。 i + 1 amp。 號(hào)學(xué)生第 _ amp。 j + 1 amp。 門課程的成績(jī) StuGrade(i, j) = InputBox(CurrentGrade) k = k + StuGrade(i, j) = amp。 StuGrade(i, j) amp。 Next j 39。計(jì)算平均成績(jī)并輸出 AveGrade(i) = k / 4 = amp。 AveGrade(i) amp。 vbCrLf Next i End Sub 子程序過(guò)程與函數(shù)過(guò)程 通用過(guò)程分為兩類：子程序過(guò)程和函數(shù)過(guò)程。子程序過(guò)程又稱為Sub過(guò)程，函數(shù)過(guò)程稱為 Function過(guò)程或自定義函數(shù)。 Sub過(guò)程與自定義函數(shù)的區(qū)別在于： （ 1） 過(guò)程較為靈活 ， 可以帶參數(shù) ， 也可以不帶參數(shù) ， 而且不返回值 。 （ 2） 函數(shù)通常都要求帶參數(shù)，并有返回值。 1． Sub過(guò)程的定義和調(diào)用 （ 1） Sub過(guò)程的定義 定義 Sub過(guò)程的格式如下： [Private|Public] [Static] Sub 過(guò)程名 ([形式參數(shù)表 ]) 局部變量和常量聲明 語(yǔ)句塊 [Exit Sub] 語(yǔ)句塊 End Sub 過(guò)程必須以 Sub開始 使用說(shuō)明： 1） 過(guò)程必須以 Sub開始 ， EndSub結(jié)束 。 Public（ 默認(rèn) ） 為全局 （ 公有 ） 過(guò)程 ， 全局有效； Private 為局部 （ 私有 ） 過(guò)程 ， 本模塊有效； Static為靜態(tài)過(guò)程 （ 每次調(diào)用該過(guò)程后 ， 都將保留其中的局部變量值 ） 。 2） 形式參數(shù) （ 簡(jiǎn)稱形參 ） 是過(guò)程與主程序 （ 調(diào)用過(guò)程的程序 ） 之間進(jìn)行數(shù)據(jù)傳遞的變量 。 多個(gè)參數(shù)之間用逗號(hào)分隔 。 形參有兩種類型 ， 格式如下： ByVal | ByRef 參數(shù)名 [()] [As 數(shù)據(jù)類型 ] 其中： ByVal表示該參數(shù)以傳值的方式傳遞數(shù)據(jù) （ 值傳遞 ） 。 ByRef表示以傳地址的方式傳遞數(shù)據(jù) 。 3） 過(guò)程中說(shuō)明的變量和常量?jī)H在該過(guò)程中有效 。 4） Exit Sub表示退出過(guò)程 ， 返回到調(diào)用過(guò)程的主程序的下一個(gè)語(yǔ)句繼續(xù)執(zhí)行 。 （ 2） Sub過(guò)程的建立 通用過(guò)程不屬于任何一個(gè)事件過(guò)程 ， 因此不能用事件過(guò)程定義 。通用過(guò)程可以在窗體 、 模塊或類中建立 , 由程序員在程序代碼窗口直接輸入整個(gè)過(guò)程 ， 包括框架 。 （ 3） Sub過(guò)程的調(diào)用 Sub過(guò)程建立后 ， 只有通過(guò)調(diào)用 ， Sub過(guò)程才能執(zhí)行 。 調(diào)用 Sub過(guò)程的語(yǔ)句格式如下： [Call] 過(guò)程名 ([實(shí)在參數(shù)表 ]) 過(guò)程調(diào)用時(shí)的參數(shù)稱為實(shí)在參數(shù) （ 簡(jiǎn)稱實(shí)參 ） 。 實(shí)在參數(shù)的個(gè)數(shù) 、類型以及前后次序必須和形參一致 。 另外 ， 調(diào)用過(guò)程時(shí)可省略關(guān)鍵字Call。 實(shí)參可以是用逗號(hào)分隔的變量 、 常數(shù) 、 表達(dá)式等 。 程序運(yùn)行時(shí) ， 將實(shí)參按次序一一對(duì)應(yīng)形參 ， 即：將實(shí)參的值或地址傳送給對(duì)應(yīng)的形參 ，而后在過(guò)程中進(jìn)行相應(yīng)的處理 。 【 例 69】 編寫一計(jì)算階乘的過(guò)程 ， 并在主程序中調(diào)用 。 Public Sub JC(ByVal x, ByRef p) Dim k As Integer p = 1 For k = 1 To x p = p *k Next K End Sub Private Sub Form1_Click(… ) Handles Dim c As Long, m As Integer m = 10 Call JC(m, c) MsgBox (“10!=” amp。 c) End Sub ?JC(x,p)是個(gè)通用過(guò)程，形參 x傳值，將接受調(diào)用程序傳遞來(lái)的數(shù)據(jù)（要計(jì)算階乘的具體數(shù)值）；形參 p是傳址，它將接受調(diào)用程序傳來(lái)的實(shí)參變量地址，可以將計(jì)算結(jié)果傳送回調(diào)用程序。 ?事件過(guò)程 Form1_Click中調(diào)用過(guò)程 JC(m,c)計(jì)算階乘， m=10，對(duì)應(yīng)形參 x，即計(jì)算 10階乘；變量 c對(duì)應(yīng)形參 p，它接受過(guò)程 JC傳送回的計(jì)算結(jié)果。用MsgBox報(bào)告計(jì)算結(jié)果。 JC(ByVal x as integer, ByRef p as long) 2． 自定義函數(shù)的定義和調(diào)用 （ 1）自定義函數(shù)的定義 定義格式如下： [Private|Public] [Static] Fuction 函數(shù)名 ( [參數(shù)表 ]) [As 類型 ] 局部變量和常量聲明 語(yǔ)句塊 [函數(shù)名 =返回值 ] [Exit Fuction] 語(yǔ)句塊 函數(shù)名 =返回值 End Function 使用說(shuō)明： （ 1） 在建立自定義函數(shù)時(shí) ， 與過(guò)程不同的是在參數(shù)表后有一選擇項(xiàng) “ As類型 ” ， 它是自定義函數(shù)返回值的數(shù)據(jù)類型 ， 若類型缺省 ， 則為 Object類型 。 （ 2） 在函數(shù)體內(nèi)必須將函數(shù)的計(jì)算結(jié)果值賦予函數(shù)名 ， 這是函數(shù)返回值所必需的 。 （ 3） 函數(shù)參數(shù)表的具體格式與過(guò)程參數(shù)相同 。 不論有無(wú)參數(shù) ，