2003VFP程序改错题2-1
1.下列程序实现字母转换:输入字符串中出现英文字母均转化为顺序排列在该字母后面的第五个字母(26个字母相接顺序排列).
CLEAR
SET TALK OFF
ACCEPT TO B
L=LEN(B)
C=""
FOR I=1 TO L
A=SUBSTR(B,I,1) &&********1*******
A=??
DO CASE
CASE A>="a" AND A<="u" OR A>="A" AND A<="U"
A=CHR(ASC(A)+5)
CASE A>="v" AND A<="z" OR A>="V" AND A<="Z"
A=CHR(ASC(A)-21) &&*******2********
A=CHR(ASC(A)-26)
ENDCASE
C=C+A
ENDFOR
B+"--->"+C
SET TALK ON
.2.从键盘输入一个实数M,求出该数的整数位数、小数位数和整体输入位数。
SET TALK OFF
CLEAR
INPUT "X=" TO X
IF X=0
"小数位数为：0，整数位数为：0，"+"该数的实际输出位数为：1。"
ENDIF
ZS=INT(ABS(X))
ZSW=0
DO WHILE ZS>0
ZS=INT（ZS/10）&&********1******
ZS=MOD(ZS/10)
ZSW=ZSW+1
ENDDO
XSW=0
二进制转换方法的口诀DO WHILE INT(X)#X
X=X*10 / X=10*X &&********2******
X=MOD(X,10)
XSW=XSW+1
ENDDO
FJW=IIF(X<0,1,0)+IIF(XSW=0,0,1)
"整数位数为:"+STR(ZSW,5)+",小数位数为:"+STR(XSW,5)
"该数的实际输出位数为:"+STR(XSW+FJW+ZSW,2)
SET TALK ON
3..将学生表中的指定学生的奖学金增加100元
学生表:学号(C ),姓名(C),奖学金(N)
SET TALK OFF
CLEAR
USE 学生
ACCEPT "请输入学生学号:" TO XH
LOCATE FOR 学号=XH / LOCA FOR XH=学号/ LOCATE FOR ALLT(学号)=ALLT(XH) / LOCA FOR ALLT(XH)=ALLT(学号) &&*****1*****
SEEK学号=XH
IF !EOF()
REPL 奖学金WITH 100 &&*****2*****
REPLACE ALL 奖学金WITH 100
学号,姓名,奖学金
ELSE
"没有到!"
ENDIF
USE
SET TALK ON
4. 判断输入的年份是否是闰年.(能被4整除但不能被100整除,或能被100整除且能被400整除).
SET TALK OFF
CLEAR
INPUT ‘Y=’ TOY&&*****1*****
ACCEPT "Y=" TO Y
IF (Y%4=0 AND Y%100<>0) OR (Y%100=0 AND Y%400=0) /IF (Y%4=0 AND Y%100!=0) OR (Y%100=0 AND Y%400=0) IF (MOD(Y,4)=0 AND Y%100<>0) OR (MOD(Y,100)=0 AND MOD(Y,400)=0)/IF (MOD(Y,4)=0 AND Y%100!=0) OR (MOD(Y,100)=0 AND MOD(Y,400)=0) &&*****2*****
IF (Y%4 AND Y!%100) AND (Y%100 AND Y!%400)
Y,"是闰年！"
ELSE
Y,"不是闰年！"
ENDIF
SET TALK ON
5查学生表中指定班级(如951班)的奖学金总额.
学生.DBF
学号姓名性别奖学金
C,6 C,8 L,1 N,6
SET TALK OFF
CLEAR
USE 学生
INPUT …请输入班级? TO BJ
LOCATE FOR LEFT(学号,3)=BJ