【正文】 sume 語(yǔ)句標(biāo)號(hào) |行號(hào) 語(yǔ)句 應(yīng)用 ： 【 例 】 對(duì)例 ，編寫(xiě)錯(cuò)誤處理程序，處理當(dāng)除數(shù)為 0時(shí)，提示用戶(hù)重新輸入除數(shù)。 2022/2/16 清華大學(xué)出版社 71 Resume語(yǔ)句應(yīng)用： 例 】 編寫(xiě)錯(cuò)誤處理程序，用于處理軟驅(qū)中無(wú)軟盤(pán)時(shí)的錯(cuò)誤。若標(biāo)號(hào)為 0， 則表示終止程序的執(zhí)行 。 在發(fā)生錯(cuò)誤時(shí)，程序跳轉(zhuǎn)到此標(biāo)號(hào)處，開(kāi)始執(zhí)行 MsgBox End Sub 2022/2/16 清華大學(xué)出版社 70 On Error GoTo 標(biāo)號(hào) 〈 可能出錯(cuò)的語(yǔ)句 〉 〈 Exit Function（ Sub） 〉 〈 標(biāo)號(hào)： 〉 [〈 錯(cuò)誤處理 〉 ] Resume [語(yǔ)句標(biāo)號(hào) |行號(hào) | Next] Resume語(yǔ)句有 3種形式： （ 1） Resume： 返回到出錯(cuò)語(yǔ)句處重新執(zhí)行 。 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = Val(InputBox(請(qǐng)輸入被除數(shù) , 除法 )) b = Val(InputBox(請(qǐng)輸入除數(shù) , 除法 )) On Error GoTo Error c = a / b Print c Exit Sub 39。 2022/2/16 清華大學(xué)出版社 68 捕獲錯(cuò)誤語(yǔ)句 錯(cuò)誤處理程序指定的必須在同一過(guò)程中， On Error語(yǔ)句的語(yǔ)法格式有兩種形式： 1. 用法一 On Error GoTo 標(biāo)號(hào) 〈 可能出錯(cuò)的語(yǔ)句 〉 〈 Exit Function（ Sub） 〉 〈 標(biāo)號(hào)： 〉 [〈 錯(cuò)誤處理 〉 ] 該用法是在對(duì)錯(cuò)誤不需要特別處理 ， 只是顯示一下提示信息以告訴用戶(hù)出錯(cuò)的原因時(shí)使用 。 2022/2/16 清華大學(xué)出版社 67 Err對(duì)象的屬性有： Number:錯(cuò)誤號(hào) Description:錯(cuò)誤描述 HelpFile:該錯(cuò)誤相應(yīng)的幫助文件 HelpContex:該錯(cuò)誤幫助說(shuō)明的主題號(hào) Source:錯(cuò)誤來(lái)源 VB提供的 Error函數(shù)用于返回錯(cuò)誤信息，其語(yǔ)法如下： Error(錯(cuò)誤號(hào) ) 例如在 VB的立即窗口中鍵入如下代碼： Print Error (6) 將顯示 “ 溢出 ” 的錯(cuò)誤信息 。按上面的方法重新運(yùn)行，觀(guān)察監(jiān)視窗口的變化 2022/2/16 清華大學(xué)出版社 66 錯(cuò)誤捕獲及處理 錯(cuò)誤處理步驟 在 VB中．要增加應(yīng)用程序的處理錯(cuò)誤的能力，需要做以下兩步工作： （ 1）設(shè)置錯(cuò)誤陷阱 （ 2）編寫(xiě)錯(cuò)誤處理程序 VB提供了 0n Error GoTo語(yǔ)句設(shè)置錯(cuò)誤陷阱，捕捉錯(cuò)誤。 通過(guò)調(diào)試，我們得出結(jié)論：要使用形參數(shù)返回過(guò)程的運(yùn)算結(jié)果，不能使用按數(shù)值傳遞方式（ ByVal），要使用按地址傳遞方式（ ByRef）。同時(shí)我們注意到，作為與形參數(shù) c對(duì)應(yīng)的實(shí)參數(shù) z的數(shù)值仍然為 0。 2022/2/16 清華大學(xué)出版社 65 （ 5）按 F8鍵繼續(xù)以逐語(yǔ)句方式運(yùn)行程序，此時(shí)過(guò)程 sum執(zhí)行結(jié)束，返回到主程序 Command1_Click()，過(guò)程 sum中的變量重新顯示為“ 溢出上下文 ” 。 2022/2/16 清華大學(xué)出版社 64 （ 3）按 F8鍵以逐語(yǔ)句方式運(yùn)行程序，此時(shí)，程序轉(zhuǎn)入到 sum過(guò)程執(zhí)行，注意各監(jiān)測(cè)表達(dá)式的值的變化情況，如下圖所示。 （ 2）運(yùn)行程序，單擊 【 計(jì)算 】 按鈕，當(dāng)程序中斷后，打開(kāi)【 監(jiān)視 】 窗口，向 【 監(jiān)視 】 窗口添加監(jiān)視表達(dá)式， x、 y、 z、a、 b、 c；注意此時(shí)各監(jiān)測(cè)表達(dá)式的值。 Sub sum (ByVal a ％ , ByVal b ％ , ByVal c As Integer) Dim i As Integer Dim s As Integer For i = a To b s = s + i Next c = s End Sub 2022/2/16 清華大學(xué)出版社 63 ? 調(diào)試步驟： （ 1）將斷點(diǎn)設(shè)置在主程序的“ Call sum(x, y, z)”語(yǔ)句處。 定義 sum過(guò)程： 形參數(shù) a， b表示閉區(qū)間的上下限，參數(shù) c用于向主程序傳遞運(yùn)算的最終結(jié)果。 2022/2/16 清華大學(xué)出版社 62 雙擊 【 計(jì)算 】 按鈕，編寫(xiě)程序代碼： Private Sub Command1_Click() Dim x As Integer， y As Integer， z As Integer x = Val() y = Val() Call sum(x, y, z) ? 調(diào)用過(guò)程 sum ，通過(guò)實(shí)參數(shù) z返回結(jié)果 = Str(z) End Sub 運(yùn)行程序，分別在文本框 Text1和 Text2內(nèi)輸入 1和 5；單擊 【 計(jì)算 】 ，我們注意到在 Text3內(nèi)顯示的結(jié)果為 0。在窗體上放置文本框 Text Text2，分別用于輸入一個(gè)整數(shù)閉區(qū)間的上下限，當(dāng)單擊 【 計(jì)算 】 按鈕時(shí)，Text3中顯示該閉區(qū)間上所有整型數(shù)據(jù)的累加和。 2022/2/16 清華大學(xué)出版社 61 調(diào)試示例 VB提供的各種調(diào)試工具，不僅可以幫助用戶(hù)檢查程序的邏輯錯(cuò)誤，而且還可以幫助用戶(hù)理解程序的執(zhí)行過(guò)程，如過(guò)程（函數(shù)）的參數(shù)傳遞方式。 （ 3）在中斷模式下，可以在立即窗口中使用 Print方法輸出當(dāng)前變量或控件的值，也可以對(duì)當(dāng)前變量或控件的屬性賦值。 （ 2）在應(yīng)用程序中，使用 語(yǔ)句把信息輸入到立即窗口。 思考： 判斷 1＋ 2＋ …… ＋ 100的累加結(jié)果在 i＝？時(shí)累加值超過(guò) 4000，使用【 監(jiān)視窗口 】 如何完成？ 2022/2/16 清華大學(xué)出版社 60 ?立即窗口 使用立即窗口可以檢查某個(gè)屬性或變量的值，還可以對(duì)表達(dá)式求值、為變量或?qū)傩再x值。這種方法不需要在代碼區(qū)設(shè)置斷點(diǎn)。 2022/2/16 清華大學(xué)出版社 59 ? 用法一： 例：通過(guò) 【 監(jiān)視 】 窗口對(duì) 【 例 】 進(jìn)行調(diào)試，檢測(cè)變量 s和 i的值的變化情況。 打開(kāi)本地窗口的步驟： 1）設(shè)置斷點(diǎn)后，啟動(dòng)程序； 2）程序被中斷后，單擊 【 視圖 】 菜單中的 【 本地窗口 】 選項(xiàng)或單擊 【 調(diào)試 】 工具欄的 【 本地窗口 】 按鈕。 ? 運(yùn)行到光標(biāo)處 在對(duì)程序進(jìn)行跟蹤時(shí)，想略過(guò)不感興趣的部分代碼（如次數(shù)很多循環(huán)語(yǔ)句），這時(shí)可以把光標(biāo)設(shè)置在需要停止運(yùn)行的代碼上，然后按下快捷鍵 Ctrl+F8或選擇 【 調(diào)試 】 菜單的 【 運(yùn)行到光標(biāo)處 】選項(xiàng)。對(duì)于較復(fù)雜的程序的調(diào)試，需要使用VB提供的調(diào)試窗口來(lái)完成。 ? 跳出 當(dāng)使用逐語(yǔ)句方式進(jìn)入到一個(gè)過(guò)程中，如果確認(rèn)該過(guò)程的語(yǔ)句絕對(duì)沒(méi)有問(wèn)題，可以單擊 【 調(diào)試 】 工具欄的 【 跳出 】 按鈕或按下快捷鍵Ctrl+Shift+F8，從當(dāng)前過(guò)程中跳出，去執(zhí)行過(guò)程調(diào)用者的下一條語(yǔ)句。操作方法：?jiǎn)螕?“調(diào)試 ”工具欄上的 “逐過(guò)程 ”按鈕。也可以用熱鍵 F8來(lái)實(shí)現(xiàn)單步執(zhí)行程序，或者在 【 調(diào)試 】 菜單上選取 【 逐語(yǔ)句 】 選項(xiàng)。 例：驗(yàn)證 【 例 】 的運(yùn)行結(jié)果錯(cuò)在何處 ？ 2022/2/16 清華大學(xué)出版社 56 ? 逐語(yǔ)句執(zhí)行 在調(diào)試工具欄上有一個(gè)單步執(zhí)行程序的按鈕。 （ 1）在程序代碼區(qū)人工設(shè)定一個(gè)斷點(diǎn)。 2022/2/16 清華大學(xué)出版社 54 圖 106 運(yùn)用這些調(diào)試工具可以對(duì)產(chǎn)生邏輯錯(cuò)誤的程序進(jìn)行調(diào)試，對(duì)程序的調(diào)試大致分為三個(gè)步驟： 第一步是設(shè)置斷點(diǎn)； 第二步是跟蹤程序運(yùn)行； 第三步是使用調(diào)試窗口。 程序調(diào)試 Visual Basic程序調(diào)試工具 為了使用調(diào)試工具，應(yīng)首先進(jìn)入中斷模式，此時(shí)程序中的變量和控件的屬性值都被保留下來(lái)，為用戶(hù)分析應(yīng)用程序的當(dāng)前狀態(tài)，解決程序的各種錯(cuò)誤提供了有力的保障。 可以用以下四種方式進(jìn)入中斷模式： ? 在“運(yùn)行”模式下，執(zhí)行“運(yùn)行”菜單中的“中斷”命令； ? 在程序中設(shè)置斷點(diǎn)，程序運(yùn)行到斷點(diǎn)處時(shí)自動(dòng)進(jìn)入中斷模式； ? 在程序中加入“ STOP”語(yǔ)句，程序運(yùn)行到該語(yǔ)句處時(shí)自動(dòng)進(jìn)入中斷模式； ? 在程序運(yùn)行過(guò)程中，如果出現(xiàn)錯(cuò)誤，則自動(dòng)進(jìn)入中斷模式； 從語(yǔ)法和算法設(shè)計(jì)思路來(lái)看，都沒(méi)有錯(cuò)誤，但始終得不到正確的結(jié)果。 在中斷模式下，暫停應(yīng)用程序的執(zhí)行，此時(shí)可以檢查程序代碼，并可以進(jìn)行修改，也可以檢查數(shù)據(jù)是否正確，修改完程序后，可繼續(xù)執(zhí)行程序。 Private Sub Command1_Click() Dim i As Single， s As Single For i = To Step s = s + i Next i Print s End Sub 正確的結(jié)果應(yīng)該是 ， 但按照上面的代碼 ， 結(jié)果卻是 。與上述兩種錯(cuò)誤不同，邏輯錯(cuò)誤不報(bào)告錯(cuò)誤信息。例如下面求某個(gè)數(shù)階乘的函數(shù)： Private Sub Command1_Click() Print fact(14) End Sub 程序本身沒(méi)有任何語(yǔ)法錯(cuò)誤，但在程序運(yùn)行過(guò)程中，語(yǔ)句 Print fact(14)（計(jì)算 14的階乘）的返回的值超出整型數(shù)值的范圍，產(chǎn)生數(shù)據(jù)溢出導(dǎo)致程序出錯(cuò)。 ： 指程序在編譯時(shí)出現(xiàn)的錯(cuò)誤（語(yǔ)法錯(cuò)誤）。 由于 QueryUnload事件在窗體關(guān)閉之前被調(diào)用 ， 因此在窗體卸載前可以在 QueryUnload事件過(guò)程中編寫(xiě)代碼 ， 進(jìn)行某些保存文件等操作 。 當(dāng)關(guān)閉 MDI窗體時(shí) ， 首先在 MDI窗體上發(fā)生 QueryUnload事件 ，然后在所有的子窗體上發(fā)生這個(gè)事件 。 (2) Arrange方法 當(dāng)打開(kāi)多個(gè)子窗體時(shí) ， 用 MDIForm的 Arrange方法能夠使子窗體 （ 或其圖標(biāo) ） 按一定的規(guī)律排列 。 將某個(gè)正常窗體的 MDIChild屬性被設(shè)置為 “ 真 ” （ True） ， 則該窗體將做為它所在工程文件中 MDI窗體的子窗體 。 步驟： 在 【 工程 】 菜單下，選擇 【 添加 MDI窗體 】 命令，添加了一個(gè) MDI窗體， 并創(chuàng)建如圖所示的菜單。 MDI窗體和子窗體都可以有各自的菜單欄 ， 子窗體加載時(shí)覆蓋 MDI窗體的菜單 。 當(dāng)最大化一個(gè)子窗體時(shí) 。 所有的子窗體也被最小化 。 它的圖標(biāo)將顯示于 MDI窗體上而不是在任務(wù)欄中 。 用戶(hù)可改變 、 移動(dòng)窗體的大小 ， 但被限制在 MDI窗體中 。 0 – Transparent 透明的，即不顯示出線(xiàn)來(lái) 1 Solid 實(shí)線(xiàn) 2 Dash 虛線(xiàn) 3 Dot 點(diǎn)線(xiàn) 4 DashDot 點(diǎn)劃線(xiàn) 5 DashDotDot 雙點(diǎn)劃線(xiàn) 6 Inside Solid 內(nèi)實(shí)線(xiàn) 注意： 只有當(dāng) BorderWidth為 1時(shí)才可以用以上 7種類(lèi)型的線(xiàn) ， 如果BorderWidth不為 1， 則上述 7種類(lèi)型中只有 0和 6有效 。 如圖所示 。 （ 1） 啟動(dòng) VB， 新建一個(gè)工程 。 （ 2）在窗體上添加三個(gè)命令按鈕控件，一個(gè)水平滾動(dòng)條控件，一個(gè)垂直滾動(dòng)條控件和二個(gè)圖片框控件。有 5個(gè)屬性值供選擇，默認(rèn)值為 0，其中 1表示以檢查框的方式工作， 2表示以按鈕組的方式出現(xiàn)，每次只能選擇按鈕組中的一個(gè)按鈕 Image 用來(lái)設(shè)置按鈕中顯示的圖形，以 0， 1， 2等來(lái)標(biāo)識(shí)， ImageList控件中的圖形按順序賦給不同的按鈕 2022/2/16 清華大學(xué)出版社 35 圖片框（ PictureBox）控件 【 例 】 建立一個(gè)圖片瀏覽框 。當(dāng)單擊狀態(tài)欄上某一窗格時(shí)，執(zhí)行 PanelClick事件；當(dāng)雙擊狀態(tài)欄上某一窗格時(shí)，執(zhí)行 PanelDblClick事件。該屬性被設(shè)置后，可以向工具欄按鈕中添加圖形 Index 控件名相同時(shí)，用來(lái)產(chǎn)生一個(gè)數(shù)組標(biāo)識(shí)號(hào) ToolTipText 設(shè)置當(dāng)鼠標(biāo)指針在工具欄某一按鈕暫停時(shí)所顯示的提示文本 ShowTips 設(shè)置是否顯示工具欄按鈕上的提示文本 AllowCustomSize 設(shè)置本控件是否能被用戶(hù)自定義。 狀態(tài)欄控件屬性和事件 屬性 功能 Align 讀出或設(shè)置對(duì)象在窗體中的顯示位置。 2022/2/16 清華大學(xué)出版社 32 工具欄中各按鈕和代碼相連 添加按鈕之后，還要編寫(xiě)相應(yīng)的代碼按鈕才能起作用。重復(fù)上述步驟，添加四個(gè)按鈕到工具欄上，并設(shè)置相應(yīng)屬性。 ? 選中 【 按鈕 】 選項(xiàng)卡，單擊 【 插入按鈕 】 后， 【 索引 】 文本框中出現(xiàn)數(shù)字 1，其他輸入框也變?yōu)榭捎谩? ? 右擊工具欄控件，從彈出的菜單中選擇 【 屬性 】 菜單項(xiàng)，再單擊【 圖像列表 】 列表框右邊的