程序改错
【程序改错】
'------------------------------------------------
'题目：挑选单数并排序程序：程序启动后由计算机自动产
' 生20个属于[100，300]之间的随机整数，单击"显
' 示全体"按钮时，在Form1上显示这20个随机数；
' 单击"显示奇数"按钮时，在Form1上显示其中的奇数；
' 单击"排序"按钮时，在Form1上将这些奇数从小到大显示。' 要求显示格式为每行显示5个数据。
=======(答案1)=======
If a(I) mod 2 <>0 Then
=======(答案2)=======
If I mod 5 = 0 Then Print
=======(答案3)=======
a(I) = Int(Rnd() * 200 + 100)
'题目:编程将一个数从已经有序（设从小到大排序）的数组
' 中删除，使数组还继续保持有序而且其余元素按照下
' 标连续存放。
=======(答案1)=======
ReDim A(N)
=======(答案2)=======
A(i) = A(i + 1)
=======(答案3)=======
N = N - 1
'题目：随机产生并输出100以内大于50的20个整数，输
' 出时每5个数一行。
答案：
=======(答案1)=======
i = 0
=======(答案2)=======
Do while i < 20
=======(答案3)=======
If i mod 5 = 0 Then
'题目:程序功能为求解一元二次方程的实根，请修正程序中错误。
=======(答案1)=======
work = b ^ 2 - 4 * a * c
=======(答案2)=======
root1 = (-b + Sqr(work)) / (2 * a)
=======(答案3)=======
root2 = (-b - Sqr(work)) / (2 * a)
'题目:下面函数的功能是：求变量s(s=a+aa+aaa+aaaa+……)
' 的值。其中，a是一个0-9的数字，总共累加a项。
' 例如，当a=3时,s=3+33+333 (共累加3项)。
答案：
=======(答案1)=======
t = a
=======(答案2)=======
t = t * 10 + a
=======(答案3)=======
Call Calc(i)
'题目:给定三角形的三条边，计算三角形的面积。要求
' 程序首先判断给定的三条边能否构成三角形。
答案：
=======(答案1)=======
If a + b < c Or b + c < a Or a + c < b Then
=======(答案2)=======
t = (a + b + c) / 2
=======(答案3)=======
s = Sqr(t * (t - a) * (t - b) * (t - c))
'题目:本程序求3~100之间的所有素数（质数）并统计个数；
' 同时将这些素数从小到大依次写入顺序文件c:\dataout.txt；
' 素数的个数显示在窗体Form1上。
=======(答案1)=======
Open "dataout.txt" For Output As #1
=======(答案2)=======
If Flag Then
=======(答案3)=======
Write #1, t1
'题目：求s=72+102+132+……832的值。
=======(答案1)=======
s =0
=======(答案2)=======
For i = 7 To 832 step 30
=======(答案3)=======
Next i
---
'题目：下面程序用于将十个数字从小到大排序
答案：
=======(答案1)=======
For i = 1 To 10
=======(答案2)=======
If a(j) > a( j + 1 ) Then
=======(答案3)=======
Next j, i
'题目：输出40以内能够被3整除的数，要求输出结果为5 ' 个数一行。
'------------------------------------------------
答案：
=======(答案1)=======
i = 0
=======(答案2)=======
Print x;
=======(答案3)=======
if i mod 5=0 then
'题目：下面的程序段用于实现以下功能：建立一顺序文'件，存放10名同学的学号和三门功课成绩，显示'该文件内所有记录，并同时显示其总分和平均分
答案：
=======(答案1)=======
Open "c:\2.txt" For Output As #1
=======(答案2)=======
Open "c:\2.txt" For Input As #1
=======(答案3)=======
Input #1, n0, c1, c2, c3
'题目：以下程序段用于输出100-300的所有素数
答案：
=======(答案1)=======
swit=0
=======(答案2)=======
While i <= k And swit = 0
=======(答案3)=======
i= i + 1
'题目：程序功能：求1+2+3……，直到其和超出3000为
' 止，并输
答案：
=======(答案1)=======
s =0
=======(答案2)=======
i = i + 1
=======(答案3)=======
Loop until s > 3000
'题目：下面程序的作用是产生100以内的全部素数，并
' 按每行5个数据输出。
答案：
=======(答案1)=======
For i = 2 To n - 1
=======(答案2)=======
Print Tab( (k Mod 5) * 8 ); i;
=======(答案3)=======
If k Mod 5 = 0 Then Print
'题目:请根据下列描述编写购物优惠程序。某商场为了
' 加速促成商品流通，采用购物打折的优惠办法，每
' 位顾客一次购物（1）在100元以上者，按九五折优惠；' （2）在200元以上者，按九折优惠；（3）300元以上
' 者，按八折优惠；（4）500元以上者按七折优惠。
=======(答案1)=======
y = x
=======(答案2)=======
End If
=======(答案3)=======
Text2.Text = y
'题目：统计一顺序文件text.txt中的空格、字母、数字和其它字符个数。答案：
=======(答案1)=======
Open App.Path & "\text.txt" For Input As #1
=======(答案2)=======
Do Until EOF(1)
=======(答案3)=======
ElseIf C >= "0" And C <= "9" Then
'题目：输出40以内能够被3整除的数，要求输出结果为
' 5个数一行。
答案：
=======(答案1)=======
i = 0
=======(答案2)=======
Print x ;
=======(答案3)=======
Next x
'题目：用InputBox函数输入一个字符串，编写程序按与
' 输入的字符相反的次序用Msgbox函数输出这个字
' 符串。如输入字符串为"abcdefgh"，则输出为"h
' gfedcba"，输出效果如图1。
答案：
=======(答案1)=======
For i = 0 To Len(pristr) - 1
=======(答案2)=======
outstr = outstr + Mid(pristr, Len(pristr) - i, 1)
=======(答案3)=======
MsgBox outstr, vbQuestion, "The Output Result "
'题目：下面的程序用来产生并输出图示的杨辉三角。
' 1
' 1 1
' 1 2 1
' 1 3 3 1
' 1 4 6 4 1
' 1 5 10 10 5 1
答案：
=======(答案1)=======
a(i, i) = 1
=======(答案2)=======
For j = 2 To i - 1
=======(答案3)=======
For j = 1 To i
'题目:设窗体中有图片框Pic1，现要求在其中绘制10个同心圆，' 然后将此图以Test.BMP作文件名存入磁盘。
=======(答案1)=======
for i=0 to 9
=======(答案2)=======
Do Until I < 0
=======(答案3)=======
I = I - 1
'题目：已知C的公式表示如下:
' n!
' C=------------------
' (n-m)!*m!
'函数过程fac( )求k！函数,在Fomr_Click事件中完成运算，
'请修正程序中错误。
答案：
=======(答案1)=======
x=1
=======(答案2)=======
x=x*j
=======(答案3)=======
C = fac(n) / fac(n - m) / fac(m)
'------------------------------------------------
'题目：随机产生n个两位正整数（n由输入对话框输入，且n>0），' 求出其中的偶数之和，并在标签框Label1上显示。
=======(答案1)=======
sum=0
=======(答案2)=======
rnddat = (10 + Int(90 * Rnd))
=========或=========
rnddat = ( 10 + Int(90 * Rnd))
=======(答案3)=======
If rnddat Mod 2 = 0 Then
=========或=========
If rnddat / 2 = int(rnddat/2) Then
=========或=========
If rnddat / 2 = cint(rnddat/2) Then
程序改错C
程序改错 ================================================== 题号：7471 /*------------------------------------------------------ 【程序改错】：只允许修改错误代码，其他代码不允许修改！ -------------------------------------------------------- 功能：计算正整数num的各位上的数字之积。 例如：若输入：252，则输出应该是：20。 若输入：202，则输出应该是：0。 ------------------------------------------------------*/ #include
num/=10; 【或】 num=num/10; 位置 3: } while(num) ; 【或】 while(num!=0) 题号：7383 /*------------------------------------------------------ 【程序改错】：只允许修改错误代码，其他代码不允许修改！ -------------------------------------------------------- 功能：统计出若干个学生的平均成绩，最低分以及得最低分的人数。例如：输入10名学生的成绩分别为92，87，68，56，92，84，67， 75，92，66，则输出平均成绩为77.9，最低高分为56，得最低分的人数为1人。 ------------------------------------------------------*/ #include "stdio.h" float Min=0; int J=0; float fun(float array[],int n) { int i;float sum=0,ave; Min=array[0]; for(i=0;i 程序改错题 （注意：每小题只有1行有错误，答题时请指出错误位置并给出改正结果）1． 输出计算结果。 main() { int a=b=10; a+=b+5; b*=a+=10; printf("%d%d\n",a,b); } 2． 输出计算结果。 #include 输出程序运行结果。 #include 【程序改错】 1.功能：利用递归函数调用方式，将所输入的5个字符，以相反顺序 打印出来。 char next; next=getchar(); palin(n-1); 2.功能：求广义菲玻那契级数的第n项。广义菲玻那契级数的前n 项为： 1，1，1，3，5，9，17，31，…… 项值通过函数值返回 main ( )函数。 例如：若 n = 15，则应输出：The value is: 2209。 for (k=4; k<=n; k++) a=b; return d; 3.功能：根据整型形参m，计算如下公式的值： y=1/2＋1/8＋1/18＋...＋1/2m*m double y=0.0; 4.功能：编制统计营业员一天的营业额的程序,设程序采用一个循环 实现，每次循环输入一笔交易金额并累计营业额。由于营 业员一天完成的交易次数是不确定的，为此以最后附加输 入一笔0或负数交易额作为交易金额已全部输入结束的标志。 float sale,sigma; scanf("%f",&sale); sigma=sigma+sale; 5.功能：读取7个数（1-50）的整数值，每读取一个值，程序打印出该值个数的＊。while(n<8) while(a<1||a>50); for(i=0;i 【程序改错-1】 题目：在一个一维整型数组中找出其中最大的数及其下标。程序中共有4条错误语句，请改正错误。『错误答案』： 1 int fun(int *a,int *b,int n) 2 *b=c-a;} 3 scanf("%d",&a[i]); 4 max=fun(a,&p,N); 【程序改错-2】 题目：为一维数组输入10个整数；将其中最小的数与第一个数对换，将最大的数与最后一个数对换；输出数组元素。程序中共有4条错误语句，请改正错误。 『错误答案』： 1 scanf("%d",p++); 2 max=p; 3 if(★max★==★arr ★) 4 for(i=0;i 第1题【程序改错】 欧阳学文 功能：先将在字符串s中的字符按逆序存放到t串中，然后把s中的 字符按正序连接到t串的后面。 例如：当s中的字符串为：“ABCDE”时，则t中的字符串应为： “EDCBAABCDE”。 */ #include /**********FOUND**********/ t[i] = s[sli]; for (i=0; i 第2题【程序改错】 功能：求出以下分数序列的前n项之和。和值通过函数值返回main 函数。 2/1+3/2+5/3+8/5+13/8+21/13 …… 例如：若n = 5，则应输出：8.391667。 */ #include 程序改错 1.计算下列分段函数的值，输入x输出y 的值 f(x)= x*2 x<0且x≠-3 sin(x) 0<=x<10 且x≠2且x≠3 x*x+x-1 其他 1)scanf(“%f,&x); 2)y=sin(3*x); 3)printf(“%f\n”,y); 2.输入两个整数n1,n2(n1 5.从键盘输入10个学生的成绩，统计最高分max，最低分min和平均分avg。 1)float a[8],min,max,avg; 2)scanf(“%f”,&a[i]); 3)max=min=avg=a[0]; 4)if(a[i] 程序改错练习题 下面每个程序的划线处有语法或逻辑错误，请找出并改正，使程序符合题意。 １．求1?2?3?4? ?n main() { int sum; 正确：int sum=1; int n,i=1; scanf("%d",n); scanf(“%d”,&n); printf(“\n”); while(i main() { float a,b; int c; float c; scanf("%f,%f",&a,&b); c=sum(a,b); printf("\nSum is %f",sum); printf("\nSum is %f",c); } 4. x , y两个数中，让x中存较大的数，y存较小的数 #include 11 *程序名：TEST.prg *检索选修课程门数等于３门或３门以上,每门课程成绩大于或等于７０分的每个学生的 *学号,姓名,性别,平均成绩,最低分和选课门数,并将结果存储到表NEW_TEST中． *以下程序有三处错误，请改正 OPEN DA TABASE SDB SELECT STUDENT.学号,姓名,性别,A VG(成绩) 平均成绩,MIN(成绩) 最低分,COUNT(*) 选课门数; FROM STUDENT,SC; WHere STUDENT.学号= SC.学号AND 成绩>= 70 ; &&**********Error********** GROUP BY STUDENT.学号HA VING count(课程号) >= 3; &&**********Error********** inTO table NEW_TEST &&**********Error********** CLOSE ALL 9 *程序名：dbtest3.prg *定义一个视图VS1, *检索选课门数是3门以上的每个学生的学号、姓名、平均成绩、最低分、选课门数和院系编号, *并按平均成绩降序排序. *以下程序有三处错误，请改正 SET TALK OFF SET SAFETY OFF open DATABASE SDB &&****Error***修改本行的语法错误,不许注释掉本行或删除本行 CREATE VIEW VS1 SELECT STUDENT2.学号, 姓名, A VG(成绩) 平均成绩, MIN(成绩) 最低分, COUNT(*) 选课门数, 院系编号; FROM STUDENT2, sc; &&*************Error************* WHERE STUDENT2.学号= SC.学号; GROUP BY SC.学号HA VING COUNT(课程号) > 3; ORDER BY 平均成绩desc &&*************Error************* CLOSE DATABASE RETURN i=2 create table four(结果I) do while i<=1000 if i%3=0 insert into four values(i) &&错误语句请修改 endif '以下程序段用于输出杨辉三角:结果样式如图1 ' Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【arr(I, 1) = 1】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** 【print arr(I,j)】 Next j Print Next I End Sub Option Explicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：用自定义函数的方法求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都是由用户输入。 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ 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:")) 【程序改错】 1.下列给定程序中函数fun的功能是：删除s所指字符中所有的小写字母c 。 请改正程序中的错误，使它能得出正确的结果。 #include 第12次上机程序改错第1题 【程序改错】 -------------------------------------------------------- 功能：求二分之一的圆面积，函数通过形参得到圆的半径，函数返回二分之一的圆面积。 例如：输入圆的半径值：19.527 输出为：s = 598.950017。 ------------------------------------------------------*/ #include printf ( "Enter x: "); scanf ( "%f", &x ); printf (" s = %f\n ", fun ( x ) ); } 第2题【程序改错】 功能：先将在字符串s中的字符按逆序存放到t串中，然后把s中的字符按正序连接到t串的后面。 例如：当s中的字符串为：“ABCDE”时，则t中的字符串应为：“EDCBAABCDE”。 ------------------------------------------------------*/ #include 1 已知C的公式表示如下: ' n! ' C=------------------ ' (n-m)!*m! 1). x=1 2). x=x*j 3). C = fac(n) / ( fac(n - m) * fac(m) ) 2题目：从计算机输入三个数, 找出中间数 1). If x < y Then 2). If y >= z Then 3). ElseIf x >= z Then 3'题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程 ' fact实现 1). For i = 2 To 8 Step 2 2). Public Function fact(ByVal n As Integer) 3). fact = t 4 题目:编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。 1). S1 = Trim(S1) 2). Ch = Mid(S1, i, 1) 3). Sum = Sum + Val(Ch) 5已知自然对数的底数e的级数表示如下: 1). x = x * i 2). n = 0 3). Loop While item >= 0.00000001 6下面的程序段用于实现以下功能：建立一顺序文件，存放10名同学的学号和三门功课成绩，显示 1). Open "c:\2.txt" For Output As #1 2). Open "c:\2.txt" For Input As #1 3). Input #1, n0, c1, c2, c3 7给定年号与月份，判断该年是否闰年,并根据给出的月份来判断是什么季节和该月有多少天？ 1). If Year Mod 4 = 0 And Year Mod 100 <> 0 Or Year Mod 400 = 0 Then 2). Flag = 1 3). Select Case Month 8：一个两位的正整数，如果将它的个位数与十位数对调，则产生另一个正整数，我们把后者叫做前者的对调数，现给定一个两位的正数 1). h = k - g * 10 : m = h * 10 + g 2). For n = 11 To 99 3). End If 9程序功能为求解一元二次方程的实根，请修正程序中错误 1). work = b ^ 2 - 4 * a * c 2). root1 = (-b + Sqr(work)) / (2 * a) 3). root2 = (-b - Sqr(work)) / (2 * a) 10随机产生n个两位正整数（n由输入对话框输入，且n>0）， ' 求出其中的偶数之和，并在标签框Label1上显示。 1). sum=0 2). rnddat = (10 + Int(90 * Rnd)) 3). If rnddat Mod 2 = 0 Then 11由输入对话框输入n（设n为大于零且小于30的自然数） 1). Do While n <= 0 Or n >= 30 2). k = k + 1 3). Loop Until k >= n 12判断给定的年月日是该年中的第几天。 1). Dim a(1 To 12) As Integer 2). days = days + a(i - 1) 3). days = days + day 13设窗体中有图片框Pic1，现要求在其中绘制10个同心圆， ' 然后将此图以Test.BMP作文件名存入磁盘。 1). for i=0 to 9 2). Do Until I < 0 3). I = I - 1 14给定三角形的三条边，计算三角形的面积。要求 ' 程序首先判断给定的三条边能否构成三角形。 1). If a + b < c Or b + c < a Or a + c < b Then 2). t = (a + b + c) / 2 3). s = Sqr(t * (t - a) * (t - b) * (t - c)) 15以下程序段用于计算5的N次方。 1). k=1 2). s=1 3). Loop 16随机产生n个两位正整数（n由输入对话框输入，且n>0）， ' 求出其中的偶数之和，并在标签框Label1上显示。 第1题（10.0分）题号:421 /*-------------------------------- 【程序改错】 -------------------------------- 功能：给一个不多于5位的正整数，要求： 一、求它是几位数， 二、逆序打印出各位数字。 --------------------------------*/ #include"stdio.h" main( ) { /**********FOUND**********/ long a,b,c,d,e,x, scanf("%ld",&x); a=x/10000; /**********FOUND**********/ b=x/10000/1000; c=x%1000/100; d=x%100/10; e=x%10; /**********FOUND**********/ if (a==0) printf("there are 5, %ld %ld %ld %ld %ld\n",e,d,c,b,a); else if (b!=0) printf("there are 4, %ld %ld %ld %ld\n",e,d,c,b); else if (c!=0) printf(" there are 3,%ld %ld %ld\n",e,d,c); else if (d!=0) printf("there are 2, %ld %ld\n",e,d); else if (e!=0) printf(" there are 1,%ld\n",e); getch(); } 答案： 1). long a,b,c,d,e,x; 2). b=x%10000/1000; 3). if (a!=0) 或 if (!a) 第2题（10.0分）题号:417 /*-------------------------------- 【程序改错】 -------------------------------- 功能：下题是一段有关结构体变量传递的程序. --------------------------------*/ #include "stdio.h" struct student { int x; char c; } a; main() { a.x=3; /**********FOUND**********/ a.c='a' f(a); /**********FOUND**********/ printf("%d,%c",a.x,b.c); getch(); } f(struct student b) { b.x=20; /**********FOUND**********/ b.c=y; } 答案： 1). a.c='a'; 2). printf("%d,%c",a.x,a.c); 3). b.c='y'; 第1题（10.0分）题号:440 /*-------------------------------- 【程序改错】 --------------------------------程序改错题
c语言程序改错
程序改错2
C语言程序改错题
程序改错1
程序改错练习题
计算机程序改错题,及答案
VB程序设计例题-程序改错程序填空程序设计
程序改错
C语言程序改错题
程序改错
程序改错1