VB调试题解答(07-3-17)

第四部分 上机程序调试题第四部分 上机程序调试题 改错或填空改错或填空 一 说明 一 说明 等级考试上机测试的程序调试题常常是在考生目录中给出一个标准模块程序 Modify BAS 要求根据题意修改 该模块中的函数或过程 为检测所作修改是否正确 可以按照以下操作步骤进行调试 1 要求学生建立一工程 将这一模块添加到工程中 如果你是通过双击标准模块程序 Modify BAS 进入 Visual Basic 程序设计系统的 则首先需要添加一个窗体模块 2 将该标准模块程序 Modify BAS 代码中用 n n 为 1 2 3 4 5 部分删除后改为合适的内容或将用 错误 n 标示的下一语句中的错误改正 并在窗体模块中编写代码 常常写在窗体的 Click 事件中 调用标 准模块中的 sub 过程或自定义函数 如果在标准模块程序中有多个过程或函数 要注意调用的先后顺序 否则得不到 正确结果 调试运行程序 使其能输出正确结果 3 按试题要求保存工程 二 程序调试题 二 程序调试题 题 1 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 Val Hex n len Hex i 0 Do 错误 2 temp Mid Hex i 1 temp Mid Hex n i 1 错误 3 Dec Dec number 16 i Dec Dec number temp 16 i i i 1 Loop While i a i Then 1 Swap a j a i Swap a j a i End If Next j i i 1 2 Loop While i n 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 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 ByVal a As Integer ByVal b As Integer Public Sub Swap a as integer b as integer Dim temp As Integer temp a a b b temp End Sub 题 3 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 Val str1 length len str1 k 1 Do 错误 2 strleft Left str1 k 从左边起逐个取出一个字符 strleft mid str1 k 1 错误 3 strright Right str1 k 从右边起逐个取出一个字符 strright mid str1 length k 1 1 错误 4 If strleft strright Then If strleft strright Then Exit Do End If k k 1 Loop While k length 2 Then Form1 Print str1 Spc 3 Next j Form1 Print 平均值 ave i Next i End Sub 题 5 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 1 t 1 For i 1 To 10 If 2 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 3 j 0Then J 1 a i j Int Rnd n 1 Form1 Print a i Next i Form1 Print End Sub 题 6 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 rnd 100 a i int Rnd 100 if a i 10 then form1 print space 2 a i else form1 print space 1 a i endif 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 10 求个位上的数字 p a i mod 10 if p 0 then p 10 3 x p x p 1 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 p 个 Form1 print 个位数为 str p 共 str x i next I end sub 题 7 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 Or i 6 j Then If ij and i6 j then a i j 2 Else a i j 1 End If 错误 2 Form1 Print a i j Space 3 Form1 print a I j space 3 Next j 错误 3 Form1 Print form1 print form1 print Next i End Sub 题 8 Modify bas 模块中的 Guess 过程是猜数游戏 由计算机产生一个 1 100 的任意整数 输入猜数后计算机给 出提示 如果 5 次后还没有猜中就结束游戏并公布正确答案 请改正其中的错误 说明 只要修改标出出错位置的下 面那条语句 Public Sub Guess Dim R As Interger Dim X As Integer Dim time As Integer Randomize 1 R Rnd 100 产生一个 1 100 的任意整数 R int rnd 100 1 Times 1 Do X Val InputBox 输入猜数 X Select Case X Case R Form1 Print 猜中了 Exit Do 2 Case X R Case Is R Form1 Print 太大了 继续猜 Case Else Form1 Print 太小了 继续猜 End Select Times times 1 3 Loop While times 5 Loop until times 5 If times 5 Then Form1 Print 猜数失败 游戏结束 4 Form1 Print 正确答案为 x Form1 Print 重新组合的字符串 y End Sub 题 11 sum 过程用于计算 f 1 1 2 3 1 3 4 1 4 5 1 19 20 请在横线上填入必要的内容 Option Explicit Public Sub sum Dim f As Single Dim i As Integer Dim sign As Integer 1 sign 1 f 1 2 for I 2 to 19 f f sign i i 1 3 sign sign Next i Form1 Print f f End Sub 题 12 有一个数列 它的前三个数是 0 1 2 从第四个数起 每个数都是它前面的两个数之和 斐邦纳契数列 过程 Fabonia 用于求出该数列的第 17 个数是多少 求出该数列的第几个数起每个数都超过 1E 8 请在横线上填入必 要的内容 Option Explicit Public Sub Fabonia Dim last one As Long Dim last two As Long Dim this one As Long Dim i As Integer last one 1 数列的第二个数 last two 2 数列的第三个数 i 4 从数列的第四个数求起 Do this one last one last two 1 last one last two 2 last two this one If i 17 Then Form1 Print No 17 this one End If 3 i i 1 Loop While this one 1E 8 End Sub 题 13 以下程序完成下列功能 随机产生 9 个 1 100 的整数数组 并按从小到大的顺序进行排序 从键盘输入一 个正数 找到该数在原来 9 个数中的插入点 使得该数插入数组后 数组的 10 个数依然是从小到大的顺序 请在横 线上填入必要的内容 Option Explicit Public Sub Insert Dim x 10 As Integer Dim i As Integer j As Integer Dim temp As Integer Dim ins As Integer pos As Integer 随机产生 9 个 1 100 的整数并排序 Randomize For i 1 To 9 1 x i int rnd 100 1 Next i For i 1 To 8 For j i 1 To 9 If x i x j Then temp x i x i x j x j temp End If Next j Next i 输出排序后数组 For i 1 To 9 Form1 Print x i Next i Form1 Print 从键盘输入一个正数 Do ins Val InputBox ins Loop Until ins 0 将输入的数插入数组中 pos 1 For i 1 To 9 2 if x i ins then exit for pos i 1 Next i For j 9 To pos Step 1 3 x j 1 x j Next j 4 x pos ins 输出插入后数组 For i 1 To 10 Form1 Print x i Next i Form1 Print End Sub 题 14 餐厅发工资程序 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 1 salary i hundred Int temp 100 temp 2 temp mod 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 3 temp totalhundred totalhundred hundred totalfifty totalfifty fifty totalten totalten ten totalfive totalfive five totalone totalone one totalsalary 4 totalsalary salary i Next i Form1 Print 共需 100 元 错误 2 For j 1 To 2 i 1 for j 1 to 2 9 i 1 1 错误 3 Form1 Print i form1 print trim str i Next j Form1 Print Next i End Sub 题 16 Modify bas 模块中的 ArmstrongNumber 过程是用于求出 1 999 之间所有的 Armstrong 数 并打印出来 所 谓 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 1 i 100 ten 2 I mod 100 10 one 3 i mod 100 mod 10 If 4 i hundred 3 ten 3 one 3Then Form1 Print i is armstrong number End If Next i End Sub 题 17 过程 Uppersen 实现从键盘上任意输入一条英文句子 将句子中的每个单词的首字母都变成大写例如 输入 I am a good student 要求输出 I Am A Good Student Public Sub Uppersen Dim oldsen As String newsen As String Dim char As String lastchar As String Dim l As Integer i As Integer oldsen InputBox 请输入英文句子 1 l len oldsen 以空格作为单词的界定 空格后的字母转换为大写字母 2 lastchar For i 1 To l char 3 mid oldsen i 1 If lastchar Then char 4 ucase char End If newsen newsen oldsen Form1 Print output newsen End Sub 题 18 过程 DtoB 采用连除 2 取余数的方法实现将一个十进制数转换为二进制数 但不完整 请在横线上填入必要 的内容 将横线删除掉后填入正确的内容 使其完整 Public Sub DToB Dim Dec As Integer 输入一个十进制数 Dim Bin As String 转换为二进制表示 Dim res As Integer Dim i As Integer Dec Val InputBox x Form1 Print 十进制数 Dec Do res 1 dec mod 2 求出除以 2 的余数 Bin 2 str res bin Dec 3 dec 2 Loop While 4 dec0 Form1 Print 转换为二进制数为 Bin End Sub 题 19 过程 same 用以找出 1 100 之间所有的同构数 所谓同构数是指一个数出现在它的平方数的右端 如 25 在 25 平方 625 的右端 则 25 为同构数 利用数字转字符再取出右端字符的方法进行判断 Public Sub same Dim i As Integer Dim x As String x2 As String For i 1 To 1000 x1 1 trim str i 将 i 转字符型 x2 2 trim str I 2 将 i 2 转字符型 if 3 x1 right x2 2 Then Form1 Print i 是同构数 End If Next i End Sub 题 20 过程 ComDiv 用以实现求任意两个正整数的最大公约数 请改正其中的错误 说明 只要修改标出出错位置 的下面那条语句 Public Sub ComDiv Dim m As Integer n As Integer 任意两个正整数 Dim i As Integer Dim div As Integer 最大公约数 输入两个正整数 要求 m 与 n 都必须大于零 Do m Val InputBox m n Val InputBox n 错误 1 Loop While m 0 And n 0 loop while m 0 or n 0 先将两个整数中的较小数假设为最大公约数 再依次往下 寻找能同时除尽 m 和 n 的数即为最大公约数 错误 2 div 0 div m If n m Then div n End If 错误 3 Do While m Mod div 0 And n Mod div 0 do until m mod div 0 and n mod div 0 错误 4 div div 1 div div 1 Loop Form1 Print m 和 n 的最大公约数是 div End Sub 题 21 过程 DelRepeat 实现以下功能 产生一个由 50 个 10 99 的随机整数组成的数组 整理数组 要求将数组中 与前面数组元素重复的数据删除 只保留第一次出现该数据的数组元素 将整理后数组输出 请在横线上填入必要的 内容 将横线删除掉后填入正确的内容 使其完整 Public Sub DelRepeat Dim x 50 As Integer Dim i As Integer j As Integer Dim count As Integer 整理后数组元素个数 产生数组并输出 Randomize For i 1 To 50 x i 1 int 90 rnd 10 Next i Form1 Print 原始数据 For i 1 To 50 Form1 Print x i Space 2 If i Mod 10 0 Then Form1 Print Next i 从第二个数组元素起逐个判断该数组元素是否与前面的数组元素数据重复 对重复的数据进行删除操作 count 50 i 2 Do For j 1 To i 1 If 2 x j x i Then Exit For End If Next j If j i Then 3 i i 1 Else For j i 1 To count x j 1 x j Next j 4 count count 1 End If Loop While 5 while I count Form1 Print 整理后数据 For i 1 To count Form1 Print x i Space 2 If i Mod 10 0 Then Form1 Print Next i End Sub 题 22 过程 even 用以验证一个偶数可以分解为两个素数之和 Isprime 用以判断 x 是否是素数 请在横线上填入必 要的内容 将横线删除掉后填入正确的内容 使其完整 Public Sub even 从键盘输入一个大于 4 的偶数 将它所有的不重复的分解式求出 Dim x As Integer Dim i As Integer 1 do while x 4 or x mod 20 保证 x 是大于 4 的偶数 x Val InputBox x Loop For i 3 To x 2 Step 2 在不大于 x 的奇数中找素数 2 if isprime i and isprime x i Form1 Print x i x i End If Next i End Sub Public Function Isprime x As Integer As Boolean Dim i As Integer 3 isprime true For i 2 To x 1 4 if x mod I 0 then Isprime False Exit For End If Next i End Function 题 23 打印输出一菱形图案 Public Sub prt 打印由 组成的菱形图案 Dim i As Integer j As Integer Dim start As String 每行起始空格数 Dim count As Integer 每行 个数 For i 1 To 9 If i 5 Then 1 start space 21 i count 2 i 1 Else start Space 11 i 2 count 19 2 i End If 3 form1 print start For j 1 To count Form1 Print Next j 4 form1 print Next i End Sub 题 24 计算 s 7 77 777 n 个 7 组成的数 Public Sub total 计算 s 7 77 777 n 个 7 组成的数 Const n 20 Dim s As Single Dim i As Integer For i 1 To n s s 1 number i Next i Form1 Print s s End Sub Public Function number 2 n as integer As Single Dim i As Integer number 0 For i 1 To n 3 number number 10 7 Next i End Function 题 25 在考生目录中 已有模块文件 Modify bas Modify bas 模块中的 CountTo60 过程是用于从一堆一分 二分 五分的硬币中取出 20 枚 使其总值为 60 分 要求输出取法的数量及每一种取法的一分 二分 五分的个数 请建立 工程将 Modify bas 模块加入工程中进行调试 注意 只要修改标出出错位置的下面那一条语句即可 其余代码不要 改动 从一堆一分 二分 五分的硬币中取出 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 one 1 To n for two 1 to n one five n one two 错误 2 If one two five 60 Then if one two 2 five 5 60 then k k 1 Form1 Print one one two two five five End If 错误 3 Next one next two 错误 4 Next two Next one Form1 Print k k End Sub 题 26 Modify bas 模块中的 Transpose 过程用于产生一个转置矩阵 所谓转置是指将二维数组中所有行和对应列 的元素进行交换 Modify bas 模块中的 Swap 过程用于交换两个变量的值 Public Sub Transpose 产生一个 6 6 的转置矩阵 将二维数组中所有行和对应列的元素进行交换 Dim a 1 To 6 1 To 6 As Integer Dim i As Integer j As Integer Form1 Print 原始数据 For i 1 To 6 For j 1 To 6 a i j Int Rnd 10 Form1 Print a i j Next j Form1 Print Next i For i 2 To 6 For j 1 To 1 i 1 2 swap a I j a j i Next j Next i Form1 Print 转置后数据 For i 1 To 6 For j 1 To 6 3 form1 print a i j Next j Form1 Print Next i End Sub Public Sub Swap a As Integer b As Integer Dim temp As Integer temp a a b b temp End Sub 题 27 过程 cloze 用以求 1 1000 中的所有完数 所谓完数是指一个数的所有因子之和等于其自身 请在横线上填 入必要的内容 将横线删除掉后填入正确的内容 使其完整 Option Explicit Dim a 50 As Integer 存放每个数分解出来的因子 Public Sub cloze 求 1 100 中的所有完数 Dim i As Integer j As Integer Dim n As Integer 因子个数 Dim s As Integer 因子和 For i 1 To 1000 n 0 s 0 factor 1 factor i n For j 1 To n s s a j Next j 2 if i s then Form1 Print i End If Next i End Sub Public Sub factor ByVal x As Integer ByRef k As Integer Dim i As Integer a 1 1 k 1 3 for I 2 to x If x Mod i 0 Then k k 1 4 a k i End If Next I End Sub 题 28 过程 Del 实现以下功能 产生 10 个 1 100 的随机整数 从键盘上输入一个数 将该数从数组中删除 请 在横线上填入必要的内容 将横线删除掉后填入正确的内容 使其完整 Option Explicit Public Sub Del Randomize Dim x As Integer Dim a As Integer Dim i As Integer pos As Integer ReDim a 10 As Integer For i 1 To 10 a i 1 int rnd 100 1 Next i Form1 Print 原始数据 For i 1 To 10 Form1 Print a i Next i Form1 Print x Val InputBox 输入删除的数 x pos 0 For i 1 To 10 If x a i Then 2 pos i Exit For End If Next i If pos 0 Then For i 3 pos To 9 4 a i a i 1 Next i ReDim Preserve a 9 Form1 Print 删除后数据 For i 1 To 9 Form1 Print a i Next i Form1 Print Else MsgBox 数组中未找到 a i j Next j 3 form1 print Next i End Sub 题 33 Modify bas 模块中的 JiSuan 过程是用于计算 1 1 2 1 3 1 99 1 100 的值并打印出 来 Public Sub JiSuan 计算 1 1 2 1 3 1 99 1 100 的值并打印出来 Dim i As Integer 错误 1 Dim k As Integer dim k as single Dim s As Single s 0 错误 2 For i 1 To 100 for i 1 to 100 step 2 k 1 i s s k 错误 3 k 1 i 1 k 1 i 1 s s k Next i Form1 Print s s End Sub 题 34 Modify bas 模块中的 Combination 过程是用于计算 m 个数据中取出 n 个数据的排列组合值 计算公式为 Cmn m n m n Modify bas 模块中的 n 过程是产生数据 数据的取值范围为 10 10 之间的随机数 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 n 必须保证输入的两个数 m n Loop until 错误 2 Cmn nFactor m nFactor n nFactor m n 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 n temp nfactor temp 错误 4 End Sub End function 题 35 Modify bas 模块中的 summary 过程是用于计算 1 2 20 并打印出计算结果 但不完整 请在横线上 填入必要的内容 使其完整 Modify bas 模块中的 nFaction 函数过程用于计算 n Public Function nFactor ByVal n As Integer As Double Dim i As Integer Dim temp As Double 1 temp 1 For i 1 To n temp temp i Next i nFactor 2 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 3 nfactor i Next i Form1 Print sum t End sub 题 37 Modify bas 模块中的 find 过程是用于找出被 3 5 7 除 余数为 1 的最小的 5 个整数 并将结果输出来 Option Explicit Public Sub find 该过程是用于找出被 3 5 7 除 余数为 1 的最小的 5 个整数 并将结果输出来 Dim countN n countN 0 n 1 Do n 1 n n 1 if 2 n mod 3 1 and n mod 5 1 and n mod 7 1 then Form1 Print n countN countN 1 End If Loop 3 until countN 5 End Sub 题题 38 38 Modify bas 模块中的 countEven 过程是用于统计在随机产生的 10 个两位整数中的偶数的个数并用消息框输 出 Option Explicit Public Sub countEven 该过程是用于统计在随机产生的 10 个两位整数中的偶数的个数并用消息框输出 Dim a 10 As Integer 存放 10 个随机数第一个为 a 0 Dim count As Integer Dim I As Integer n As Integer Randomize 错误 1 For I 0 To 10 For I 0 to 9 错误 2 n Int Rnd 90 n int rnd 90 10 a I n Form1 Print a I If a I Mod 2 0 Then count count 1 End If Next I 错误 3 msgbox 偶数个数 count msgbox 偶数个数 和 n 的最小公倍数是 multi End Sub Div 函数过程求任意两个正整数 m 和 n 的最大公约数 Public Function Div m As Integer n As Integer As Integer 该函数过程用于求任意两个正整