二程序调试参考答案概要.doc

（二） 程序调试(参考答案)
程序调试题的操作步骤是：
（1）建立一标准EXE工程，将这一模块程序添加到工程中。如果你是通过双击标准模块程序Model1.BAS进入Visual Basic系统的，则首先需要添加一个窗体模块。
（2）将该标准模块程序Model1.BAS中代码的指定的错误修改正确或在指定的空位填上适当的语句，并在窗体模块中编写代码（常常写在窗体的Click()事件中）调用标准模块中的Sub过程或用户自定义函数（如果在标准模块程序Model1.BAS有多个过程或函数，要注意调用的先后顺序，否则得不到正确结果），调试运行程序，使其能输出正确结果。
（3）按试题要求保存工程。
如果你的计算机中没有模块程序Model1.BAS，你必需先自己新建一工程，再添加一个默认标准模块，将题目所附的参考程序输入（可复制粘贴），将其中用---n---（n为1，2，3，4，5）部分删除后改为合适的内容或将用**** 错误n **** 标示的下一语句中的错误改正，然后调试运行程序使其达到该题目的要求。
1．已有一模块文件Modify.Bas。该模块中的Summary过程是用于计算1!+2!+...+20!，并打印出计算结果，但不完整，请在横线上填入必要的内容，使其完整。Modify.Bas模块中的nFactor函数过程用于计算n!。
程序如下：
Public Function nFactor(ByVal n As Integer) As Double
Dim i As Integer
Dim temp As Double
temp=1
For i = 1 To n
temp = temp * i
Next i
nFactor = temp
End Function

Public Sub summary()
Dim sum As Double
Dim i As Integer
Dim n As Integer
n = 20
For i = 1 To n
sum = sum + nFactor(i)
Next i
Form1.Print "sum=" & sum
End Sub

2．已有一模块文件Modify.Bas。该模块中的Calculate过程是产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。
程序如下：
Public Sub calculate()
Dim a(1 To 100) As Integer
Dim x(1 To 10) As Integer
Dim i As Integer, p As Integer
'产生100个[0，99]范围内的随机整数
'每行10个打印出来
For i = 1 To 100
'******** 错误1 ***********
a(i) =int( Rnd * 100)
If a(i) < 10 Then
Form1.Print Space(2); a(i);
Else
Form1.Print Space(1); a(i);
End If
If i Mod 10 = 0 Then Form1.Print
Next i
'统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数
'并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来
For i = 1 To 100
'******** 错误2 **********
p = Int(a(i) mod 10) '求个位上的数字
If p = 0 Then p = 10
'******** 错误3 **********
x(p) = x(p) + 1
Next i
Form1.Print "统计结果"
For i = 1 To 10
p = i
If i = 10 Then p = 0
'******** 错误4 *********
Form1.Print "个位数为" + Str(p) + "共" + Str(x(i)) + "个" ‘个位数为0统计结果保存在x(10)中
Next i
End Sub

3.已有一模块文件Modify.Bas。该模块中的Findat过程是用于在一个字符串变量中查找"at"，并用消息框给出查找结果的报告：没有找到或找到的个数，但不完整，请在横线上填入必要的内容，使其完整。
程序如下：
Public Sub Findat()
'在字符串str1中查找"at"
Dim str1 As String
Dim length As Integer '字符串长度
Dim sum As Integer '查到的个数
Dim i As Integer
str1 = InputBox("请输入一个字符串")
length = len(str1)
i = 1
sum = 0
Do While i <= length
If mid(str1,i,2) = "at" Then
sum = sum + 1
End If
i = i + 1
Loop
If sum=0 Then
MsgBox "没有找到！"
Else
MsgBox "找到了" & Str(sum) & "个"
End If
End Sub

4.已有一模块文件Modify.Bas。该模块中的 Guess 过程是猜数游戏，由计算机产生一个[1，100]的任意整数，输入猜数后计算机给出提示，如果5次后还没有猜中就结束游戏并公布正确答案。
程序如下：
Public Sub Guess()
Dim R As Integer
Dim X As Integer
Dim times As Integer
Randomize
'****** 错误1 ******
R = int(Rnd * 100+1) '产生一个1--100 的任意整数或 int(Rnd*100)+1
times = 1
Do
X = Val(InputBox("输入猜数X"))
Select Case X
Case R
Form1.Print "猜中了"
Exit Do
'***** 错误2 ******
Case IS > R
Form1.Print "太大了,继续猜!"
Case Else
Form1.Print "太小了,继续猜!"
End Select
times = times + 1
'****** 错误3 ******
Loop While times <= 5
If times > 5 Then
Form1.Print "猜数失败,游戏结束!"
'****** 错误4 ******
Form1.Print "正确答案为" & Str(R)
End If
End Sub

