(二)-程序調(diào)試(參考答案)概要

1、二） 程序調(diào)試（參考答案）程序調(diào)試題的操作步驟是：（ 1）建立一標(biāo)準(zhǔn) EXE 工程，將這一模塊程序添加到工程中。如果你是通過(guò)雙擊標(biāo)準(zhǔn)模塊程序 Model1.BAS 進(jìn) 入 Visual Basic系統(tǒng)的，則首先需要添加一個(gè)窗體模塊。（ 2）將該標(biāo)準(zhǔn)模塊程序 Model1.BAS 中代碼的指定的錯(cuò)誤修改正確或在指定的空位填上適當(dāng)?shù)恼Z(yǔ)句， 并在窗體 模塊中編寫(xiě)代碼（常常寫(xiě)在窗體的 Click（） 事件中）調(diào)用標(biāo)準(zhǔn)模塊中的 Sub 過(guò)程或用戶自定義函數(shù)（如果在標(biāo)準(zhǔn) 模塊程序 Model1.BAS有多個(gè)過(guò)程或函數(shù)，要注意調(diào)用的先后順序，否則得不到正確結(jié)果） ，調(diào)試運(yùn)行程序，使 其能輸出正確結(jié)果。（3）

2、按試題要求保存工程。 如果你的計(jì)算機(jī)中沒(méi)有模塊程序 Model1.BAS ，你必需先自己新建一工程，再添加一個(gè)默認(rèn)標(biāo)準(zhǔn)模塊，將題目 所附的參考程序輸入（可復(fù)制粘貼） ，將其中用 -n- （n 為 1，2，3，4，5）部分刪除后改為合適的內(nèi)容或?qū)?用* 錯(cuò)誤 n * 標(biāo)示的下一語(yǔ)句中的錯(cuò)誤改正，然后調(diào)試運(yùn)行程序使其達(dá)到該題目的要求。1已有一模塊文件 Modify.Bas 。該模塊中的 Summary 過(guò)程是用于計(jì)算 1!+2!+.+20! ，并打印出計(jì)算結(jié)果，但 不完整，請(qǐng)?jiān)跈M線上填入必要的內(nèi)容，使其完整。 Modify.Bas 模塊中的 nFactor 函數(shù)過(guò)程用于計(jì)算 n! 。程序如下：Pu

3、blic Function nFactor（ByVal n As Integer） As DoubleDim i As IntegerDim temp As Doubletemp=1For i = 1 To ntemp = temp * iNext i nFactor = tempEnd FunctionPublic Sub summary()Dim sum As DoubleDim i As IntegerDim n As Integern = 20For i = 1 To nsum = sum + nFactor(i)Next iForm1.Print sum= & sum End

4、 SubCalculate 過(guò)程是產(chǎn)生 100 個(gè)0 ， 99 范圍內(nèi)的隨機(jī)整數(shù)，統(tǒng)計(jì)個(gè)位 9， 0的數(shù)的個(gè)數(shù)并打印出來(lái)。程序如下：Public Sub calculate()Dim a(1 To 100) As IntegerDim x(1 To 10) As IntegerDim i As Integer, p As Integer產(chǎn)生 100 個(gè)0 ，99 范圍內(nèi)的隨機(jī)整數(shù)每行 10 個(gè)打印出來(lái)For i = 1 To 100a(i) =int( Rnd * 100)If a(i) 10 ThenForm1.Print Space(2); a(i); ElseForm1.Print Sp

5、ace(1); a(i);End IfIf i Mod 10 = 0 Then Form1.PrintNext i 統(tǒng)計(jì)個(gè)位上的數(shù)字分別為 并將統(tǒng)計(jì)結(jié)果保存在數(shù)組For i = 1 To 1001，2，3，4，5，6，7，8，9，0 的數(shù)的個(gè)數(shù)x（1）,x（2）,.,x（10） 中，將統(tǒng)計(jì)結(jié)果打印出來(lái)2已有一模塊文件 Modify.Bas 。該模塊中的 上的數(shù)字分別為 1，2， 3，4， 5， 6， 7， 8，I*錯(cuò)誤 1 *I*p = Int(a(i) mod 10) 求個(gè)位上的數(shù)字If p = 0 Then p = 10 x(p) = x(p) + 1 Next iForm1.Print

