中国医科大学《VISUAL FOXPRO数据库与程序设计》92K vf编程作业复习汇总.docVIP

质数和并显示质数 set talk off clear ?space(20)+本程序名称是:求N以内质数和及个数,并列出N以内所有质数.prg DO WHILE .T. input 请输入N值: TO X S=2 I=3 K=1 ?质数为:2 FOR I=3 TO X FLAG=.T. FOR J=2 TO I-1 IF I/J=INT(I/J) FLAG=.F. EXIT ENDIF ENDFOR IF FLAG S=S+I K=K+1 ?质数为:+ALLT(STR(I)) ENDIF ENDFOR ?SPAC(20)+allt(str(X))+以内质数和为:+ALLT(STR(S)) ?SPAC(20)+ALLT(STR(X))+以内质数共有:+ALLT(STR(K))+个 wait 你要继续吗？（Y／N） to dm if uppe(dm)=Y loop else exit endi EXIT ENDDO RETU 2.打印王冠形状： SET TALK OFF CLEAR @2,10 SAY 在屏幕中央,打印用*字符组成的空心图形,要求从键盘输入该空心图形的行数 (行数范围为3-9的奇数行) @3,10 SAY 例如 5行图形如下 TEXT * * ** ** * * * * * * * * ********* ENDTEXT INPUT 请输入该空心图形的行数 (行数范围为3-9的奇数行) TO n if n3 .and.n5.and. n7.and.n9 ?spac(1)+输入错误 input 请输入3－9的奇数 to n endif i=15 p=1 q=2 @15,1 say * for i=16 to n+13 @i,p say * @i,q say * q=q+1 endfor i=15 m=2*n-1 p=m-1 @i,m say * for i=16 to n+13 @i,p say * @i,m say * p=p-1 endfor for j=1 to m @i,j say * Endfor wait 程序运行结束,再见! retu 3.字符串倒序 SET TALK OFF CLEAR ?SPAC(20)+本程序功能:实现字符串倒序 DO WHILE .T. acce 请输入字符串: TO S A=LEN(S) ?SPACE(20)+您输入的字符串+S ? X= FOR a=a TO 1 STEP -1 IF ASC(SUBS(S,A,1))128 T=SUBS(S,A-1,2) A=A-1 ELSE T=SUBS(S,A,1) ENDIF X=X+T ENDFOR ?SPAC(20)+倒序输出字符串+X wait 您还要继续吗?(Y/N) to answer if upper(answer)=Y clear loop else wait 程序运行结束,再见! clear EXIT endif ENDDO RETU 4.字符分类统计 SET TALK OFF CLEAR ?SPAC(20)+本程序功能:统计输入字符串长度及其中汉字,字母,空格数量 ACCE 输入任意字符串 TO S A=LEN(S) HZ=0 ZM=0 KG=0 I=1 DO WHILE I=A IF