第五章

一、填空

1、以下程序的功能是将英文字母组成的字符串加密.加密的算法是: 如果是大写字母,用原字母后面的第4个字母代替原字母,

否则用原字母后的第2个字母代替原字母,如原文\加密后的密文是\完善下列程序: m=space(0) c=\

for i=1 to 【 len(c) 】 nc=asc(substr(c,I,1)) if nc>64 【 and 】 nc<91 &&该字母的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

3、请写出x的值【 30 】,y值是【 -2 】 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

4、如果当前日期是2000年4月1日,并且命令 ?date()在屏幕上返回 04/01/00, 则命令行 ?date()+10在屏幕上返回的值为【 04/11/00 】

5、已知N=\则表达式X&N&M的值为【 GOOD 】 6、已知有三个文件分别程序文件、查询文件、表单文件,文件名都是a, 请问运行程序文件的命令是【 do a 】、 运行查询文件的命令是【 do a.qpr 】、 运行表单文件的命令是【 do form a 】

7、执行下列程序后，输出到屏幕的结果为【 3 】。 【程序清单】 CLEAR

cstring=\ nresult=0

m=LEN(cstring) FOR n=1 to m

c=SUBSTR(cstring,n,1)

IF !BETWEEN(ASC(c)，ASC(\ LOOP ENDIF

nresult=nresult+l ENDFOR

?nresult

8、完善下列自定义函数STR_RV(),其功能是将一个字符串(假设所有字符均为ASCII和GB2312字符集中的字符)进行\反序\例如,STR_RV(\的返回值为\ 【程序清单】

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 x>127 &&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

9、在Visual FoxPro中,基类的事件集合是固定的,不能进行扩充.基类的最小事件集包括Init 事件、Destroy 事件和【 error 】事件

10、如果2002年3月18号是星期一,则以下命令在屏幕上显示【 2 】

x={^2002/03/18} ?dow(x)

11、完善程序题.下列程序的功能是统计一个字符串中各个字符的个数(假设字符串仅由大写英文字母A,B,C,D组成):

cStr='AABBDDCABCDAADBCAACCDDDDBB' &&字符串赋初值

STORE 0 TO nA,nB,nC,nD, &&计数变量 for i=1 to 【 len(cStr) 】 C=LEFT(【 cStr,1 】) do case case C=\ nA=nA+1 case C=\ nB=nB+1 case C=\ nC=nC+1 case C=\ nD=nD+1

【 endcase/ ENDC 】 EndF

12、完善下列程序，是程序的结果如下图所示

1*1=1 1*2=2 1*3=3 1*4=4 1*5=5 1*6=6 1*7=7 1*8=8 1*9=9 2*2=4 2*3=6 2*4=8 2*5=10 2*6=12 2*7=14 2*8=16 2*9=18 3*3=9 3*4=12 3*5=15 3*6=18 3*7=21 3*8=24 3*9=27 4*4=16 4*5=20 4*6=24 4*7=28 4*8=32 4*9=36 5*5=25 5*6=30 5*7=35 5*8=40 5*9=45 6*6=36 6*7=42 6*8=48 6*9=54 7*7=49 788=56 7*9=63 8*8=64 8*9=72 9*9=81

*****程序***** CLEAR

FOR i=1 TO 9 FOR j=1 TO 9 If i<=j

?? STR(I,1)+\【 str(i*j,2) 】 +SPACE(2) ENDIF ENDFOR 【 ? 】 ENDFOR

13、已知在命令行输入 ?at(\其返回值为9,

则?at(\返回值为【 7 】 14、下面程序执行以后,屏幕上显示【 .f. 】

x=.t. y=.f.

z=not(x and (y or x)) ?z