============================================================
【改错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）
升级会员 