5.已有一模块文件Modify.Bas。该模块中的ArmstrongNumber过程是用于求出1--999之间所有的Armstrong数，并打印出来，但不完整，请在横线上填入必要的内容，使其完整。所谓Armstrong数是指一个数等于它每位上数字的立方和。例如：371=3^3+7^3+1^3，那么371就是一个Armstrong数。
程序如下：
Public Sub ArmstrongNumber()
Dim armstrong As Integer
Dim i As Integer
Dim hundred As Integer '百位上的数字
Dim ten As Integer '十位上的数字
Dim one As Integer '个位上的数字
For i = 1 To 999
hundred = i \ 100
ten = (i - hundred * 100) \ 10
one = i mod 10
If i = hundred^3 + ten^3 +one^3 Then
Form1.Print i; "is ar mstrong number"
End If
Next i
End Sub

6.已有一模块文件Modify.Bas。该模块中的 CountTo60 过程是用于从一堆一分、二分、五分的硬币中取出20枚，使其总值为60分，要求输出取法的数量及每一种取法的一分、二分、五分的个数。
程序如下：
Public Sub CountTo60()
'从一堆一分、二分、五分的硬币中取出20枚，使其总值为60分
'输出取法的数量及每一种取法的一分、二分、五分的个数
Dim one As Integer '一分硬币个数
Dim two As Integer '二分硬币个数
Dim five As Integer '五分硬币个数
Const n = 20 '总数20枚
Dim k As Integer '取法数量
k = 0
For one = 1 To n
'******* 错误1 ********
For two = 1 To n - one
five = n - one - two
'******* 错误2 *********
If one + two*2 + five*5 = 60 Then
k = k + 1
Form1.Print "one="; one; "two="; two; "five="; five
End If
'******* 错误3 ********
Next two
'****** 错误4 ******
Next one
Form1.Print "k="; k
End Sub

7.已有一模块文件Modify.Bas。该模块中的TJ过程是将一批数据中小于零的数及它们的积打印出来，但不完整，请在横线上填入必要的内容，使其完整。Modify.Bas模块中的SCSJ过程是产生数据，数据的取值范围为-10 ~ 10 之间的随机数。
程序如下：
Private Const n = 10
Private a(1 To n) As Integer
'TJ过程是将一批数据中小于零的数及它们的积打印出来
'数据由SCSJ过程产生，数据的取值范围为-10 ~ 10 之间的随机整数

Public Sub TJ()
Dim i As Integer
Dim t As Single
t=1
For i = 1 To 10
If a(i)<0 Then
t = t * a(i)
End If
Next i
Form1.Print "T="; t
End Sub

Public Sub SCSJ()
Randomize
Form1.Print "原始数据"
Dim i As Integer
Dim j As Integer
For i = 1 To n
'随机产生0或1，为0时取负，为1时取正
j = Int(Rnd * 2)
If j=0 Then j = -1
a(i) = j * Int(Rnd * (n + 1))
Form1.Print a(i);
Next i
Form1.Print
End Sub

8.已有一模块文件Modify.Bas。该模块中的Money过程是用于统计一个有7个工作人员的餐厅发工资所需的100元、50元、10元、5元和1元的票面数，但不完整，请在横线上填入必要的内容，使其完整。
Modify.Bas模块中的SalaryData过程是给出7个员工的工资。（工资单位是元）
程序如下：
Dim salary(7) As Integer
Public Sub Money()
Dim hundred As Integer, totalhundred As Integer '100元票面数量、总数量
Dim fifty As Integer, totalfifty As Integer '50元票面数量、总数量
Dim ten As Integer, totalten As Integer '10元票面数量、总数量
Dim five As Integer, totalfive As Integer '5元票面数量、总数量
Dim one As Integer, totalone As Integer '1元票面数量、总数量
Dim totalsalary As Integer '工资总计
Dim i As Integer, temp As Integer
totalhundred = 0
totalfifty = 0
totalten = 0
totalfive = 0
totalone = 0
totalsalary = 0
For i = 1 To 7
temp = salary ( i )
hundred = Int(temp / 100)
temp = temp – hundred * 100
fifty = Int(temp / 50)
temp = temp - fifty * 50
ten = Int(temp / 10)
temp = temp - ten * 10
five = Int(temp / 5)
temp = temp - five * 5
one = temp
totalhundred = totalhundred + hundred
totalfifty = totalfifty + fifty
totalten = totalten + ten
totalfive = totalfive + five
totalone = totalone + one
totalsalary = totalsalary + salary ( i )
Next i
Form1.Print "共需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 "合计" & Str(totalsalary) & "元"
End Sub

