二级VB习题整理-程序填空部分-程序调试题目

l Tiaoshi001启动工程文件程序调试源文件tiaoshi001.vbp，程序存在8处错误，请调试改正，并按原文件名和位置保存。正确结果见程序调试源文件tiaoshi001.vbp。改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。1.调试改错题1，程序中有2个错误。 以下程序的功能是在文本框中输入百分制成绩，单击调试改错题1按钮后，在标签上显示成绩等第，分优秀、合格和不合格，规定：成绩80为优秀；60成绩80为合格；成绩=8 s = 优秀 Case 6 To 7 s = 合格 Case Else s = 不合格 End Select Label1.Text = 成绩等第为： + sEnd Sub2.调试改错题2，程序中有3个错误。单击调试改错题2按钮，在Picture1显示有规律数字字符和字母字符图，见样例。Private Sub Command2_Click() Dim ch$,i%,j% Picture1.Cls For i = 1 To 5 Ch = Trim(i) For j = 1 To 5 输出数字字符 Picture1.Print Ch; Next j Picture1.Print Space(3); For j = i To 5 输出字母字符 Picture1.Print Chr(65); Next j Picture1.Print Next j End Sub3.调试改错题3，程序中有3个错误。单击调试改错题3按钮，自动产生两个 5999 之间的随机正整数，在Text2显示小的数a，Text3显示大的数b，计算a到b之间的偶数和，结果显示在Label3。 Private Sub Command2_Click() Dim a%, b%, c%, i% a = Int(Rnd * 995 + 5) 本句无错 b = Int(Rnd * 995 + 5) 本句无错 If a b Then t = b a = b b = t End If Text2 = a Text3 = b s = 1 For i = a To b If Mod(i,2)=0 Then s = s + i Next i Label3 = Sum= & sEnd Subl Tiaoshi002启动工程文件程序调试源文件tiaoshi002.vbp，程序存在8处错误，请调试改正，并按原文件名和位置保存。正确结果见程序调试源文件tiaoshi002.exe。改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。1.调试改错题1，程序中有2个错误。计算分段函数：，单击调试改错题1按钮，输出计算结果。Private Sub Command1_Click() Dim y!, x! x = Val(Text1.Text) If x = 0 Then y = x * x + 3 * x - 1 ElseIf 0 x = 1 Then y = 5 - x Else y = x - 5 End If Label1.Caption = y= + yEnd Sub2.调试改错题2，程序中有3个错误。本程序段共输出5行有规律的字符，如图所示。Private Sub Command2_Click() Dim ch$, i%, j% Picture1.Cls For i = 1 To 5 ch = Chr(i + 60) 输出字母字符 A的编码值为65，a的编码值为97 For j = 1 To 5 Picture1.Print ch; Next j Picture1.Print Space(3); 以下输出数字字符 ch = i For j = i To 5 Picture1.Print Trim(ch); Next j Picture1.Print Next iEnd Sub3.调试改错题3，程序中有3个错误。本程序段自动产生两个 500900 之间的随机正整数，在Text2显示大的数m，Text3显示小的数n。计算n与m之间所有3的倍数或者7的倍数的数值之和，结果显示在Label3。Private Sub Command3_Click() Dim m%, n%, i%, t%, sum！ m = Int(Rnd * 400 + 500) 本句无错 n = Int(Rnd * 400 + 500) 本句无错 If m n Then m = t m = n n = t End If Text2 = m Text3 = n sum = 1 For i = n To m If i Mod 3 = 0 And i Mod 7 = 0 Then sum = sum + i End If Next i Label3.Caption = Sum= & sumEnd Subl Tiaoshi003启动工程文件程序调试源文件tiaoshi003.vbp，请调试改正，并按原文件名和位置保存。正确结果见样例程序调试源文件tiaoshi003.exe。 改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。调试改错题1, 程序中有2个错误。程序的功能是单击调试改错题1按钮，随机产生一个2000-2300之间的年份，在文本框显示；在标签2显示是否是闰年。判断闰年：若该年份能够被4整除但不能被100整除，或者能够被400整除,则该年份是闰年。程序中有2个错误，请调试改正。Private Sub Command1_Click() Dim year% Dim t1 As Boolean, t2 As Boolean, t3 As Boolean 3个逻辑变量用于存放3个条件的结果 year = Int(Rnd() * 301 + 2000) 此句正确 year = Text1.Text t1 = year Mod 4 = 0 t2 = year Mod 100 0 t3 = year Mod 400 = 0 If (t1 And t2) And t3 Then Label2.Caption = year & 年是闰年 Else Label2.Caption = year & 年不是闰年 End IfEnd Sub调试改错题2, 程序中有3个错误。单击调试改错题2按钮，启动定时器，显示打字机效果的文字和光标效果（_）；当文字显示完整，关闭定时器，光标不显示,见样例。程序中有3个错误，请调试改正。Private Sub Command2_Click() Timer1.Enabled = FalseEnd Sub Private Sub Timer1_Timer() Static p% p为记录字符位置的变量 Dim s$ s = 欢迎参加2011年计算机等级考试 Label3.Caption = Mid(s, p) & _ 取字符串左起p个字符 If p = Len(s) Then Timer1.Enabled = True Label3.Caption = s Else p = p + 1 End IfEnd Sub调试改错题3, 程序中有3个错误。计算多项式 e = 1+1/1！ + 1/2！+1/3！+1/6！的值。Private Sub Command3_Click() Dim i As Integer Dim f As Long Dim ee As Double ee = 1 f = 0 For i = 1 To 6 f = f * i ee = ee + f Next Label4.Caption = e= + eeEnd Subl Tiaoshi004启动解决方案文件程序调试源文件tiaoshi004.vbp，请调试改正，并按原文件名和位置保存。正确结果见样例程序调试源文件tiaoshi004.exe。 改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。调试改错题1, 程序中有2个错误。程序的功能是:已知直角坐标系中某点的x=-20,在文本框1中输入y的坐标值，并单击调试改错题1按钮，可在标签2中判断该点是否在第1或第2象限。程序中有2个错误，请调试改正。Private Sub Command1_Click() 调试改错题1按钮 Dim x!, y! x = -20 Text1.Text = y If x 0 And y 0 Then Label2.Caption = 该点在第1象限 ElseIf x 0 y Then Label2.Caption = 该点在第2象限 Else Label2.Caption = 该点不在第1、2象限 End IfEnd Sub调试改错题2, 程序中有3个错误。单击调试改错题2按钮，启动定时器，在已设定右对齐属性的文本框2中从左至右擦除文字,擦除完毕时关闭定时器，见样例。程序中有3个错误，请调试改正。Private Sub Command2_Click()调试改错题2按钮 Timer1.Enabled = True 开启计时器 End Sub Private Sub Timer1_Timer() Dim s$ s = Visual Basic程序设计 Static i% Text2.Text = Mid(s, 1, Len(s) - i) 文本框已设置右对齐属性 If i = Len(s) Then Timer1.Enabled = False Else i = 1 End If End Sub调试改错题3, 程序中有3个错误。用下列多项式可求得的近似值：计算当n不超过300时的近似值。程序中有3个错误，请调试改正。Private Sub Command3_Click()调试改错题3按钮 Dim pi#, t#, n#, s% pi = 0 n = 1 s = 1 Do n = n + 2 t = 1 / n s = -1 用于分式正负符号转换 pi = pi + s * t Loop While n = 300 pi = 4 * pi Label3.Caption = 当n= & n - 2 & 时， & pi= + piEnd Subl Tiaoshi005启动工程文件程序调试源文件tiaoshi005.vbp，程序存在8处错误，请调试改正，并按原文件名和位置保存。正确结果见样例程序调试源文件tiaoshi005.exe。改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。调试改错题1,有2处错误：输入18位身份证号码，通过第710位取出出生年，给出寄语。对1959（含）出生的人，寄语为步入中老年，请您注意身体！；对1960年代和1990年代出生的人，寄语均为60后和90后要多沟通，避免代沟！; 对于19701989年出生的人，寄语为70、80后的青年，祝你工作顺利！；对于2000后出生的人，寄语为小朋友，祝你茁壮成长！; 其余判断为输入错误，清空文本框并置焦点。 Private Sub Command1_Click()Dim bthyear%, lbltx$ bthyear = Val(Mid(Text1.Text, 7, 4) Select Case bthyear Case Is =1960 and bthyear=1990 and bthyear 2008 lbltx = 小朋友，祝你茁壮成长！ Case Else lbltx = 输入错了吧？！请重新输入 Text1.Text = Text1.SetFocus End Select Label2 = lbltxEnd Sub调试改错题2，有3处错误：产生隔行轮换显示字母和数字的菱形图案（规律如图）Private Sub Command2_Click()Dim i%, j%, k%, p% p = 3 For i = 0 To 14 If i = 7 Then k = i Else k = 14 - i End If Picture1.Print Tab(p + 7 - k); If k Mod 2 Then For j = k To 3 * k Picture1.Print Chr(66 + k); Next j Else For j = k To 2 * k Picture1.Print Trim(Str(k); Next j End If Picture1.Print Next iEnd Sub调试改错题3，有3处错误：随机产生120个大写字符串，并随机产生一个大写字母分别填入两个文本框中，统计这个大写字母在该串中出现的次数。Private Sub Command3_Click()Dim str1$, str2$, i%, j%, sum% Text2 = i = Int(Rnd() * 20 + 1) 产生120之间的随机整数 For j = 1 To i Text2 = Text2 + Chr(64 + Int(Rnd() * 26 + 1) 随机产生大写字母字符串 Next Text3 = Chr( Int(Rnd() * 26 + 1) str1 = Text2 str2 = Text3 sum = 1 For j = 1 To i If Left(str1, j, 1) = str2 Then sum = sum + 1 End If Next If sum 0 Then Label4 = str2 & 在字符串中出现了 & sum & 次。 Else Label4 = str2 & 在字符串中没有出现过 End IfEnd Subl Tiaoshi006启动工程文件程序调试源文件tiaoshi006.vbp，程序存在5个错误，请调试改正，并按原文件名和位置保存。正确结果见样例程序调试源文件tiaoshi006.exe。改错方法：不能修改或重新定义变量，不可以改变语句次序，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。1.改错题1 10位学生参加2门课程的考试，在图形框内显示每个学生的2门课程的平均成绩 利用Rnd产生0100分数，程序中有3个错误，请调试改正。Private Sub Command1_Click() Dim aver!,i%,j%,m% Picture1.Cls Picture1.Print 成绩1 成绩2 平均 For i = 1 To 10 aver = 1 For j = 1 To 2 m = Int(Rnd * 100) 产生0100分数 Picture1.Print m & String(7 - Len(str(m), ); 显示成绩,控制距离 aver = aver & m 成绩累加 Next j aver = aver / 2 Picture1.Print Format(aver, 00.00) 显示平均成绩 Next iEnd Sub2.改错题2 本程序段用数字19绘制一个倒三角形（17个9,15个8.），结果显示在Label1。 程序中有2个错误，请调试改正Private Sub Command1_Click() Dim i%, j% lable1.Caption = vbCrLf vbCrLf回车换行 For i = 9 To 1 Step -1 Label1.Caption = Label1.Caption & Space(20 - 2 * i) Space控制距离 For j = 1 To i - 1 产生一行上的数字 Label1.Caption = Label1.Caption & Str(i) Next Label1.Caption = Label1.Caption & vbCrLf Next iEnd Subl Tiaoshi007启动工程文件程序调试源文件tiaoshi007.vbp，程序存在5个错误，请调试改正，并按原文件名和位置保存。正确结果见样例程序调试源文件tiaoshi007.exe。改错方法：不能修改或重新定义变量，不允许增加或删除语句，不可以改变语句次序，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。1.改错题1 以下程序的功能是：求数列2/1，3/2，5/3，8/5，前12项之和，并在Label内按每行4个显示数列项，最后显示其和。（数列的后一项的分子为前一项的分子与分母之和，后一项的分母为前一项的分子） 程序中有3个错误，请调试改正。Sub Command1_Click() Dim s As Double, i As Integer, n As Single, m As Single lable1.Caption = n = 2 m = 1 s =1 For i = 1 To 12 Label1.Caption = Label1.Caption & n & / & m & + 在Label内显示数列项 If i Mod 4 = 0 Then 每行显示4项，vbCrLf回车换行 Label1.Caption = Label1.Caption & vbCrLf End If s = s + m / n t = m + n m = n n = t Next i Label1.Caption = Label1.Caption & = & Format(s, #.#)End Sub2.改错题2 本程序用字母AI在Picture1控件显示一个三角型（1个A，3个B，5个C，,17个I）。 程序中有2个错误，请调试改正。Sub Co