VFP第5章习题课.ppt

下列程序的功能是：输入一个由ASCII码字符和GB2312字符集字符组成的字符串后，统计并显示出现次数最多的10个字符及其出现的次数。 clear accept 请输入： to cccc 该语句功能是交互式得输入数据（字符串） n=len(cccc) if n=0 return endif create cursor temp(cc c(2),nn i) 创建临时表存储字符及出现的次数 for i=1 to n c=subs(cccc,i,1) if asc(c)127 c=subs(cccc,i,2) i=2 endif locate for cc=c if eof() insert into temp(cc,nn) value (c,1) other replace nn with nn+1 endif endfor select top 10 cc,nn from temp order by 2 desc 改为：i=i+1 改为：else 一个自然数的七进制表示是一个三位数、九进制表示也是一个三位数，且这两个三位数（七进制和九进制）的数字字符的排列顺序正好相反。下列程序的功能是求该自然数。 clear for i=100 to 999 x=convert(i,7) y=convert(i,9) z=space(0) for j=1 to len(y) z=z+subs(y,j,1) endfor if x==z ?i,x,y endif endfor function convert 十进制到二~九进制转换函数 parameter m,n c=space(0) do while len(m)0 c=str(m%n,1)+c m=int(m/n) enddo return c endfunc z=subs(y,j,1)+z m0 * m*10^(i-1)+n m*10^(i-1)+n m*10^(i-1)+n * vfp04 * vfp05 * vfp03 * vfp06 * vfp01 程序设计习题课讲解 2013年5月 基本知识： 程序文件扩展名.prg 程序以语句为单位，一行一条语句，续行用;号 程序的运行：do 程序文件名 程序基本结构： 顺序 分支 IF…… [ELSE]…… ENDIF DO CASE…… ENDCASE 循环 DO WHILE…… ENDDO FOR…… ENDFOR SCAN…… ENDSCAN 过程和自定义函数 程序题考查形式： 程序填空 已知程序，写出程序运行结果 程序改错 1-1、下列程序段用来求0~100之间的偶数和，请填空： N=0 S=0 DO WHILE N=100 N=N+1 IF N%2=1 ________ ELSE S=S+N ENDIF ENDDO LOOP 1-2、下列程序用来求0~100偶数之和，请将它填写完整。 STORE 0 TO N，S DO WHILE .T. IF N100 ______________ ELSE S=S+N ENDIF N=N+2 ENDDO EXIT 1-3、下列程序是用来计算1！+2！+3！+4！+5！的值，将程序补充完整 SET TALK OFF X=1 P=0 S=1 DO WHILE _________ DO SUB1 WITH X P=P________ X=X+1 ENDDO ？P PROCEDURE SUB1 _______________ S=1 FOR N=1 TO J S=S*N ENDFOR RETURN ENDPROC X=5 +S PARAMETERS J 1-4、下列程序用来求长方形的面积，请将其填写完整。 X=3 Y=5 S=AREA（X，Y） ？S FUNCTION AREA ______________ S1=X*Y RETURN ____ ENDFUNC PARAMETERS X，Y S1 X=3 Y=5 S=0 DO ________WITH X，Y，S ？S PROCEDURE AREA _________________________ S1=X*Y RETURN ENDPROC AREA PARAMETERS X，Y，S1 1-5、完善下列“九九乘法”程序（P99.prg），使得P99.prg程序运行时，屏幕上显示如下乘法表： 1：1 2：2 4 3：3 6 9 4：4 8 12 16 5：5 10 15