上机考试最全调试题及答案.doc

第二部分 浙江省VB二级试题解A程序调试题一、选择结构程序调试01Option ExplicitPublic Sub getanswer() 该过程是用于计算一元二次方程的根，并将结果输出来。 Dim dalt!, a#, b#, c# a = InputBox(输入系数a) b = InputBox(输入系数b) c = InputBox(输入系数c) dalt = b * b - 4 * a * c if -1- then dalt = Sqr(dalt) MsgBox Format(-b + dalt) / 2 / a), 0.00 + Chr(13) + Chr(10) + Format(-b - dalt) / 2 / a, 0.00) elseif -2- then MsgBox Format(-b / 2 / a, 0.00) + Chr(13) + Chr(10) + Format(-b / 2 / a, 0.00) Else dalt= -3- MsgBox Format(-b + dalt) / 2 / a, 0.00) + +i + Chr(13) + Chr(10) + Format(-b - dalt) / 2 / a, 0.00) + -i End IfEnd Sub二、单重循环程序调试02Option Explicit 这条语句要求在该模块中，使用变量前必须先声明。Public Sub Uppersen() 该过程是将一个英文句子的每个单词的首字母都变成大写。 从键盘上任意输入一条英文句子， 将句子中的每个单词的首字母都变成大写 例如：输入I am a good student. 要求输出I Am A Good Student. Dim oldsen As String, newsen As String Dim char As String, lastchar As String Dim k As Integer, i As Integer oldsen = InputBox(请输入英文句子：) k = -1- 以空格作为单词的界定，空格后的字母转换为大写字母 lastchar = -2- For i = 1 To k char = -3- If lastchar = Then char = UCase(char) End If newsen = newsen & char lastchar = char Next i Form1.Print input:; oldsen Form1.Print output:; newsenEnd Sub程序调试03Public Sub JiSuan() 该过程用于计算1-(1/2)+(1/3)-.+(1/99)-(1/100)的值并打印出来。 Dim i As Integer * 错误1 * Dim k As Integer Dim s As Single s = 0 * 错误2 * For i = 1 To 100 k = 1 / i s = s + k * 错误3 * k = 1 / i + 1 s = s + k Next i Form1.Print s=; sEnd Sub程序调试04Option ExplicitPublic Sub same() 该过程找出1-1000之间所有的同构数 所谓同构数是指一个数出现在它的平方数的右端 如25在25平方625的右端，则25为同构数 利用数字转字符再取出右端字符的方法进行判断 Dim i As Long Dim x1 As String, x2 As String For i = 1 To 1000 x1 = -1- 将i转字符型 x2 = -2- 将i2转字符型 If -3- Then Form1.Print i; 是同构数 End If Next iEnd Sub程序调试05Public Sub ArmstrongNumber() 该过程是用于求出1-999之间所有的Armstrong数，并输出。 所谓Armstrong数是指一个数等于它每位上数字的立方和。例如：371=33+73+13，那么371就是一个Armstrong数。 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- ten = Int(i Mod 100) 10) one = -2- If -3- Then Form1.Print i; is armstrong number End If Next iEnd Sub程序调试06Public Sub sum() 该过程是用于计算并输出f=1-1/(2*3)+1/(3*4)-1/(4*5)+1/(19*20)。 Dim f As Single Dim i As Integer Dim sign As Integer -1- f = 1 -2- f = f + sign / (i * (i + 1) -3- Next i Form1.Print f=; fEnd Sub程序调试07Option ExplicitPublic Sub eat() 该过程是用于计算猴子共摘了多少个桃子。 （小猴在一天摘了若干个桃子，当天吃掉了一半多一个； 第二天吃了剩下的一半多一个； 以后每天都吃尚存的一半零一个，到第7天早上要吃时只剩下一个了）， 并将结果输出来。 Dim n%, i%, x% x = 1 for i=6 to -1- step -2- -3- Next i Form1.Print 共有; x; 个桃子End Sub程序调试08Public Sub Fabonia() 该过程是对以下数列进行运算： 有一个数列，它的前三个数是0，1，2， 从第四个数起，每个数都是它前面的两个数之和 求出该数列的第17个数是多少 求出该数列的第几个数起每个数都超过1E+8 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 last_one = -1- last_two = -2- If i = 17 Then Form1.Print No:17=; this_one End If -3- Loop While this_one 1E+8End Sub程序调试09Public Sub Findat() 该过程是用于在一个字符串变量中查找”at”，并用消息框给出查找结果的报告：没有找到或找到的个数。 Dim str1 As String Dim length As Integer 字符串长度 Dim sum As Integer 查到的个数 Dim i As Integer str1 = InputBox(请输入一个字符串) length = -1- i = 1 sum = 0 Do While i -2- If -3- = at Then sum = sum + 1 End If i = i + 1 Loop If -4- Then MsgBox 没有找到！ Else MsgBox 找到了 & Str(sum) & 个 End IfEnd Sub程序调试10注：此题题目和第41题相同，但算法不一样。Option ExplicitPublic 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=) Loop While -1- 先将两个整数中的较小数假设为最大公约数，再依次往下 寻找能同时除尽m和n的数即为最大公约数 -2- If n m Then div = n End If Do While m Mod div 0 Or n Mod div 0 -3- Loop Form1.Print m; 和; n; 的最大公约数是：; divEnd Sub程序调试11Public 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) k = 1 Do *错误2* strleft = Left(str1, k) 从左边起逐个取出一个字符 *错误3* strright = Right(str1, k) 从右边起逐个取出一个字符 *错误4* If strleft 0 strright Then Exit Do End If k = k + 1 Loop While k length / 2 Then Form1.Print str1 & 是回文 Else Form1.Print str1 & 不是回文 End IfEnd Sub程序调试12Option ExplicitPublic Sub DToB() 该过程是将一个十进制正整数转换成为一个二进制数。 采用连除2取余数的方法，将一个十进制数转换为二进制数。 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- 求出除以2的余数 Bin = Trim(Str(res) & -2- Dec = -3- Loop While -4- Form1.Print 转换为二进制数为：; BinEnd Sub程序调试13Public Sub Guess() 该过程是猜数游戏，由计算机产生一个1，100的任意整数， 输入猜数后计算机给出提示，如果5次后还没有猜中就结束游戏并公布正确答案。 Dim R As Integer Dim X As Integer Dim times As Integer Randomize R = Int(Rnd * 100) + 1 产生一个在区间1,100 的任意整数 times = 1 Do X = Val(InputBox(输入猜数X) Select Case X Case R Form1.Print 猜中了 Exit Do * 错误1 * Case Is 5 If times 5 Then Form1.Print 猜数失败,游戏结束! * 错误3 * Form1.Print 正确答案为 & Str(X) End IfEnd Sub程序调试14Option ExplicitPublic Sub summary()该过程是用于计算s=1+2+22+23+，直至s超过1E+16 Dim s As Single Dim i As Integer -1- i = 1 -2- s = s + 2 i -3- Loop Form1.Print s=; sEnd Sub程序调试15Option ExplicitPublic Sub find() 该过程是用于找出被3、5、7除，余数为1的最小的5个整数，并将结果输出来。 Dim countN%, n% countN = 0 n = 1 Do n=-1- if -2- then Form1.Print n countN = countN + 1 End If Loop -3-End Sub程序调试16Option ExplicitPublic Sub e() 该过程是用于计算e的值并将结果输出，要求精确到0.000000000000001， e的计算公式为：e=1+1/1!+1/2!+1/n!。 Dim n, term, t n = 0: term = 1: t = 1 Do n = n + 1 t= -1- term= -2- Loop While t 0.000000000000001 form1.print e=& -3-End Sub*程序调试17Option ExplicitPublic Sub qiuN() 该过程是用于求出满足不等式1+2x+3x2+4x3+(n+1)xn1000的最大n值， 其中x是大于等于1的实数，其值由键盘输入。 Dim x As Single, s As Single, n As Integer, s1 As Single, p As Single x = Val(InputBox(x=) s = 1: n = 1 p = x while -1- s1 = s s = s + (n + 1) * p p=p* -2- n= -3- Wend n= -4- form1.Print The Maxism of n; n, s=; s1End Sub三、多重循环程序调试18Public Sub prt() 该过程是输出由数字组成的如下所示金字塔图案 9 888 77777 6666666 555555555 44444444444 3333333333333 222222222222222 11111111111111111 Dim i As Integer, j As Integer * 错误1 * For i = 9 To 1 Form1.Print Space(i); For j = 1 To 19 - 2 * i *错误2 * Form1.Print i Next j Form1.Print Next i *错误3 *End Function程序调试19Option ExplicitPublic Sub pyramid() 该过程用于打印数字金字塔 1 222 33333 4444444 555555555 6666666 77777 888 9 Dim i As Integer Dim j As Integer Dim start As Integer 每行起始空格数 Dim num As Integer 每行数字个数 For i = 1 To 9 If i = -1- Then start = 20 - i num = 2 * i - 1 Else start = 10 + i num = 19 - 2 * i End If For j = 1 To -2- Form1.Print Tab(start+j);-3- Next j Form1.Print Next iEnd Sub程序调试20(上机试试)Public Sub prime() 该过程是输出100到200之间所有的素数，并统计素数的个数 Dim i As Integer Dim j As Integer Dim k As Integer Dim t As Integer 统计素数的个数 Dim b As Boolean For i = 100 To 200 b = True k= - 1 -2 j = Int(Sqr(i) Do While k ave Then -3- Form1.Print x(i); Space(2); If -4- Then Form1.Print End If Next i Form1.Print Form1.Print 共有; count; 个在平均值之上.End Sub程序调试22Option ExplicitPublic Sub Del() 该过程从一个含有10个数组元素的数组中删除一个指定的数据，若该数据不存在，则给出提示。 先产生10个1，100的随机整数 从键盘上输入一个数，将该数从数组中删除 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) = 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 -1- Exit For End If Next i If pos 0 Then For i = -2- To 9 -3- Next i ReDim Preserve a(9) 保留原数组中的9个数 Form1.Print 删除后数据： For i = 1 To 9 Form1.Print a(i); ; Next i Form1.Print Else MsgBox 数组中未找到 & Str(x) & ,删除不成功 End IfEnd Sub程序调试23Option ExplicitPublic 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 = 1 To 10 *错误2* n = Int(Rnd * 90) a(I) = n Form1.Print a(I) If a(I) Mod 2 = 0 Then count = count + 1 End If Next I *错误3* msgbox(偶数个数：,count)End Sub程序调试24Option ExplicitPublic Sub sortchar() 该过程是对字符串进行整理， 首先从键盘上输入一个任意的字符串，将该字符串的所有组成字符拆分开， 再按照字符ASCII码从小到大的顺序将这些字符重新组成新的字符串。 例如输入a4fkze5，重新组合的字符串为45aefkz。 Dim x As String 原始字符串 Dim y As String 重新组合的字符串 Dim c() As String 拆分出的字符 Dim k As Integer 字符串长度 Dim i As Integer, j As Integer Dim temp As String x = InputBox(输入一个字符串) k = -1- ReDim c(k) As String 字符串拆分 For i = 1 To k c(i) = -2- Next i 字符排序 For i = 1 To k - 1 For j = -3- If c(i) c(j) Then temp = c(i) c(i) = c(j) c(j) = temp End If Next j Next i 排序后的字符组成新字符串 y = For i = 1 To k y = y & c(i) Next i Form1.Print 原始字符串; x Form1.Print 重新组合的字符串; yEnd Sub程序调试25Option ExplicitPublic Sub compositor() 该过程是用于产生20个不大于1000的自然数， 并使用选择分类法按从大到小的顺序输出，相同数不输出。 Const n = 20 Dim a(n), i, p, j, t For i = 1 To n a(i) = -1- Next i For i = 1 To n - 1 p = i For j = i To n If a(p) a(j) Then -2- Next j If -3- Then t = a(i): a(i) = a(p): a(p) = t Next i Form1.Print a(1) For i = 2 To n If a(i) a(i - 1) Then Form1.Print -4- Next i Form1.PrintEnd Sub程序调试26Option ExplicitPublic Sub prt() 该过程是输出由数字组成的如下所示杨辉三角形图案 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 1 6 15 20 15 6 1 Const n = 8 Dim a(n + 1) As Byte, i As Integer, j As Integer Dim s As String 给数组a赋初值 For i = 1 To n + 1 a(i) = 0 Next i 计算并打印第一个数 a(1) = 1 Form1.Print Space(2 * n + 2); 计算数字前的空格数 Form1.Print a(1) 计算其余行的数并打印 For i = 2 To -1- a(i) = a(i - 1) For j = -2- To 2 Step -1 -3- Next j Form1.Print Space(n - i + 1) * 2); For j = 1 To i s = Trim(Str(-4-) Form1.Print Space(Int(4 - Len(s) / 2 + 0.5) + s + Space(Int(4 - Len(s) / 2 + 0.5); Next j Form1.Print Next iEnd Sub五、多维数组程序调试27Public Sub Transpose() 该过程用于产生一个66的转置矩阵，将二维数组中所有行和对应列的元素进行交换。 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 - - 2 - Next j Next i Form1.Print 转置后数据 For i = 1 To 6 For j = 1 To 6 - 3 - Next j Form1.Print Next iEnd SubPublic Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = tempEnd Sub程序调试28Public 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 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.Cls Next iEnd Sub程序调试029PrintArray过程是输出一个右上三角元素（含对角线）为1，其余元素为0 的55矩阵Public Sub PrintArray()Dim a(1 To 5, 1 To 5) As IntegerDim i As Integer, j As IntegerFor i = 1 To 5 For j = 1 To 5 If - 1 - Then - 2 - End If Next jNext iFor i = 1 To 5 For j = 1 To 5 Form1.Print ; a(i, j); Next j - 3 -Next iEnd Sub六、Sub过程程序调试30Private Const n = 10Private a(1 To n) As IntegerTJ过程是将一批数据中小于零的数及它们的积打印出来数据由SCSJ过程产生，数据的取值范围为-10 10 之间的随机整数数Public Sub TJ() Dim i As Integer Dim t As Single t= - 1 - For i = 1 To 10 If - 2 - Then t = t * a(i) End If Next i Form1.Print T=; tEnd SubPublic 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 - Then J = -1 a(i) = j * Int(Rnd * (n + 1) Form1.Print a(i); Next i Form1.PrintEnd Sub程序调试31Dim a(30) As IntegerPublic Sub FindMax() 该过程是用于查找一批数据中的最大数，并输出最大数的值及最大数在数组中的下标值。 Dim Position As Integer 最大数在数组中的下标 Dim max As Integer 最大数 Dim i As Integer GenerateData max = -1- Position = -2- For i = 2 To 30 If a(i) max Then max = -3- Position = -4- End If Next i Form1.Print 最大值= & Str(max) Form1.Print 最大值的下标= & Str(Position)End SubPublic Sub GenerateData() Dim i As Integer For i = 1 To 30 a(i) = Int(500 * Rnd() + 1) Form1.Print a(i), If i Mod 5 = 0 Then Form1.Print Next iEnd Sub程序调试32Dim a(1 To 5, 1 To 4) As IntegerDim ave(1 To 5) As