Public Sub SalaryData()
salary(1) = 1398
salary(2) = 1765
salary(3) = 689
salary(4) = 1500
salary(5) = 832
salary(6) = 590
salary(7) = 1200
End Sub

9.已有一模块文件Modify.Bas。该模块中的 MaxLine 过程用于查找一个5行4列的二维数组中行平均值最大的行，并将该行所有数据调整到第一行的位置。
Modify.Bas模块中的DataProduce 过程用于产生原始数据；Average 过程用于计算各行的平均值；PrintArray过程用于打印二维数组和行平均值。
程序如下：
Dim a(1 To 5, 1 To 4) As Integer
Dim ave(1 To 5) As Integer
Public Sub MaxLine()
Dim i As Integer
Dim j As Integer
Dim temp As Integer
Dim Line_no As Integer '最大平均值的行号
'找出最大平均值所在行
Line_no = 1
For i = 2 To 5
'****** 错误1 *******
If ave(Line_no) < ave(i) Then
'****** 错误2 *******
Line_no = i
End If
Next i
'交换第一行与最大平均值所在行
For j = 1 To 4
temp = a(1, j)
'****** 错误3 ******
a(1, j)= a (Line_no, j)
a (Line_no, j) = temp
Next j
'交换对应行的平均值
temp = ave(1)
ave(1) = ave(Line_no)
ave(Line_no) = temp
'打印交换后的数据
Form1.Print "交换后的数据和平均值"
PrintArray
End Sub

Public Sub DataProduce()
Dim i As Integer
Dim j As Integer
'产生5*4数组
For i = 1 To 5
For j = 1 To 4
a(i, j) = Int(100 * Rnd)
Next j
Next i
End Sub

Public Sub Average()
Dim i As Integer
Dim j As Integer
Dim sum As Integer
'计算各行平均值
For i = 1 To 5
sum = 0
For j = 1 To 4
'****** 错误4 ******
sum = sum + a(i, j)
Next j
ave(i) = sum / 4
Next i
'将数组和平均值打印出来
Form1.Print "原始数据和平均值"
PrintArray
End Sub

Public Sub PrintArray()
Dim i As Integer
Dim j As Integer
For i = 1 To 5
For j = 1 To 4
Form1.Print a(i, j); Spc(3);
Next j
Form1.Print "平均值="; ave(i)
Next i
End Sub

10．已有一模块文件Modify.Bas。该模块中的 Wrap 过程用于判断一个字符串是否“回文”。所谓“回文”是指字符串顺读与倒读都是一样的，如“潮起潮落，落潮起潮”。
程序如下：
Public Sub Wrap()
Dim length As Integer
Dim str1 As String
Dim strleft As String
Dim strright As String
Dim k As Integer
str1 = InputBox("请输入任意的字符串") '输入任意字符串, 如“潮起潮落，落潮起潮”
'****错误1*****
length = len(str1)
k = 1
Do
'****错误2*****
strleft = mid(str1, k,1) '从左边起逐个取出一个字符
'****错误3*****
strright =mid(str1, length +1– k ,1) '从右边起逐个取出一个字符
'****错误4****
If strleft <> strright Then
Exit Do
End If
k = k + 1
Loop While k <= length / 2
If k > length / 2 Then
Form1.Print str1 & "是回文"
Else
Form1.Print str1 & "不是回文"
End If
End Sub

11.已有一模块文件Modify.Bas。该模块中的BubbleSort过程是冒泡排序法；GenerateData过程产生10个[1，20]之间互不相同的随机整数；Swap过程交换两个变量的数值。
程序如下：
Private Const n = 10
Private a(1 To n) As Integer
'BubbleSort过程是冒泡排序
'Swap过程交换两个变量数值
'GenerateData过程产生10个[1，20]之间互不相同的随机整数

Public Sub BubbleSort()
Dim i As Integer, j As Integer
i = 1
Do
For j = i + 1 To n
If a(j) > a(i) Then
'******* 1 *********
Swap a(j), a(i) ‘去掉括号,或改为 call Swap (a(j), a(i))
End If
Next j
i = i + 1
'******* 2 *******
Loop While i < n
Form1.Print "排序结果"
For i = 1 To n
Form1.Print a(i);
Next i
End Sub
Public Sub GenerateData()
Dim i As Integer
Dim j As Integer
Dim b As Boolean
For i = 1 To n
b = False
Do While Not b
a(i) = Int(20 * Rnd + 1)
b = True
'****** 3 ******
For j = 1 To i – 1
If a(i) = a(j) Then
b = False
Exit For
End If
Next j
Loop
Form1.Print a(i)
Next i
End Sub
'******** 4 ********
Public Sub Swap(a As Integer, b As Integer) ‘去掉ByVal，数组不能以ByVal 传递
Dim temp As Integer
temp = a
a = b
b = temp
End Sub

