============================================================
【改错3】错误
【学生答案】
Ift=mThen
【参考答案】
Ift<>mthen
ifnott=mThen
============================================================
'题目:
编程求一个m*n矩阵中最大元素及其所在的行列号
【改错1】错误
【学生答案】
max=A(0,0)
【参考答案】
max=A(1,1)
============================================================
【改错2】错误
【学生答案】
row=j
【参考答案】
col=j
============================================================
【改错3】错误
【学生答案】
col=i
【参考答案】
row=i
题目:
以下程序段用于输出100-300的所有素数
【改错1】错误
【学生答案】
swit=1
【参考答案】
swit=0
============================================================
【改错2】错误
【学生答案】
Whileswit=0
【参考答案】
whilei<=kandswit=0
whilek>=iandswit=0
whileswit=0andi<=k
whileswit=0andk>=i
============================================================
【改错3】错误
【学生答案】
i=i-1
【参考答案】
i=i+1
============================================================
题目:
输出40以内能够被3整除的数,要求输出结果为
'5个数一行。
【改错1】错误
【学生答案】
i=1
【参考答案】
i=0
============================================================
【改错2】错误
【学生答案】
Printx
【参考答案】
Printx;
?
x;
============================================================
【改错3】错误
【学生答案】
stepi
【参考答案】
Nextx
Next
'题目:
在下面的程序段中过程pd可以判断任意三个数能
'否构成三角形的三边,利用该过程的判定结果,
'对能构成三角形的计算其面积,构不成的显示"
'不能构成三角形"
【改错1】错误
【学生答案】
IfNotbThen
【参考答案】
IfbThen
Ifb=TrueThen
Ifb=NotFalseThen
IfNotb=FalseThen
============================================================
【改错2】错误
【学生答案】
PublicFunctionpd(x%,y%,z%)AsInteger
【参考答案】
PublicFunctionpd(x%,y%,z%)AsBoolean
============================================================
题目:
已知自然对数的底数e的级数表示如下:
'e=1+1/1!
+1/2!
+1/3!
+......+1/n!
+.....
'本程序利用函数过程fact()求e,其中绝对值小于
'1E-8的项被忽略。
【改错1】错误
【学生答案】
x=i
【参考答案】
x=x*i
x=i*x
【改错2】错误
【学生答案】
n=-1
【参考答案】
n=0
'【程序改错】
题目:
下面程序可输出如下图形:
'*
'***
'*****
'*******
'*********
【改错1】错误
【学生答案】
PrintSpc(n)
【参考答案】
PrintSpc(n);
PrintSpc(i);
?
Spc(n);
?
Spc(i)
============================================================
【改错2】错误
【学生答案】
n=n+1
【参考答案】
n=n-1
n=-1+n
============================================================
【改错3】错误
【学生答案】
m=m-1
【参考答案】
m=m+1
m=1+m
下面的程序段用于打印出以下图形
'
'*
'***
'*****
'*******
'*****
'***
'*
'
【空1】错误
【学生答案】
Fork=1To_____
【参考答案】
2*i+1
============================================================
【空2】错误
【学生答案】
_____
【参考答案】
Print"";
form1.print"";
?
"";
============================================================
【空3】错误
【学生答案】
_____
【参考答案】
Print
form1.Print
?
============================================================
'【程序改错】
'注意:
错误出现在错误标记'**********ERROR**********的后面语句中,请不要删除错误标记。
'------------------------------------------------
'题目:
该程序的功能是通过键盘给一维数组a输入10个
'整数,然后将一维数组的这些数赋值给一个2行
'5列的二维数组。
最后在一行内输出一维数组、
'在两行内输出二维数组。
【改错1】错误
【学生答案】
Printa(i)
【参考答案】
Printa(i);
============================================================
【改错2】错误
【学生答案】
Printb(j,i);
【参考答案】
print(i,j)
============================================================
【改错3】错误
【学生答案】
Paintb(i,j)
【参考答案】
Print
============================================================
'【程序改错】
'注意:
错误出现在错误标记'**********ERROR**********的后面语句中,请不要删除错误标记。
'------------------------------------------------
'题目:
打印如下图的九九乘法表。
'
【改错1】错误
【学生答案】
Forj=1To9
【参考答案】
Forj=1toi
============================================================
【改错2】错误
【学生答案】
PrintTab(8*(j-1));j&"*"&i&"="&i*j;
【参考答案】
PrintTab(8*(j-1));i&"*"&j&"="&i*j;
============================================================
【改错3】错误
【学生答案】
End
【参考答案】
Next
Nexti
============================================================
'【程序改错】
'注意:
错误出现在错误标记'**********ERROR**********的后面语句中,请不要删除错误标记。
'------------------------------------------------
'题目:
程序功能根据输入的学习成绩,分别显示优秀
'(90分以上),良好(75分以上),及格(60分以上)
'不及格四个等级.
'------------------------------------------------【改错1】错误
【学生答案】
Case0
【参考答案】
Caseis>100,is<0
caseis<0,is>100
============================================================
【改错2】错误
【学生答案】
Case90
【参考答案】
Case90to100
============================================================
【改错3】错误
【学生答案】
Case
【参考答案】
Caseelse
============================================================
'【程序改错】
'----------------
'注意:
错误出现在错误标记'**********ERROR**********的后面语句中,请不要删除错误标记。
--------------------------------
'题目:
输出40以内能够被3整除的数,要求输出结果为5
'个数一行。
【改错1】错误
【学生答案】
i=1
【参考答案】
i=0
============================================================
【改错2】错误
【学生答案】
Printx
【参考答案】
Printx;
?
x;
============================================================
【改错3】错误
【学生答案】
IfiMod3=0Then
【参考答案】
ifimod5=0then
'注意:
错误出现在错误标记'**********ERROR**********的后面语句中,请不要删除错误标记。
'------------------------------------------------
'题目:
下面的程序段的功能是:
读入八进制数,将其转
'换成把十进制数
【学生答案】
Fori=lengthTo1
【参考答案】
Fori=lengthto1Step-1
============================================================
【改错3】错误
【学生答案】
Loop
【参考答案】
NextI
Next
============================================================
注意:
错误出现在错误标记'**********ERROR**********的后面语句中,请不要删除错误标记。
'------------------------------------------------
'题目:
该程序的功能是求出100到200之间的全部素数,
'并且按每行4个、每个数据之间有10个空格的格
'式输出。
【改错1】错误
【学生答案】
Forj=1Toi-1
【参考答案】
Forj=2Toi-1
Forj=2To-1+i
============================================================
【改错2】错误
【学生答案】
Printi;Tab(10);
【参考答案】
Printi;Space(10);
Printi;Spc(10);
============================================================
【改错3】错误
【学生答案】
IfkMod5=0ThenPrint;
【参考答案】
IfkMod4=0ThenPrint
If0=kMod4ThenPrint
ifk/4=k\4thenPrint
ifk\4=k/4thenPrint
ifk/4=int(k/4)thenPrint
============================================================
'------------------------------------------------
'题目:
以下程序段用于计算货物运费。
设货物运费每吨
'单价p元与运输距离s公里之间关系如图1
'
【改错1】错误
【学生答案】
CaseIs<=200andIs>=100
【参考答案】
CaseIs<200
CaseIs<200,is>=100
CaseIs>=100,is<200
============================================================
【改错2】错误
【学生答案】
Else
【参考答案】
CaseElse
============================================================
【改错3】错误
【学生答案】
EndIf
【参考答案】
EndSelect
============================================================
1已知C的公式表示如下:
'n!
'C=------------------
'(n-m)!
*m!
1).x=12).x=x*j3).C=fac(n)/(fac(n-m)*fac(m))
2题目:
从计算机输入三个数,找出中间数
1).Ifx=zThen3).ElseIfx>=zThen
3'题目:
求s=2!
+4!
+6!
+8!
,阶乘的计算用Function过程
'fact实现
1).Fori=2To8Step22).PublicFunctionfact(ByValnAsInteger)
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*i2).n=0
3).LoopWhileitem>=0.00000001
6下面的程序段用于实现以下功能:
建立一顺序文件,存放10名同学的学号和三门功课成绩,显示
1).Open"c:
\2.txt"ForOutputAs#1
2).Open"c:
\2.txt"ForInputAs#1
3).Input#1,n0,c1,c2,c3
7给定年号与月份,判断该年是否闰年,并根据给出的月份来判断是什么季节和该月有多少天?
1).IfYearMod4=0AndYearMod100<>0OrYearMod400=0Then2).Flag=13).SelectCaseMonth
8:
一个两位的正整数,如果将它的个位数与十位数对调,则产生另一个正整数,我们把后者叫做前者的对调数,现给定一个两位的正数
1).h=k-g*10:
m=h*10+g2).Forn=11To993).EndIf
9程序功能为求解一元二次方程的实根,请修正程序中错误
1).work=b^2-4*a*c2).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).IfrnddatMod2=0Then
11由输入对话框输入n(设n为大于零且小于30的自然数)
1).DoWhilen<=0Orn>=302).k=k+13).LoopUntilk>=n
12判断给定的年月日是该年中的第几天。
1).Dima(1To12)AsInteger2).days=days+a(i-1)
3)