VB程序改错

试卷 云南省高中会考试卷哪里下载南京英语小升初试卷下载电路下试卷下载上海试卷下载口算试卷下载 编号：8248 试卷编号：8248 所属语言：Visual Basic 试卷 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 ：VB_程序改错 试卷总分：83分 共有 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 型：1种 一、程序改错 共83题 （共计83分） 第1题 （1.0分） 题号:470 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:在窗体上有两个命令按钮和一个文本框，名称分别为 ' cmdstart（"开始"）、cmdend（"结束"）和Text1。 ' 文本框Text1中的字符个数不超过200个。程序刚开始 ' 运行时，"结束"按钮成灰色，单击"开始"按钮后，将 ' 文本框Text1.text中的字符按其ASCII码值由大到小自 ' 左而右重新组合，并在窗体上输出重组后的字符串，同 ' 时使"结束"按钮能响应而"开始"按钮不能响应。 '------------------------------------------------ Option Explicit Private Sub Form_load() '**********FOUND********** Cmdend.Enabled = True End Sub Private Sub Cmdstart_click() Dim n As Integer, I As Integer, j As Integer, p As Integer Dim a(200) As String * 1, str1 As String, t As String str1 = Text1.Text n = Len(str1) For I = 1 To n a(I) = Mid(str1, I, 1) Next I '**********FOUND********** For I = 0 To n - 1 p = I For j = I + 1 To n '**********FOUND********** If a(p) < a(j) Then j = p Next j If p <> I Then t = a(I): a(I) = a(p): a(p) = t Next I For I = 1 To n Print a(I); Next I Cmdend.Enabled = True Cmdstart.Enabled = False End Sub Private Sub Cmdend_click() End End Sub 答案： =======(答案1)======= Cmdend.Enabled = False =========或========= Cmdend.Enabled = -1 =======(答案2)======= For I = 1 To n - 1 =========或========= For I = 1 To -1+n =======(答案3)======= If a(p) < a(j) Then p = j =========或========= If a(j) > a(p) Then p = j 第2题 （1.0分） 题号:129 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：该程序实现将输入的 0 - 255 之间的正整数转 ' 换成二进制数 '------------------------------------------------ Option Explicit Private Sub Form_Click() Const n = 8 Dim 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 n a(m) = x Mod 2 '**********FOUND********** x = x / 2 Next m s = " " For m = n To 0 Step -1 '**********FOUND********** s = Str(a(m)) Next m Print s End 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 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：以下程序功能是输入三个数，由大到小排序。 '------------------------------------------------ Option Explicit Dim A As Integer Dim B As Integer Dim C As Integer Private Sub Form_Click() Dim nTemp As Integer A = Val(InputBox("Please input first integer", "输入正整数")) B = Val(InputBox("Please input second integer", "输入正整数")) C = Val(InputBox("Please input third integer", "输入正整数")) '**********FOUND********** If A <= C Then nTemp = A A = B B = nTemp End If '**********FOUND********** If B <= C Then nTemp = A A = C C = nTemp End If '**********FOUND********** If A <= B Then nTemp = B B = C C = nTemp End If Print "The integers in order is"; A; B; C End Sub 答案： =======(答案1)======= If A <= B Then =========或========= If B >= A Then =======(答案2)======= If A <= C Then =========或========= If C >= A Then =======(答案3)======= If B <= C Then =========或========= If C >= B Then 第4题 （1.0分） 题号:127 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：下面程序可输出如下图形： ' * ' *** ' ***** ' ******* ' ********* '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4 m = 1 s = "*" For i = 5 To 1 Step -1 '**********FOUND********** Print Spc(n) For j = 1 To 2 * m - 1 Print s; Next j Print '**********FOUND********** n = n + 1 '**********FOUND********** m = m - 1 Next i End Sub 答案： =======(答案1)======= Print Spc(n); =========或========= Print Spc(i); =========或========= ? Spc(n); =========或========= ? Spc(i); =======(答案2)======= n = n - 1 =========或========= n = - 1+n =======(答案3)======= m = m + 1 第5题 （1.0分） 题号:469 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：已知一个函数f(x)=1000*sin(x)，利用绘图方法 ' 在图片框中显示其图形。结果如图1 '------------------------------------------------ Option Explicit Private Const pi = 3.14159 Private Sub Command1_Click() '**********FOUND********** Dim x As Integer Picture1.Scale (-pi, -1200)-(pi, 1200) '**********FOUND********** For x = -pi To pi Step pi '**********FOUND********** Picture1.PSet (x, 1000 * pi * Sin(x)), vbRed Next x End Sub 答案： =======(答案1)======= Dim x As Single =========或========= Dim x! =======(答案2)======= For x = -pi To pi Step pi / 180 =======(答案3)======= Picture1.PSet (x, 1000 * Sin(x)), vbRed =========或========= Picture1.PSet (x, Sin(x)*1000), vbRed 第6题 （1.0分） 题号:497 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim N As Integer, Sum As Integer, S1 As String, S2 As String Dim i As Integer, Ch As String Sum = 0 N = InputBox("输入整数n") S1 = Str(N) '**********FOUND********** S1 = RTrim(S1) For i = 1 To Len(S1) '**********FOUND********** Ch = Mid(N, i, 1) '**********FOUND********** Sum = Val(Ch) Next i Print "该整数的各位数之和是："; Sum End Sub 答案： =======(答案1)======= S1 = Trim(S1) =========或========= S1 = lTrim(S1) =======(答案2)======= Ch = Mid(S1, i, 1) =======(答案3)======= Sum = Sum + Val(Ch) =========或========= Sum = Sum + Val(Ch) 第7题 （1.0分） 题号:454 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。 '------------------------------------------------ Option Explicit Private Sub CreateRND() Dim Temp As Integer Dim I As Integer Dim N As Integer Dim X(10) As Integer Dim J As Integer N = 10 Print "数据：" For I = 1 To N '**********FOUND********** X(I) = Int(Rnd() * 90) Print X(I); Next I Print Print "排序：" For I = 0 To N - 1 For J = I + 1 To N '**********FOUND********** If X(I) > X(J) Then '**********FOUND********** Temp = X(I) X(J) = X(I) X(I) = Temp End If Next J Print X(I); Next I Print End Sub Private Sub Command1_Click() CreateRND End Sub 答案： =======(答案1)======= X(I) = Int(10 + Rnd() * 90) =========或========= X(I) = Int(10 + Rnd() * 90) =======(答案2)======= If X(I) < X(J) Then =========或========= If X(I) <= X(J) Then =========或========= If X(J) > X(I) Then =========或========= If X(J) >= X(I) Then =======(答案3)======= temp = X(J) 第8题 （1.0分） 题号:496 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:使用Timer函数设计用来暂停指定时间（秒）的Sub过程。 '------------------------------------------------ Option Explicit Static Sub delay(delaytime) Dim finish As Single Const allseconds = 24& * 60& * 60 '**********FOUND********** finish = delaytime If finish > allseconds Then finish = finish - allseconds '**********FOUND********** Do While Timer < finish DoEvents Loop End If '**********FOUND********** Do While Timer > finish DoEvents Loop End Sub Private Sub Form_Click() Print Now delay 3 Print Now End Sub 答案： =======(答案1)======= finish = Timer + delaytime =======(答案2)======= Do While Timer > finish =========或========= Do While finish < Timer =======(答案3)======= Do While Timer < finish =========或========= Do While finish > Timer 第9题 （1.0分） 题号:130 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：以下程序段用于计算5的N次方。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, s As Long n = InputBox(" Input n ") '**********FOUND********** k = 0 '**********FOUND********** s = 0 Do While k <= n s = s * 5 k = k + 1 '**********FOUND********** Next Print "5的"; "n次方是"; s End Sub 答案： =======(答案1)======= k=1 =======(答案2)======= s=1 =======(答案3)======= Loop 第10题 （1.0分） 题号:119 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：在下面的程序段中过程pd可以判断任意三个数能 ' 否构成三角形的三边，利用该过程的判定结果， ' 对能构成三角形的计算其面积，构不成的显示" ' 不能构成三角形" '------------------------------------------------ Option Explicit Private Sub Form_Click() '**********FOUND********** 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 Not b Then s = Sqr(h * (h - x) * (h - y) * (h - z)) Print "三角形面积是"; s Else Print "不能构成三角形" End If End Sub '**********FOUND********** Public Function pd() As Boolean If x > 0 And y > 0 And z > 0 And x + y > z And x + z > y And y + z > x Then pd = True Else pd = False End If End Function 答案： =======(答案1)======= Dim x% , y% , z% , s! , b As Boolean , h As Single =========或========= Dim x% , y% , z% , s as Single , b As Boolean , h As Single =======(答案2)======= If b=not false Then =========或========= If b=true Then =======(答案3)======= Public Function pd(x%, y%, z%) As Boolean =========或========= Public Function pd(x, y, z) As Boolean =========或========= Public Function pd(x as Integer, y as Integer, z as Integer) As Boolean 第11题 （1.0分） 题号:452 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：用自定义函数的方法求sum（x），求当-1≤x≤1时， ' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!， ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数 ' 据错误。X、N都是由用户输入。 '------------------------------------------------ Option Explicit Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox("Please input a integer value:")) x = Val(InputBox("Please input a single value:")) If n <= 0 Then k = MsgBox("数据输入错误！", vbRetryCancel + vbExclamation, "数据输入") Exit Sub End If s = Sum(x, n) Print s End Sub Function Sum(x As Single, n As Integer) Dim i As Integer, ss As Long ss = 1 Sum = 0 If x > 1 Or x < -1 Then '**********FOUND********** Exit Do Else '**********FOUND********** For i = 2 To n ss = ss * i '**********FOUND********** Sum = x ^ (i - 1) / ss Next i End If End Function 答案： =======(答案1)======= exit Function =======(答案2)======= For i = 2 To n + 1 =========或========= For i = 2 To 1+n =======(答案3)======= sum = sum + x ^ (i - 1) / ss 第12题 （1.0分） 题号:122 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：求s=1!+3!+5!+7!，阶乘的计算用Function过程 ' fact实现. '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim i As Integer, s As Integer '**********FOUND********** For i = 1 To 7 s = s + fact(i) Next i Print s End Sub '**********FOUND********** Public Function fact() Dim t As Integer, i As Integer t = 1 For i = 1 To n t = t * i Next i '**********FOUND********** fact = i End Function 答案： =======(答案1)======= For i = 1 To 7 Step 2 =======(答案2)======= Public Function fact(ByVal n As Integer) =========或========= Public Function fact(ByVal n ) =========或========= Public Function fact(ByVal n% ) =========或========= Public Function fact( n% ) =========或========= Public Function fact( n) =======(答案3)======= fact = t 第13题 （1.0分） 题号:462 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：请修改程序中错误，保证程序最后输出效果如图1所示。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim i As Integer For i = 1 To 7 '**********FOUND********** Print Spc(7); '**********FOUND********** If i >= 1 Then Print "*" Else '**********FOUND********** Print "*"; Spc(2 * (i - 1)); "*" End If Next i End Sub 答案： =======(答案1)======= Print Spc(7 - i); =========或========= Print Spc( - i+7); =======(答案2)======= If i = 1 Then =========或========= If 1=i Then =======(答案3)======= Print "*"; Spc(2 * (i - 1) - 1); "*" =========或========= Print "*"; Spc(-1+2 * (i - 1) ); "*" 第14题 （1.0分） 题号:136 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：程序功能为打印下列图形： ' * ' ** ' *** ' **** ' ***** '------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim i As Integer Dim j As Integer '**********FOUND********** For i = 1 To 7 '**********FOUND********** For j = 1 To 5 Print "*"; '**********FOUND********** Loop Print Next i End Sub 答案： =======(答案1)======= For i = 1 To 5 =======(答案2)======= For j = 1 To i =======(答案3)======= Next j =========或========= Next 第15题 （1.0分） 题号:453 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：输入有10个正数，自小到大，存于数组A中（A（1）--A（10））， ' 编制程序，输入正数X，检查它是否存在于A中，若存在，显示对应下 ' 标，若不存在，则请将X插入到A中，且不影响A中数组序列。 '------------------------------------------------ Option Explicit Private Sub Command1_Click() Dim x As Integer, I As Integer, nn As Integer, A(11) As Integer, j As Integer nn = 10 I = 1 While (I <= nn) A(I) = Val(InputBox("input number" & "必须大于" & Str(A(I - 1)))) If A(I) >= A(I - 1) Then I = I + 1 Else MsgBox ("请重新输入" & Str(A(I)) & Chr(13) & "必须大于" & Str(A(I - 1))) End If Wend For I = 1 To nn Print A(I), If I Mod 4 = 0 Then Print Next I Print x = Val(InputBox("Input a Data to Check :")) If x < A(1) Then For I = nn + 1 To 2 Step -1 A(I) = A(I - 1) Next I '**********FOUND********** A(I - 1) = x For I = 1 To nn + 1 Print A(I), If I Mod 4 = 0 Then Print Next I Print ElseIf x > A(nn) Then '**********FOUND********** A(nn) = x For I = 1 To nn + 1 Print A(I), If I Mod 4 = 0 Then Print Next I Print Else For I = 1 To nn If x = A(I) Then Print "已经存在，序号是："; I Exit Sub Else If x > A(I) And x < A(I + 1) Then '**********FOUND********** j = I Exit For End If End If Next I For I = nn + 1 To j + 1 Step -1 A(I) = A(I - 1) Next I A(j) = x For I = 1 To nn + 1 Print A(I), If I Mod 4 = 0 Then Print Next I Print End If End Sub 答案： =======(答案1)======= A(1) = x =========或========= A(I)=x =======(答案2)======= A(nn + 1) = x =======(答案3)======= j = I + 1 =========或========= j = 1 + I 第16题 （1.0分） 题号:461 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：产生30个小于100的成绩随机数，并统计出优、良 ' 、中等、及格、不及格数的个数，并计算出成绩属 ' 于优秀段的成绩平均分。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim k%, a%, bjg%, jg%, zd%, lh%, yx As Integer Dim pjf As Integer Randomize pjf = 0 For k = 1 To 30 '**********FOUND********** a = Int(Rnd()) Select Case a Case 0 To 59 bjg = bjg + 1 '不及格 Case 60 To 69 jg = jg + 1 '及格 Case 70 To 79 zd = zd + 1 '中等 Case 80 To 89 lh = lh + 1 '良好 Case 90 To 100 yx = yx + 1 '优秀 '**********FOUND********** pjf = pjf + 1 End Select Next k '**********FOUND********** If yx > 0 Then pjf = pjf / 30 Debug.Print "不及格" + Str$(bjg) + "人，及格" + Str$(jg) + "人，中等" + Str$(zd) + "人"; Debug.Print "良好" + Str$(lh) + "优秀" + Str$(yx) + "人" Debug.Print "优秀分数段成绩平均分" & pjf End Sub 答案： =======(答案1)======= a = Int( Rnd() * 100) =========或========= a = Int( Rnd * 100) =======(答案2)======= pjf = pjf + a =======(答案3)======= If yx > 0 Then pjf = pjf / yx 第17题 （1.0分） 题号:456 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：挑选单数并排序程序：程序启动后由计算机自动产 ' 生20个属于[100，300]之间的随机整数，单击"显 ' 示全体"按钮时，在Form1上显示这20个随机数； ' 单击"显示奇数"按钮时，在Form1上显示其中的奇数； ' 单击"排序"按钮时，在Form1上将这些奇数从小到大显示。 ' 要求显示 格式 pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载 为每行显示5个数据。 '------------------------------------------------ Option Explicit Private a(20) As Integer, b(20) As Integer Private k As Integer Private Sub cmdodd_Click() Dim I As Integer k = 0 For I = 1 To 20 '**********FOUND********** If a(I) / 2 = Int(a(I) / 2) Then k = k + 1 b(k) = a(I) End If Next I For I = 1 To k Print b(I); '**********FOUND********** If Int(I / 5) <> I / 5 Then Print Next I Print End Sub Private Sub cmdAll_Click() Randomize Dim I As Integer For I = 1 To 20 '**********FOUND********** a(I) = Int(Rnd() * 20 + 100) Print a(I), If Int(I / 5) = I / 5 Then Print Next I Print End Sub Private Sub cmdsort_Click() Dim I As Integer Dim J As Integer Dim Temp As Integer For I = 1 To k - 1 For J = I To k If b(I) > b(J) Then Temp = b(I): b(I) = b(J): b(J) = Temp Next J Next I For I = 1 To k Print b(I); If Int(I / 5) = I / 5 Then Print Next I End Sub 答案： =======(答案1)======= If a(I) / 2 <> Int(a(I) / 2) Then =========或========= If a(I) mod 2 <>0 Then =========或========= If 0<>a(I) mod 2 Then =========或========= If a(I) / 2 <> a(I)\ 2 Then =========或========= If int(a(I) / 2) <> a(I) / 2 Then =========或========= If a(I) \ 2 <> a(I)/2 Then =======(答案2)======= If Int(I / 5) = I / 5 Then Print =========或========= If I mod 5 = 0 Then Print =========或========= If 0 = I mod 5 Then Print =========或========= If I / 5= int(I / 5) Then Print =========或========= If I / 5= I\ 5 Then Print =========或========= If I \5= I/ 5 Then Print =======(答案3)======= a(I) = Int(Rnd() * 200 + 100) 第18题 （1.0分） 题号:476 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:由输入对话框输入n（设n为大于零且小于30的自然数）， ' 计算如图1所示的 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式，并在标签框Label1上显示。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim n As Integer, sum As Double, k As Integer n = Val(InputBox("n=", "请输入自然数n(n>0 且n<30)")) '**********FOUND********** Do While n > 0 Or n < 30 n = Val(InputBox("n=", "请重输入")) Loop sum = 0 k = 0 Do '**********FOUND********** k = sum + k sum = sum + 1 / (k * (k + 1)) '**********FOUND********** Loop Until k > n Label1.Caption = "Sum=" + Str(sum) End Sub 答案： =======(答案1)======= Do While n <= 0 Or n >= 30 =========或========= Do While n <= 0 Or n>= 30 =======(答案2)======= k = k + 1 =========或========= k = 1 + k =======(答案3)======= Loop Until k >= n =========或========= Loop Until n <= k 第19题 （1.0分） 题号:499 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:编程将一个数从已经有序（设从小到大排序）的数组 ' 中删除，使数组还继续保持有序而且其余元素按照下 ' 标连续存放。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim A() As Integer, N As Integer, Flag As Integer Dim i As Integer, X As Integer, P As Integer Flag = 0 N = InputBox("输入元素个数") '**********FOUND********** Dim A(N) For i = 1 To N A(i) = InputBox("输入数组的第" & i & "个元素") Next i Print "删除某元素前的数组" For i = 1 To N Print A(i); Next i Start: X = InputBox("输入要删除的元素：") For i = 1 To N If X = A(i) Then P = i: Flag = 1 Next i If Flag = 0 Then MsgBox ("没有此元素"): GoTo Start For i = P To N - 1 '**********FOUND********** A(i + 1) = A(i) Next i '**********FOUND********** N = N + 1 Print "删除元素后的数组:" For i = 1 To N Print A(i); Next i End Sub 答案： =======(答案1)======= ReDim A(N) =======(答案2)======= A(i) = A(i + 1) =========或========= A(i) = A(1 + i) =======(答案3)======= N = N - 1 第20题 （1.0分） 题号:139 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：随机产生并输出100以内大于50的20个整数，输 ' 出时每5个数一行。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Randomize Timer Dim i As Integer, ma As Integer '**********FOUND********** i = 1 '**********FOUND********** Do Until i < 20 ma = Rnd() * 100 \ 1 If ma > 50 Then Print ma; i = i + 1 '**********FOUND********** If i \ 5 = 0 Then Print End If End If Loop End Sub 答案： =======(答案1)======= i = 0 =======(答案2)======= Do while i < 20 =========或========= Do while 20 > i =========或========= Do while i <=19 =========或========= Do while 19 > =i =======(答案3)======= If i mod 5 = 0 Then 第21题 （1.0分） 题号:451 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：以下程序是单击命令按钮，将用户在组合框中输入 ' 的某一值，与组合框其他项进行比较，如有相同， ' 则将相同表项删除，其他项不动。 '------------------------------------------------ Option Explicit Private Sub Command1_click() Dim a As String, i As Integer '**********FOUND********** a = Trim(Combo1.Index) If Len(a) <> 0 Then '**********FOUND********** For i = 0 To Combo1.ListCount '**********FOUND********** If Combo1.List(i) = a Then Combo1.AddItem i Next i End If Combo1.SetFocus End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 9 Me.Combo1.AddItem i Next End Sub 答案： =======(答案1)======= a = Trim(Combo1.Text) =======(答案2)======= For i = 0 To Combo1.ListCount - 1 =======(答案3)======= If Combo1.List(i) = a Then Combo1.RemoveItem i 第22题 （1.0分）