6、統(tǒng)計(jì)結(jié)果 For i = 1 To 10p = iIf i = 10 Then p = 0Form1.Print 個(gè)位數(shù)為 + Str(p) + 共 + Str(x( i) + 個(gè) Next iEnd Sub3.已有一模塊文件Modify.Bas 。該模塊中的 Findat 過(guò)程是用于在一個(gè)字符串變量中查找at ，并用消息框給出查找結(jié)果的報(bào)告：沒(méi)有找到或找到的個(gè)數(shù)，但不完整，請(qǐng)?jiān)跈M線上填入必要的內(nèi)容，使其完整。程序如下：Public Sub Findat()在字符串 str1 中查找 atDim str1 As StringDim length As Integer 字符串長(zhǎng)度Dim sum

7、As Integer 查到的個(gè)數(shù)Dim i As Integerstr1 = InputBox( 請(qǐng)輸入一個(gè)字符串 ) length = len(str1)i = 1sum = 0Do While i RForm1.Print 太大了 ,繼續(xù)猜 !I*錯(cuò)誤 2 *Case ElseForm1.Print 太小了 ,繼續(xù)猜!End Select times = times + 11*錯(cuò)誤 3 *Loop While times 5 ThenForm1.Print 猜數(shù)失敗 ,游戲結(jié)束 !Form1.Print 正確答案為 & Str( R)End IfEnd Sub5.已有一模塊文件 M

8、odify.Bas 。該模塊中的 ArmstrongNumber 過(guò)程是用于求出 1-999 之間所有的Armstrong 數(shù)， 并打印出來(lái)，但不完整，請(qǐng)?jiān)跈M線上填入必要的內(nèi)容，使其完整。所謂 Armstrong 數(shù)是指一個(gè)數(shù)等于它每位上數(shù)字的立方和。例如：371=3A3+7A3+1A3，那么 371 就是一個(gè) Armstrong 數(shù)。程序如下：Public Sub ArmstrongNumber()Dim armstrong As IntegerDim i As IntegerDim hundred As Integer 百位上的數(shù)字Dim ten As Integer 十位上的數(shù)字Dim

9、one As Integer 個(gè)位上的數(shù)字For i = 1 To 999hundred = i 100ten = (i - hundred * 100) 10one = i mod 10If i = hundredA3 + tenA3 +oneA3 ThenForm1.Print i; is ar mstrong numberEnd IfNext iEnd Sub6.已有一模塊文件Modify.Bas 。該模塊中的 CountTo60 過(guò)程是用于從一堆一分、二分、五分的硬幣中取出20枚，使其總值為 60 分，要求輸出取法的數(shù)量及每一種取法的一分、二分、五分的個(gè)數(shù)。程序如下：Public Su

10、b CountTo60() 從一堆一分、二分、五分的硬幣中取出20 枚，使其總值為 60 分輸出取法的數(shù)量及每一種取法的一分、二分、五分的個(gè)數(shù)Dim one As Integer 一分硬幣個(gè)數(shù)Dim two As Integer 二分硬幣個(gè)數(shù)Dim five As Integer 五分硬幣個(gè)數(shù)Const n = 20 總數(shù) 20 枚Dim k As Integer 取法數(shù)量 k = 0For one = 1 To nFor two = 1 To n - one five = n - one - twoIf one + two *2 + five *5 = 60 Thenk = k + 1For

11、m1.Print one=; one; two=; two; five=; fiveEnd IfI*錯(cuò)誤 4*I*錯(cuò)誤 1*I *錯(cuò)誤 2 *I*Next oneForm1.Print k=; k End Sub7.已有一模塊文件 Modify.Bas 。該模塊中的 TJ 過(guò)程是將一批數(shù)據(jù)中小于零的數(shù)及它們的積打印出來(lái)， 但不完整， 請(qǐng)?jiān)跈M線上填入必要的內(nèi)容， 使其完整。 Modify.Bas 模塊中的 SCSJ 過(guò)程是產(chǎn)生數(shù)據(jù)， 數(shù)據(jù)的取值范圍為 -10 10 之間的隨機(jī)數(shù)。程序如下：Private Const n = 10Private a(1 To n) As IntegerTJ 過(guò)程是

