一、改錯(cuò)題解法現(xiàn)狀

　　許多同學(xué)為了掌握解決改錯(cuò)題的技巧和方法，一方面著重熟練VB集成開(kāi)發(fā)環(huán)境中調(diào)試工具的使用，另一方面歸納總結(jié)了近幾年來(lái)二級(jí)考試改錯(cuò)題中涉及到的錯(cuò)誤類(lèi)型。這些對(duì)于提高應(yīng)試能力無(wú)疑是有幫助的。但是在實(shí)際考試中，他們也發(fā)現(xiàn)，解答改錯(cuò)題的方法淪為逐一去猜測(cè)錯(cuò)誤類(lèi)型，然后按模式來(lái)套解。毫無(wú)疑問(wèn)，這一解法效率慢，正確率不高，而且即便正確解答出來(lái)，也有一種僥幸的感覺(jué)。之所以如此，根本的原因在于沒(méi)有抓住具體題目算法邏輯特征這一主線(xiàn)，因而單純的總結(jié)錯(cuò)誤類(lèi)型的意義也就不大了。

　　為此，我們可以采用一種比較完善的改錯(cuò)題解法——“三步逐過(guò)程法”。

　　二、“三步逐過(guò)程法”解法說(shuō)明

　　“三步逐過(guò)程法”核心是把握題目算法邏輯特征，按照“從整體到部分，再由部分到整體”的思路排查錯(cuò)誤，調(diào)試程序，具體步驟可分為三步：

　　步驟一：把握題意，泛讀程序，分析程序組成和各過(guò)程的功能;

　　步驟二：從通用過(guò)程入手， 逐過(guò)程輸入并逐過(guò)程調(diào)試;

　　步驟三：輸入并調(diào)試事件過(guò)程，完成對(duì)各通用過(guò)程調(diào)用和組裝。

　　下面，我們結(jié)合一道改錯(cuò)題來(lái)具體說(shuō)明每個(gè)步驟中的方法和技巧。

　　三、“三步逐過(guò)程法”解改錯(cuò)題舉例

　　以江蘇省二級(jí)VB上機(jī)考試中的一道考題為例。

　　已知下面程序的功能是找出2000以?xún)?nèi)這樣的正整數(shù)N： 它的不同值的因子(包括1和N在內(nèi))之和是一個(gè)素?cái)?shù)。 例如： 16： 1+2+4+8+16=31(下圖為程序正確執(zhí)行時(shí)的畫(huà)面)。

　　含有錯(cuò)誤的源程序如下：

　　Option Explicit

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim I As Integer， K As Integer， Sum As Integer

　　Sum = 0

　　For I = 2 To 2000

　　Call Fctor(I， Sum)

　　If Prime(Sum) Then

　　K = K + 1

　　Text1 = Text1.Text & Str(I) & " "

　　If K Mod 5 = 0 Then Text1 = Text1 & Chr(13) & Chr(10)

　　End If

　　Next I

　　End Sub

　　Private Sub Fctor(N As Integer， S As Integer)

　　Dim I As Integer， J As Integer

　　Do While I < N

　　If N Mod I = 0 Then

　　S = S + I

　　End If

　　I = I + 1

　　Loop

　　End Sub

　　Private Function Prime(N As Integer) As Boolean

　　Dim m As Integer

　　For m = 2 To Sqr(N)

　　If N Mod m = 0 Then Exit Sub

　　Next m

　　Prime = True

　　End Function