VB 改错题
VB程序改错40题
第2题（1.0分）题号:129'------------------------------------------------'【程序改错】'------------------------------------------------'题目：该程序实现将输入的 0 - 255 之间的正整数转' 换成二进制数'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Const n = 8Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox("请输入一个 0 - 255 之间的正整数："))Print x'**********FOUND**********For m = 1 To na(m) = x Mod 2'**********FOUND**********x = x / 2Next ms = " "For m = n To 0 Step -1'**********FOUND**********s = Str(a(m))Next mPrint sEnd Sub答案：=======(答案1)=======For m = 0 To n=======(答案2)=======x= x \ 2=========或=========x= int(x/2)=======(答案3)=======s = s + Str(a(m))第3题（1.0分）题号:463'------------------------------------------------'【程序改错】'------------------------------------------------'题目：以下程序功能是输入三个数，由大到小排序。
VB改错题(答案)
1.程序的功能是：单击命令按钮“输出”，在图片框Picture1中输出费波那契数列的前20项项值，要求按区输出，每行输出4个项值。
程序中有两处错误，请修改程序并运行，直到得出正确结果。
注意：程序中的修改行就在注释行：'**********found*************' '请不要删除该行'的下面，请不要修改程序中的其他部分。
最后把修改后的文件按原来文件名存盘。
第1个出错位置：For i=3 to 20第2个出错位置：If i Mod 4=0 then Picture1.PrintPrivate Sub Command1_Click()Dim f(40) As LongDim i As IntegerPicture1.Clsf(1) = 0f(2) = 1Picture1.Print f(1), f(2),'**********found*************' '请不要删除该行'For i = 1 To 40For i=3 to 20f(i) = f(i - 1) + f(i - 2)Picture1.Print f(i),'**********found*************' '请不要删除该行'If i Mod 4 = 0 Then Picture.PrintIf i mod 4=0 then picture1.printNext iEnd Sub2. 程序的功能是：程序运行时，单击“输出”按钮，产生10个[0，99]之间的随机整数存入数组A中，并按照相反的顺序输出在窗体上。
程序中有两处错误，请修改程序并运行，直到得出正确结果。
第1个出错位置：A(i)=Int(Rnd*100+0) p50第2个出错位置：Print A(11-i);Private Sub Command1_Click()RandomizeDim A(10), I As IntegerForm1.ClsFor I = 1 To 10'*********found******** '请不要删除该行A(I) = Int(Rnd * 99) A(i)=Int(Rnd*100+0)Print A(I);Next IPrintFor I = 1 To 10'*********found******** '请不要删除该行Print A(I); Print A(11-i) (注意答案中间无;)Next IEnd Sub3. 在考生文件夹下有一个工程文件Modi1.vbp，相应的窗体文件为Modi1.frm，此外还有一个名为Modiin.dat的文本文件，其内容如下：32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37程序运行后，单击窗体，将把文件Modiin.dat中的数据输入到二维数组Mat中，在窗体上按5行5列的矩阵形式显示出来，然后交换矩阵第一行和第三行的数据，并在窗体上输出交换后的矩阵。
VB程序改错
VB程序改错四、程序改错共7题第1题题号:7'【题目】从10个各不相同的正整数中，剔除若干个数。
使得保留下来的数中，' 任意两个数的和都不是平方数'（所谓平方数就是该数等于某一个数的平方，例如4就是一个平方数）。
Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(10) As Integer, i As Integer, j As Integer, p As Integer, k As Integer'**********FOUND**********Do While p <= 10k = Int(20 * Rnd) + 1For j = 1 To p'**********FOUND**********If k = a(j) Then Exit DoNext jIf j > p Thenp = p + 1a(p) = kText1 = Text1 & Str(k)End IfLoopCall delete(a, p)For i = 1 To pText2 = Text2 & Str(a(i))Next iEnd SubPrivate Sub delete(a() As Integer, p As Integer)Dim idx As Integer, j As Integer, sum As Integer idx = 2Do While idx < pFor j = 1 To idx - 1sum = a(idx) + a(j)If Int(Sqr(sum)) = Sqr(sum) Then Exit For Next j'**********FOUND**********If j > idx - 1 Thena(idx) = a(p)p = p - 1Elseidx = idx + 1End IfLoopEnd Sub答案：=======(答案1)=======Do While p < 10=======(答案2)=======If k = a(j) Then Exit For=======(答案3)=======If j <= idx - 1 Then第2题题号:8'【题目】本程序的功能是生成一组（10个）两位的互质数。
VB上机模拟改错题
(本试卷完成时间 60分钟)[考试须知]1.改错题界面不作要求,主要用来调试程序,题目中有参考界面,则仅作参考;2.考试结束后,文件须存放在指定位置,否则不予评分;3.程序代码书写应成锯齿形。
一、改错题（14分）[题目]随机生成30个三位正整数显示在列表框List1中，并从中找出所有回文数显示在多行文本框Text1中。
Option ExplicitOption Base 1Private Sub Command1_Click()Dim i As IntegerDim A(30) As IntegerFor i = 1 To 30A(i) = Int(Rnd * 900 + 100)List1.AddItem A(i)Next iFor i = 1 To 30If judge(A) ThenText1 = Text1 & CStr(A(i)) & Chr(13) & Chr(10)End IfNext iEnd SubPrivate Function judge(ByVal x As Integer) As BooleanDim S As String, i As IntegerS = Str(x)For i = 1 To Len(S) \ 2If Mid(S, i, 1) = Mid(S, Len(S) - i + 1, 1) Then Exit ForNext iIf i > Len(S) \ 2 Thenjudge = TrueElsejudge = FalseEnd IfEnd Function[要求]1.新建工程,Copy上述代码,改正程序中的错误；2.改错时,不得增加或删除语句,但可适当调整语句位置；3．按要求保存文件，上传窗体文件……G1.frm。
(本试卷完成时间 60分钟)[考试须知]1.改错题界面不作要求,主要用来调试程序,题目中有参考界面,则仅作参考;2.考试结束后,文件须存放在指定位置,否则不予评分;3.程序代码书写应成锯齿形。
省二 vb程序改错
count = 0
x = 200
While x <= 400
If x Mod 3 = 0 Or x Mod 7 <> 0 Then
count = count + 1
End If
x = x + 1
Loop
Print count
End Sub
k = k + 1
Wend
s = s + t
i = i + 1
Wend
Print s
End Sub
答案：40346
3004题:
程序功能：计算s=2!+4!+6!+8!。程序中有两行有错误。改正错误，使它能输出正确的结果。
原程序：
Private Sub Command1_Click()
Number = Number + 1
End If
Next x
Print Number
End Sub
答案：21
3020题:
程序功能：sum=d+dd+ddd+……+ddd..d(d为1-9的数字)。例如：3+33+333+3333（此时d=3,n=4）。从键盘上输入d 的值为8，n的值为9，求sum的值。程序中有两行有错误。改正错误，使它能输出正确的结果。
Next count
print count
End Sub
答案：19
3008题:
程序功能：求1到500间，同时能被5和9整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。
原程序：
VB程序改错40题
第57题（1.0分）题号:465'------------------------------------------------'【程序改错】'------------------------------------------------'题目：用InputBox函数输入一个字符串，编写程序按与' 输入的字符相反的次序用Msgbox函数输出这个字' 符串。
如输入字符串为"abcdefgh"，则输出为"h' gfedcba"，输出效果如图1。
'------------------------------------------------ Option ExplicitPrivate Sub Command1_Click()Dim pristr As String, outstr As StringDim i As Integerpristr = InputBox("please input a string")'**********FOUND**********For i = 0 To Len(pristr)'**********FOUND**********outstr = outstr + Mid(pristr, Len(pristr) - i) Next i'**********FOUND**********MsgBox outstr, , "The Output Result "End Sub答案：=======(答案1)=======For i = 0 To Len(pristr) - 1=========或=========For i = 0 To -1+Len(pristr)=======(答案2)=======outstr = outstr + Mid(pristr, Len(pristr) - i, 1)=========或=========outstr = Mid(pristr, Len(pristr) - i, 1)+outstr=======(答案3)=======MsgBox outstr, vbQuestion, "The Output Result "第59题（1.0分）题号:147'------------------------------------------------'【程序改错】'------------------------------------------------'题目：下面的程序用来产生并输出图示的杨辉三角。
VB程序改错题
VB程序改错题程序改错1.题目：已知C的公式表示如下:'n!'C=------------------'(n-m)!某m!'函数过程fac()求k！函数,在Fomr_Click事件中完成运算，'请修正程序中错误。
'------------------------------------------------OptionE某plicitPrivateFunctionfac(kAInteger)ASingleDim某ASingle,jAInteger 某=0Forj=1Tok某=某^jNe某tjfac=某EndFunctionPrivateSubForm_Click()DimCASingleDimmAInteger,nAIntegerm=Val(InputBo某(\请输入一个整数(m)：\n=Val(InputBo某(\请输入一个整数(n)：\C=fac(n)/fac(n-m)某fac(m)Print\EndSub2.题目：程序功能为打印下列图形：'某'某某'某某某'某某某某'某某某某某'------------------------------------------------OptionE某plicitPrivateSubForm_Click()ClDimiAIntegerDimjAIntegerFori=1To7Forj=1To5Print\LoopPrintNe某tiEndSub3.题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。
'------------------------------------------------OptionE某plicitPrivateSubCreateRND()DimTempAIntegerDimIAIntegerDimNAIntegerDim某(10)AIntegerDimJAIntegerN=10Print\数据：\ForI=1ToN某(I)=Int(Rnd()某90)Print某(I);Ne某tIPrintPrint\排序：\ForI=0ToN-1ForJ=I+1ToNIf某(I)>某(J)ThenTemp=某(I)某(J)=某(I)某(I)=TempEndIfNe某tJPrint某(I);Ne某tIPrintEndSub4.题目：随机产生并输出100以内大于50的20个整数，输出时每5个数一行。
vb程序改错和程序设计
【程序改错】'题目：该程序的功能是求出100到200之间的全部素数，并且按每行4个、每个数据之间有10个空格的格式输出。
'注意：不可增加或删除程序行，也不可以更改程序结构' Private Sub Form_Click()dim k as integer,i as integer,j as integerk = 0For i = 100 To 200'**********FOUND**********For j = 1 To i - 1If i Mod j = 0 Then Exit ForNext jIf j = i Then'**********FOUND**********Print i; Tab(10);k = k + 1'**********FOUND**********If k Mod 5 = 0 Then Print;End IfNext iEnd Sub答案：1). For j = 2 To i - 1 或For j = 2 To -1 + i2). Print i; Space(10);3). If k Mod 4 = 0 Then Print━━━━━━━━━━━━━━━━'【程序设计】' '题目：(事件)单击窗体。
(响应)求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中答案：26__________________________________Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum'【程序改错】'------------------------------------------------'题目：在下面的程序段中过程pd可以判断任意三个数能' 否构成三角形的三边，利用该过程的判定结果，对能构成三角形的计算其面积，构不成的显示"不能构成三角形Option ExplicitPrivate Sub Form_Click()'**********FOUND**********Dim x%, y%, z%, s%, b As Boolean,h as Singlex = InputBox("请输入三角形的边长")y = InputBox("请输入三角形的边长")z = InputBox("请输入三角形的边长")= InputBox("请输入三角形的边长")b = pd(x, y, z)h = (x + y + z) / 2'**********FOUND**********If not b Thens = Sqr(h * (h - x) * (h - y) * (h - z))Print "三角形面积是"; sElsePrint "不能构成三角形"End IfEnd Sub'**********FOUND**********Public Function pd( ) As BooleanIf x > 0 And y > 0 And z > 0 And x + y > 0 And x + z > y And y + z > x Thenpd = TrueElsepd = FalseEnd IfEnd Function答案：1). Dim ★x%★, ★y%★,★z%★, ★s!★, ★b★As Boolean★, ★h As Single2). If b Then3). Public Function pd(x%, y%, z%) As Boolean━━━━━━━━━━━━━━━━三、程序设计共1题（共计15分)'题目：(事件)双击窗体。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
【程序改错】'------------------------------------------------'题目：下面的程序段用于删除数组中指定位置的数字，'如果位置错误给出提示，否则分别显示删除前后'的数组元素'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim a(10) As Integer, x As Integer, i As Integer, k As Integer For i = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);Next iPrintx = InputBox("请输入要删除第几位数字")'**********FOUND**********If x > 0 And x <= 10 Then 'If x > 0 Then'**********FOUND**********For k = x To 9 'For k = x To 10a(k) = a(k + 1)Next kPrint "删除后的数组:"For i = 1 To 9Print a(i);Next iElsePrint "删除位置错误"'**********FOUND**********End If 'EndEnd Sub【程序改错】'------------------------------------------------'题目：在下列程序段中，过程fb可以显示任意长度的菲'波那契数列，现要求通过键盘输入一数字，利用'该过程显示不超过指定数字大小的数列'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim x As Integerx = Val(InputBox("请指定显示范围"))'**********FOUND**********Call fb(x) 'call fb yEnd SubPublic Sub fb(x As Integer)Dim i&, j%, k%j = 1i = 1Print i; j;k = i + j'**********FOUND**********Do Until k > x 'Do While k > xPrint k;i = jj = k'**********FOUND**********k = i + j 'k = i - jLoopEnd Sub'【程序改错】'------------------------------------------------'题目：下面的程序段用于实现以下功能：建立一顺序文'件，存放10名同学的学号和三门功课成绩，显示'该文件内所有记录，并同时显示其总分和平均分'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim no%, c1%, c2%, c3%, i As Integer'**********FOUND**********Open "c:\2.txt" For Output As #1 'Open "c:\2.txt" For Input As #1 For i = 1 To 3no = InputBox("请输入学号")c1 = InputBox("请输入数学成绩")c2 = InputBox("请输入语文成绩")c3 = InputBox("请输入外语")Write #1, no, c1, c2, c3Next iClose #1'**********FOUND**********Open "c:\2.txt" For Input As #1 'Open "c:\2.txt" For Output As #1 For i = 1 To 3'**********FOUND**********Input #1, no, c1, c2, c3 'Print #1, no, c1, c2, c3Print no, c1, c2, c3, c1 + c2 + c3, (c1 + c2 + c3) / 3Next iClose #1End Sub'【程序改错】'------------------------------------------------'题目：以下程序段用于输出100-300的所有素数'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As IntegerFor n = 101 To 300 Step 2k = Int(Sqr(n))i = 2'**********FOUND**********swit = 0 'swit = 1'**********FOUND**********While swit = 1 'While swit = 0If n Mod i = 0 Thenswit = 1Else'**********FOUND**********i = i + 1 ' i = i - 1End IfWendIf swit = 0 ThenPrint n;If n Mod 7 = 0 Then PrintEnd IfNext nEnd Sub'【程序改错】'------------------------------------------------'题目：在下面的程序段中过程pd可以判断任意三个数能' 否构成三角形的三边，利用该过程的判定结果，' 对能构成三角形的计算其面积，构不成的显示"' 不能构成三角形"'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Option ExplicitPrivate Sub Form_Click()'**********FOUND**********Dim x%, y%, z%, s!, b As Boolean, h As Single 'Dim x%, y%, z%, s%, b As Boolean, h As Single x = InputBox("请输入三角形的边长")y = InputBox("请输入三角形的边长")z = InputBox("请输入三角形的边长")b = pd(x, y, z)h = (x + y + z) / 2'**********FOUND**********If b Then 'If Not b Thens = Sqr(h * (h - x) * (h - y) * (h - z))Print "三角形面积是"; sElsePrint "不能构成三角形"End IfEnd Sub'**********FOUND**********Public Function pd(x%, y%, z%) As Boolean 'Public Function pd() As BooleanIf x > 0 And y > 0 And z > 0 And x + y > 0 And x + z > y And y + z > x Thenpd = TrueElsepd = FalseEnd IfEnd Function'【程序改错】'------------------------------------------------'题目：以下程序段用于打印如下图形式的九九乘法表：'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerPrint Tab(30); "9*9 table"Print: PrintPrint " * ";For i = 1 To 9'**********FOUND**********Print Tab(i * 6); i; 'Print Tab(i * 6); iNext iPrintFor j = 1 To 9Print j; " ";'**********FOUND**********For k = 1 To 9 'For k = 1 To 9(可能会根据图的样式更改为j To 9或1 To j) '**********FOUND**********Print Tab(k * 6); j * k; " "; 'Print Tab(j * 6); j * k; " ";Next kPrintNext jEnd Sub'【程序改错】'------------------------------------------------'题目：一个两位的正整数，如果将它的个位数与十位数' 对调，则产生另一个正整数，我们把后者叫做前' 者的对调数，现给定一个两位的正数，请找到另' 一个两位的正整数，使得这两个两位正整数之和' 等于它们各自的对调数之和。