12、將一批數(shù)據(jù)中小于零的數(shù)及它們的積打印出來(lái)數(shù)據(jù)由 SCSJ 過(guò)程產(chǎn)生，數(shù)據(jù)的取值范圍為-1010 之間的隨機(jī)整數(shù)Public Sub TJ()Dim i As IntegerDim t As Singlet=1For i = 1 To 10If a(i)0 Then t = t * a(i)End IfNext iForm1.Print T=; tEnd SubPublic Sub SCSJ()RandomizeForm1.Print 原始數(shù)據(jù) Dim i As IntegerDim j As IntegerFor i = 1 To n隨機(jī)產(chǎn)生 0 或 1 ，為 0 時(shí)取負(fù)，為 1 時(shí)取正 j

13、= Int(Rnd * 2)If j=0 Then j = -1 a(i) = j * Int(Rnd * (n + 1) Form1.Print a(i);Next iForm1.PrintEnd Sub8.已有一模塊文件 Modify.Bas 。該模塊中的 Money 過(guò)程是用于統(tǒng)計(jì)一個(gè)有 7 個(gè)工作人員的餐廳發(fā)工資所需的 100 元、 50元、 10 元、 5 元和 1 元的票面數(shù)，但不完整，請(qǐng)?jiān)跈M線上填入必要的內(nèi)容，使其完整。Modify.Bas 模塊中的 SalaryData 過(guò)程是給出 7 個(gè)員工的工資。 (工資單位是元)程序如下：Dim salary(7) As IntegerP

14、ublic Sub Money()Dim hundred As Integer, totalhundred As Integer 100 元票面數(shù)量、總數(shù)量Dim fifty As Integer, totalfifty As Integer 50 元票面數(shù)量、總數(shù)量 Dim ten As Integer, totalten As Integer 10 元票面數(shù)量、總數(shù)量 Dim five As Integer, totalfive As Integer 5 元票面數(shù)量、總數(shù)量 Dim one As Integer, totalone As Integer 1 元票面數(shù)量、總數(shù)量 Dim to

15、talsalary As Integer 工資總計(jì)Dim i As Integer, temp As Integer totalhundred = 0totalfifty = 0totalten = 0totalfive = 0totalone = 0totalsalary = 0For i = 1 To 7temp = salary ( i ) hundred = Int(temp / 100)temp = temp -hundred * 100 fifty = Int(temp / 50)temp = temp - fifty * 501*錯(cuò)誤 3 *Next two錯(cuò)誤 4*ten =

16、Int(temp / 10)temp = temp - ten * 10five = Int(temp / 5)temp = temp - five * 5one = temp totalhundred = totalhundred + hundred totalfifty = totalfifty + fifty totalten = totalten + ten totalfive =totalfive + five totalone = totalone + one totalsalary = totalsalary + salary ( i )Next iForm1.Print 共需

17、100 元 & Str(totalhundred) & 張 Form1.Print 共需 50 元 & Str(totalfifty) & 張 Form1.Print 共需10 元 & Str(totalten) & 張 Form1.Print 共需 5 元 & Str(totalfive) & 張 Form1.Print 共需 1 元 & Str(totalone) & 張 Form1.Print 合計(jì) & Str(totalsalary) & 元 End SubPublic Sub Salary

18、Data()salary(1)=1398salary(2)=1765salary(3)=689salary(4)=1500salary(5)=832salary(6)=590salary(7)=1200End Sub9.已有一模塊文件 Modify.Bas 。該模塊中的 MaxLine 過(guò)程用于查找一個(gè) 5 行 4 列的二維數(shù)組中行平均值最大的 行，并將該行所有數(shù)據(jù)調(diào)整到第一行的位置。Modify.Bas 模塊中的 DataProduce 過(guò)程用于產(chǎn)生原始數(shù)據(jù)； Average 過(guò)程用于計(jì)算各行的平均值； PrintArray 過(guò)程用于打印二維數(shù)組和行平均值。程序如下：Dim a(1 To 5

19、, 1 To 4) As IntegerDim ave(1 To 5) As IntegerPublic Sub MaxLine()Dim i As IntegerDim j As IntegerDim temp As IntegerDim Line_no As Integer 最大平均值的行號(hào) 找出最大平均值所在行Line_no = 1For i = 2 To 5If ave(Line_no) ave(i) ThenLine_no = iEnd IfNext i交換第一行與最大平均值所在行For j = 1 To 4 temp = a(1, j)a(1, j)= a (Line_no, j)

