《VFP》第五章习题..docVIP

第五章 一、填空 以下程序的功能是将英文字母组成的字符串加密.加密的算法是: 如果是大写字母,用原字母后面的第4个字母代替原字母, 否则用原字母后的第2个字母代替原字母,如原文China,加密后的密文是Gjkpc, 完善下列程序: m=space(0) c=China for i=1 to 【 len(c) 】 nc=asc(substr(c,I,1)) if nc64 【 and 】 nc91 该字母的ASC值在64之91之间,表明该字母是大写 m=m+【 chr(nc+4) chr(4+nc) 】 else m=m+chr(nc+2) endif endf 2、完善下列程序,其功能是显示如下所示的文字图形. 金 字字 大大大 宝宝宝宝 塔塔塔塔塔 【程序清单】 CLEAR c=金字大宝塔 n=LEN(c)/2 FOR i=1 TO n ?SPACE(70-i) FOR j=1 【 TO i 】 ?? SUBS(C,2*i-1,2) =INKEY(0.5) ENDFOR ENDFOR 请写出x的值【】,y值是【】 X=26 y=0 if int(x/2)=x/2 y=mod(x,3) x=x+4 endif if int(x/3)=x/3 y=Mod(x,-4) endif ? x,y 如果当前日期是2000年4月1日,并且命令 ?date()在屏幕上返回 04/01/00, 则命令行 ?date()+10在屏幕上返回的值为【 04/11/00 】 已知N=1,M=2,X12=GOOD,则表达式XNM的值为【】 已知有三个文件分别程序文件、查询文件、表单文件,文件名都是a, 请问运行程序文件的命令是【 do a 】、 运行查询文件的命令是【 do a.qpr 】、 运行表单文件的命令是【 do form a 】 执行下列程序后，输出到屏幕的结果为【】。 【程序清单】 CLEAR cstring=VisualFoxPro nresult=0 m=LEN(cstring) FOR n=1 to m c=SUBSTR(cstring,n,1) IF !BETWEEN(ASC(c)，ASC(A),ASC(Z)) LOOP ENDIF nresult=nresult+l ENDFOR ?nresult 8、完善下列自定义函数STR_RV(),其功能是将一个字符串(假设所有字符均为ASCII和GB2312字符集中的字符)进行反序.例如,STR_RV(ABCD)的返回值为DCBA. 【程序清单】 FUNCTION str_rv() PARAMETERS c P=SPACE(O) DO WHILE LEN(C)0 x=ASC(【 LEFT(c,1) SUBSTR(c,1,1)/ SUBS(c,1,1) 】) IF x127 ASCII码值大于127的字符为汉字(x为半个汉字的机内码) i=2 ELSE i=1 ENDIF P=LEFT(C,i)+P C=SUBSTR(c,i+1) ENDDO 【 RETURN P/ RETU P 】 ENDFUNC 在Visual FoxP