12.已有一模块文件Modify.Bas。该模块中的 Transfer 过程用于将一个十六进制整数转换为十进制整数；number 函数过程用于将一个十六进制符号转换为数值。
程序如下：
Public Sub Transfer()
Dim Hex As String '十六进制数
Dim Dec As Double '十进制数
Dim temp As String
Dim i As Integer
Dim n As Integer
Hex = InputBox("输入一个十六进制整数")
'****** 错误1 *******
n = len(Hex)
i = 0
Do
'****** 错误2 *******
temp = Mid(Hex, n - i , 1)
'****** 错误3 *******
Dec = Dec + number（temp） * 16 ^ i
i = i + 1
Loop While i < n
'****** 错误4 ******
Form1.Print Hex & "转换为十进制数为" & str(Dec) ‘去掉 的str，因为 Hex是字符串
End Sub

Public Function number(str As String) As Integer
Select Case str
Case "a", "A"
number = 10
Case "b", "B"
number = 11
Case "c", "C"
number = 12
Case "d", "D"
number = 13
Case "e", "E"
number = 14
Case "f", "F"
number = 15
Case Else
number = Val(str)
End Select
End Function

13.已有一模块文件Modify.Bas。该模块中的SortData 过程是把10个[30，50）的随机整数并按照从小到大的顺序打印出来，但不完整，请在横线上填入必要的内容，使其完整。Modify.Bas模块中的Swap过程用于交换两个变量的值。
程序如下：
Public Sub SortData()
'产生10个[30，50]的随机整数，并按从小到大的顺序打印出来
Dim a(10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 10
a(i)= int(rnd*20+30)
Next i
For i = 1 To 9
For j=i+1 to 10
If a(i) > a(j) Then
Swap a(i),a(j)
End If
Next j
Form1.Print a(i)
Next i
Form1.print a(i) ‘或 a(10) 即最后一个
End Sub

Public Sub Swap(a As Integer, b As Integer)
Dim temp As Integer
temp = a
a = b
b = temp
End Sub

14.已有一模块文件Modify.Bas。该模块中的PrintArray过程是用于打印一个5行5列的数字方阵，并使两对角线上元素均为1，其余均为2。要求打印的数字方阵两列数字之间空3格，两行之间空一行。
程序如下：
Public Sub PrintArray()
'下面程序用于打印5行5列的数字方阵
'使两对角线上元素均为1，其余均为2
'要求打印的数字方阵两列数字之间空3格，两行之间空一行
'只要修改标出出错位置的下面那一条语句
Dim a(5, 5) As Integer
Dim i As Integer, j As Integer
For i = 1 To 5
For j = 1 To 5
'******** 错误1 *********
If i <> j and i <> 6 - j Then
a(i, j) = 2
Else
a(i, j) = 1
End If
'******** 错误2 *********
Form1.Print a(i, j) & Space(3); ‘数字与空字符串不能相加
Next j
'******* 错误3 *******
Form1.Print : Form1.Print
Next i
End Sub

15.已有一模块文件Modify.Bas。该模块中的Combination过程是用于计算在m个数据中取出n个数据的排列组合值，计算公式为Cmn=m!/(n!*(m-n)!)。
Modify.Bas模块中的nFactor函数过程用于计算n!。
程序如下：
Public Sub Combination()
Dim m As Integer
Dim n As Integer
Dim Cmn As Long
Do
m = Val(InputBox("请输入一个整数m"))
n = Val(InputBox("请输入一个整数n(n<=m)"))
'****** 错误1 ******
Loop While m < n '必须保证输入的两个数m>=n
'****** 错误2 ******
Cmn = nFactor(m) /( nFactor(n) * nFactor(m - n))
Form1.Print "排列组合数为"; Cmn
End Sub

Public Function nFactor(ByVal n As Integer) As Double
Dim i As Integer
Dim temp As Double
temp = 1
For i = 1 To n
temp = temp * i
Next i
'******错误 3 ******
nFactor = temp ‘去掉nFactor (n)中的(n)部分
'****** 错误4 ******
End Sub

16.已有一模块文件Modify.Bas。该模块中的FindMax过程是用于查找一批数据中的最大数，并打印出最大数的值及最大数在数组中的下标值，但不完整，请在横线上填入必要的内容，使其完整。Modify.Bas模块中的GenerateData过程用于产生30个[1-500]之间的随机整数并5个一行打印出来。
程序如下：
Dim a(30) As Integer
Public Sub FindMax()
Dim Position As Integer '最大数在数组中的下标
Dim max As Integer '最大数
Dim i As Integer
GenerateData
max = a(1