20、 a (Line_no, j) = temp Next j 交換對(duì)應(yīng)行的平均值 temp = ave(1) ave(1) = ave(Line_no)ave(Line_no) = tempI*錯(cuò)誤 1 *I*錯(cuò)誤 2 *I*錯(cuò)誤 3 *打印交換后的數(shù)據(jù)Form1.Print 交換后的數(shù)據(jù)和平均值 PrintArrayEnd SubPublic Sub DataProduce()Dim i As IntegerDim j As Integer產(chǎn)生 5*4 數(shù)組For i = 1 To 5For j = 1 To 4a(i, j) = Int(100 * Rnd)Next jNext iEnd S

21、ubPublic Sub Average()Dim i As Integer Dim jAs IntegerDim sum As Integer 計(jì)算各行平均值 For i = 1 To 5sum = 0For j = 1 To 4sum = sum + a(i, j)Next jave(i) = sum / 4Next i將數(shù)組和平均值打印出來(lái)Form1.Print 原始數(shù)據(jù)和平均值 PrintArrayEnd SubPublic Sub PrintArray()Dim i As IntegerDim j As IntegerFor i = 1 To 5For j = 1 To 4Form1

22、.Print a(i, j); Spc(3);Next jForm1.Print 平均值 =; ave(i)Next iEnd Sub 10 已有一模塊文件 Modify.Bas 。該模塊中的 Wrap 過(guò)程用于判斷一個(gè)字符串是否 “回文 ”。所謂 “回文 ”是指字 符串順讀與倒讀都是一樣的，如 “潮起潮落，落潮起潮 ”。程序如下：Public Sub Wrap()Dim length As IntegerDim str1 As StringDim strleft As StringDim strright As StringDim k As Integer str1 = InputBox(

23、請(qǐng)輸入任意的字符串1*length = len(str1)k = 1DoI*錯(cuò)誤 4 *) 輸入任意字符串 , 如 “潮起潮落，落潮起潮I*I*錯(cuò)誤 2*strleft = mid(str1, k,1) 從左邊起逐個(gè)取出個(gè)字符I*錯(cuò)誤 3*strright = mid(str1, le ngth +1 k ,1)從右邊起逐個(gè)取出一個(gè)字符If strleft strright ThenExit DoEnd If k = k + 1Loop While k length / 2 ThenForm1.Print str1 & 是回文 ElseForm1.Print str1 & 不是

24、回文 End IfEnd Sub 1 1 .已有一模塊文件 Modify.Bas 。該模塊中的 BubbleSort 過(guò)程是冒泡排序法； GenerateData 過(guò)程產(chǎn)生 10 個(gè) 1 ，20 之間互不相同的隨機(jī)整數(shù)； Swap 過(guò)程交換兩個(gè)變量的數(shù)值。程序如下：Private Const n = 10 Private a(1 To n) As Integer BubbleSort 過(guò)程是冒泡排序Swap 過(guò)程交換兩個(gè)變量數(shù)值 GenerateData 過(guò)程產(chǎn)生 10 個(gè)1 ，20 之間互不相同的隨機(jī)整數(shù)Public Sub BubbleSort()Dim i As Integer, j A

