【正文】 異常類 說明 Exception 所有異常類的基礎(chǔ)類 ArgumentException 變量異常的基礎(chǔ)類 常見異常類 結(jié)構(gòu)化異常處理 180 異常類 說明 ArithmetException 在算法、強(qiáng)。 結(jié)構(gòu)化異常處理 177 Try = _ (“C:\”) Catch ex As Exception MsgBox( amp。 This line is executed no matter what. End Try End Sub 例如： 結(jié)構(gòu)化異常處理 176 例 此例在窗口的標(biāo)簽裝入圖形文件(“C:\”)，若沒有該文件，則顯示相關(guān)信息。 Catch the error. MsgBox() 39。 Set up structured error handling. x /= y 39。 結(jié)構(gòu)化異常處理 175 Public Sub TryExample() Dim x As Double = 5 39。 ② Catch When 條件表達(dá)式 是基于任何條件表達(dá)式的過濾，用于檢測特定的錯(cuò)誤號。 174 說明： (1) Catch篩選器有三種情況。需要程序設(shè)計(jì)人員仔細(xì)分析程序，在可疑的代碼處通過插入斷點(diǎn)和逐語句跟蹤，檢查相關(guān)變量的值，來分析錯(cuò)誤的原因。 ? 例如，運(yùn)算符使用不正確、語句次序不對、循環(huán)語句的起始值、終值不正確等。當(dāng)程序中出現(xiàn)這種錯(cuò)誤時(shí) ,程序會(huì)自動(dòng)中斷 ,并給出有關(guān)的錯(cuò)誤信息。 如： 錯(cuò)誤類型 170 2. 運(yùn)行時(shí)錯(cuò)誤 ? 運(yùn)行時(shí)錯(cuò)誤指編輯程序代碼時(shí)未發(fā)現(xiàn)語法錯(cuò)誤，運(yùn)行程序時(shí)，發(fā)生錯(cuò)誤。 169 1. 語法錯(cuò)誤 當(dāng)用戶在代碼窗口中編輯代碼時(shí)， 會(huì)自動(dòng)對程序進(jìn)行語法檢查，當(dāng)發(fā)現(xiàn)錯(cuò)誤時(shí)，立即提示用戶錯(cuò)誤原因。 167 過程 Function CountF(ByVal s as string ) as integer Dim i%, k% , c$ For i=1 to Len(s) C=Mid(s, i, 1) ?取第 i個(gè)位置上的字符 If Asc(c)0 Then k=k+1 ?漢字?jǐn)?shù)加 1 Next CountF=k End Function Sub CountP(ByVal s as string, ByRef Count as Integer ) Dim i%, c$ For i=1 to Len(s) C=Mid(s, i, 1) ?取第 i個(gè)位置上的字符 If Asc(c)0 Then count+=1 Next End Sub 演示 168 程序調(diào)試 ? 、有效的調(diào)試程序的工具。 分析 ： ，字符以 Unicode碼存放，每個(gè)西文字符和漢字字符占兩個(gè)字節(jié)。系統(tǒng)默認(rèn)是值傳遞。 過程 164 過程 3. 參數(shù)傳遞 在調(diào)用過程時(shí)，必須把實(shí)參傳遞給形參，形參有值后才能執(zhí)行過程中代碼。（略講） 過程 159 1. 函數(shù)過程的定義和調(diào)用 (1) 自定義函數(shù)過程 過程 Function 過程名 ( 形參聲明表） [ As 類型 ] 局部變量或常量的定義 語句塊 Return 表達(dá)式 或 函數(shù)名 =表達(dá)式 End Function [As 類型 ]省寫，系統(tǒng)默認(rèn)函數(shù)為 Double類型 160 (2) 函數(shù)過程的調(diào)用 形式如下： 變量 = 函數(shù)過程名（ [實(shí)參列表 ]） 或 If (函數(shù)名 ( 參數(shù)列表 ) / 3) = 表達(dá)式 Then …… 過程 161 2. 子過程的定義和調(diào)用 (1)子過程的定義 過程 Sub 過程名 ( 形參聲明表） 局部變量或常量的定義 語句塊 End Sub 過程體 162 過程 (2) 子過程的調(diào)用 形式如下 ： 子過程名（ [實(shí)參列表 ]） 或 Call 子過程名（ [實(shí)參列表 ]） 163 (3) Sub過程與函數(shù)過程的區(qū)別 ① 一般來說，當(dāng)只有一個(gè)返回值時(shí)，使用函數(shù)過程比較直觀；當(dāng)有多個(gè)返回值或無返回值時(shí)，習(xí)慣用 Sub過程，返回值作為形參（地址傳遞）。 158 3. 屬性過程 ： 以“ Property”保留字開始的為屬性過程，用于在制作 Active控件時(shí)為對象添加屬性。 2. 函數(shù)子過程：以“ Function”保留字開始的為函數(shù)過程，用戶自定義的函數(shù)，函數(shù)名有返回值。 “ ” ? 將 a((9)加入到文本框 End Sub 數(shù)組 157 過程 P200 ? 自定義過程為以下幾種： 1. Sub子過程：以“ Sub”保留字開始， End Sub結(jié)束，完成一定的操作功能。 “ ” Next I amp。 156 For i=0 to n1 mini=i for j=i+1 to n If a(mini)a(j) then mini=j Next j temp=a(i):a(i)=a(mini):a(mini)=temp amp。 str1, , 結(jié)果 ) End Sub 數(shù)組 155 Private Sub Form1_Load(…)… Dim i , j, n, a(9) ， temp As Integer Randomize() ?為隨機(jī)函數(shù)的產(chǎn)生不同種子 For i = 0 To 9 a(i) = int( Rnd()*(10030+1 ) + 30 ) Next n=Ulound(a) ?獲取數(shù)組的下標(biāo)上界 =“” 數(shù)組 例 ：數(shù)組排序。 a(i).Tostring amp。 “個(gè)數(shù)值” , 數(shù)組輸入 , 0) Next 數(shù)組 例如 ：從鍵盤接受 4個(gè)數(shù)到數(shù)組中，然后顯示數(shù)組各元素的值。例如： dim a1, score(3) as integer A=Ubound(score) ?為 3 數(shù)組 153 Private Sub Form1_Load(…)… Dim i, a(3) As Integer Dim str1 As String = For i = 1 To 4 a(i1) = InputBox(“輸入第” amp。語句格式為： ReDim [Preserve] 數(shù)組名 (下標(biāo) 1上界 [,下標(biāo) 2上界 ]) 數(shù)組 例 ： Dim a(5) As Integer … Redim a(10) 152 說明： 1. 關(guān)鍵字 Preserve表示保留數(shù)組中內(nèi)容，否則不保留。 方法 1： Dim sum , j As Integer Sum=0： j=0 Do Sum + = j: j+=2 If j100 Then Exit Do Loop =sum 程序控制結(jié)構(gòu) 146 方法 2： Dim sum As Integer Dim j As Integer Sum=0： j=0 Do While j=100 Sum + = j: j+=2 Loop =sum 方法 3： Dim sum, j As Integer Sum=0： j=0 Do Until j100 Sum + = j: j+=2 Loop =sum 程序控制結(jié)構(gòu) 147 方法 4： Dim sum As Integer Dim j As Integer Sum=0： j=0 Do Sum + = j: j+=2 Loop While j=100 =sum 方法 5： Dim sum, j As Integer Sum=0： j=0 Do Sum + = j: j+=2 Loop Until j100 =sum 程序控制結(jié)構(gòu) 148 4. 其它控制輔助語句 ： Goto、 Exit ( Exit For、 Exit Do、 Exit Sub、Exit Function ) End(End if 、 End Select、 End Sub、End Function、 End Structure等 ) 程序控制結(jié)構(gòu) 149 數(shù)組 1. 數(shù)組的聲明與初始化 (1) 聲明一維數(shù)組形式 : Dim 數(shù)組名 (下標(biāo)上界 ) [As 類型 ] (2)聲明二維數(shù)組形式 : Dim 數(shù)組名 (下標(biāo) 1上界 ,下標(biāo) 2上界 ) [As 類型 ] 注意 : 數(shù)組下標(biāo)從 0開始算起 . 例： Dim a(4) as integer 聲明了一個(gè)含有 5個(gè)元素的一維數(shù)組。 ? 語句中的 [While | Until 條件 ]省略，表示循環(huán)永遠(yuǎn)為 True 。 語句形式如下： 形式 1： Do[ While | Until 條件 ] 語句塊 [Exit Do] 語句塊 Loop 形式 2： Do 語句塊 [Exit Do] 語句塊 Loop [While|Until 條件 ] 程序控制結(jié)構(gòu) 144 說明： ? 形式 1為先判斷后執(zhí)行，有可能一次也不執(zhí)行；形式 2是先執(zhí)行后判定，至少執(zhí)行一次。 語句形式如下： 程序控制結(jié)構(gòu) For 循環(huán)變量 =初值 To 終值 [Step 步長 ] 語句塊 [Exit For] 語句塊 Next [循環(huán)變量 ] 142 例如 ：計(jì)算 2+4+…+98+100 的總和。 程序控制結(jié)構(gòu) 注：不能寫成 Case =500 138 例如： Dim ans String Ans=InputBox(“請輸入班級代號：” ) Select case Ans Case “a” , ”A” =“計(jì)算機(jī)班” Case “b” , ”B” =“電子班” 程序控制結(jié)構(gòu) 139 Case “c” , ”C” =“網(wǎng)絡(luò)規(guī)劃班” Case Else =“輸入錯(cuò)誤” End Select 程序控制結(jié)構(gòu) 140 3. 循環(huán)結(jié)構(gòu) ? 循環(huán)語句有兩種形式 : Do …Loop (條件型 )循環(huán) For…Next (計(jì)數(shù)型 )循環(huán)。 Case 100 To 300 : 對比值是否為 100~300之間的數(shù)值。 Case “a”, “A” : 對比值是否為字符 A或 a。 程序控制結(jié)構(gòu) 137 ? “表達(dá)式列表” 可以是下列對比值： Case 50 : 對比值是否為 50。 程序控制結(jié)構(gòu) 135 表達(dá)式列表 2 語句塊 1 語句塊 2 語句塊 n 語句塊 n+1 … 表達(dá)式列表 1 T T T F 表達(dá)式列表 n F F … 程序控制結(jié)構(gòu) 136 說明： ? 變量或表達(dá)式 ：可以是數(shù)值或字符串變量或表達(dá)式。若用一行簡單形式表示，則只能是一個(gè)語句；或 一行寫若干語句，但用冒號分隔 。 127 ① If…Then 語句（單分子結(jié)構(gòu)） 形式： If 表達(dá)式 Then 語句 If 表達(dá)式 Then