25、s Integeri = 1DoFor j = i + 1 To nIf a(j) a(i) Then* 1 *Swap a(j), a(i) End IfNext ji = i + 1* 2 *Loop While i nForm1.Print 排序結(jié)果 For i = 1 To nForm1.Print a(i);Next iEnd SubPublic Sub GenerateData()Dim i As IntegerDim j As IntegerDim b As BooleanFor i = 1 To nb = FalseDo While Not ba(i) = Int(20 * R

26、nd + 1) b = TrueFor j = 1 To i 1If a(i) = a(j) Then b = False Exit ForEnd If Next j Loop Form1.Print a(i) Next iEnd SubI*A *I*錯(cuò)誤 4*去掉括號(hào) , 或改為 call Swap (a(j), a(i)I*12.已有一模塊文件 Modify.Bas 。該模塊中的 函數(shù)過(guò)程用于將一個(gè)十六進(jìn)制符號(hào)轉(zhuǎn)換為數(shù)值。程序如下：Public Sub Transfer()Dim Hex As String 十六進(jìn)制數(shù)Dim Dec As Double 十進(jìn)制數(shù)Dim temp As St

27、ringDim i As IntegerDim n As IntegerHex = InputBox( 輸入一個(gè)十六進(jìn)制整數(shù)n = len(Hex)i = 0Dec = Dec + number (temp)* 16Aii = i + 1Loop While i a(j)ThenSwapa(i),a(j)End IfNext jForm1.Print a(i)Next iForm1.print a(i) 或 a(10) 即最后一個(gè) End SubPublic Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = aa =

28、 bb = tempEnd Sub14.已有一模塊文件 Modify.Bas 。該模塊中的 PrintArray 過(guò)程是用于打印一個(gè) 線上元素均為 1 ，其余均為 2。要求打印的數(shù)字方陣兩列數(shù)字之間空3 格，程序如下：Public Sub PrintArray()下面程序用于打印 5 行 5 列的數(shù)字方陣 使兩對(duì)角線上元素均為 1 ，其余均為 2 要求打印的數(shù)字方陣兩列數(shù)字之間空3 格，兩行之間空一行只要修改標(biāo)出出錯(cuò)位置的下面那一條語(yǔ)句Dim a(5, 5) As IntegerDim i As Integer, j As Integer For i = 1 To 55 行 5 列的數(shù)字方陣，

29、并使兩對(duì)角兩行之間空一行。For j = 1 To 5I*錯(cuò)誤 1*If i j and i 6 - j Thena(i, j) = 2Elsea(i, j) = 1 End IfI*錯(cuò)誤 2 *Form1.Print a(i, j)Space(3);數(shù)字與空字符串不能相加Next jI*錯(cuò)誤 3 *Form1.Print : Form1.PrintNext iEnd Sub15.已有一模塊文件 Modify.Bas 。該模塊中的 Combination 過(guò)程是用于計(jì)算在 合值，計(jì)算公式為 Cmn=m!/(n!*(m-n)!) 。Modify.Bas 模塊中的 nFactor 函數(shù)過(guò)程用于計(jì)算

30、 n! 。程序如下：m 個(gè)數(shù)據(jù)中取出 n 個(gè)數(shù)據(jù)的排列組Public Sub Combination()Dim m As IntegerDim n As IntegerDim Cmn As LongDom = Val(InputBox( 請(qǐng)輸入一個(gè)整數(shù) m) n =Val(InputBox( 請(qǐng)輸入一個(gè)整數(shù) n(n=m)I*錯(cuò)誤 1 *Loop While m =nI*錯(cuò)誤 2*Cmn = nFactor(m) / ( nFactor(n) * nFactor(m - n) )Form1.Print 排列組合數(shù)為 ; CmnEnd SubPublic Function nFactor(ByVa

31、l n As Integer) As Double Dim i As IntegerDim temp As Double temp = 1For i = 1 To ntemp = temp * iNext iI*去掉 nFactor (n) 中的 (n) 部分End Sub16.已有一模塊文件 Modify.Bas 。該模塊中的 FindMax 過(guò)程是用于查找一批數(shù)據(jù)中的最大數(shù)， 并打印出最大數(shù)的 值及最大數(shù)在數(shù)組中的下標(biāo)值，但不完整，請(qǐng)?jiān)跈M線上填入必要的內(nèi)容，使其完整。 Modify.Bas 模塊中的GenerateData 過(guò)程用于產(chǎn)生 30 個(gè)1-500之間的隨機(jī)整數(shù)并5 個(gè)一行打印岀來(lái)

32、。程序如下：Dim a(30) As IntegerPublic Sub FindMax()Dim Position As Integer 最大數(shù)在數(shù)組中的下標(biāo)Dim max As Integer最大數(shù)Dim i As IntegerGenerateDatamax = a(1)Position =1For i = 2 To 30If a(i) max Thenmax = a(i) Position = iEnd IfNext iForm1.Print 最大值 = & Str(max)Form1.Print 最大值的下標(biāo) = & Str(Position)End SubPubli

33、c Sub GenerateData()Dim i As IntegerFor i = 1 To 30 a(i) = Int(500 * Rnd() + 1) Form1.Print a(i),If i Mod 5 = 0 Then Form1.PrintNext iEnd Sub17.已有一模塊文件 Modify.Bas 。該模塊中的 Prime 過(guò)程是求岀 100 到 200 之間所有的素?cái)?shù)，并打印岀來(lái)，但 不完整，請(qǐng)?jiān)跈M線上填入必要的內(nèi)容，使其完整。程序如下：Public Sub prime()打印岀 100 到 200 之間所有的素?cái)?shù)，并統(tǒng)計(jì)素?cái)?shù)的個(gè)數(shù)Dim i As IntegerDim j As IntegerDim k As IntegerDim t As Integer 統(tǒng)計(jì)素?cái)?shù)的個(gè)數(shù)Dim b As BooleanFor i = 100 To 200 b = True k=2 j =