大字设计.docVIP

VFP 设计题 1----*打开考生文件夹下的prog1.prg,用自定义函数求任意给定数的阶乘。设计自定义函数部分，输入11 看运行结果。 *PROG1.PRG CLEAR STORE 0 TO K,JC @5,10 SAY 输入要计算阶乘的数： GET K READ HS=JSJC(K) @7,10 SAY STR(K)+的阶乘是+ALLTRIM(STR(HS)) SET DEVICE TO FILE Pout1.dat @0,0 SAY STR(HS) SET DEVICE TO SCREEN 以上四句不要改动，也不用考虑！ RETURN FUNCTION JSJC PARAMETERS N P=1 FOR I=1 TO N P=P*I ENDFOR RETURN P 2---*打开考生文件夹下的prog2.prg,用过程求任意给定三个合理的边，求三角形面积。设计过程部分，输入5、7、9 看运行结果。 *PROG2.PRG CLEAR STORE 0 TO A,B,C,D @5,10 SAY 输入三角形第一边长： GET A @7,10 SAY 输入三角形第二边长： GET B @9,10 SAY 输入三角形第三边长： GET C READ DO TRAEAR WITH A,B,C,D @13,10 SAY 三角形的面积是+STR(D,7,4) SET DEVICE TO FILE Pout2.dat @0,0 SAY STR(D,7,4) SET DEVICE TO SCREEN 以上三句不要改动，也不用考虑！ RETURN PROCEDURE TRAEAR PARAMETERS X,Y,Z,M L=(X+Y+Z)/2 M=SQRT(L*(L-X)*(L-Y)*(L-Z)) RETURN 3----*打开考生文件夹下的prog3.prg,用自定义函数求任意给定合理的三边，求三角形面积。设计字定义函数部分，输入5、7、9 看运行结果。 *PROG3.PRG CLEAR STORE 0 TO A,B,C,D @5,10 SAY 输入三角形第一边长： GET A @7,10 SAY 输入三角形第二边长： GET B @9,10 SAY 输入三角形第三边长： GET C READ D= TRAEAR (A,B,C) @13,10 SAY 三角形的面积是+STR(D,7,4) SET DEVICE TO FILE Pout3.dat @0,0 SAY STR(D,7,4) SET DEVICE TO SCREEN 以上三句不要改动，也不用考虑！ RETURN FUNCTION TRAEAR PARAMETERS X,Y,Z L=(X+Y+Z)/2 M=SQRT(L*(L-X)*(L-Y)*(L-Z)) RETURN M 4----*打开考生文件夹下的prog4.prg,用过程求任意给定数的阶乘。设计过程部分，输入11 看运行结果。 *PROG4.PRG CLEAR STORE 0 TO K,JC @5,10 SAY 输入要计算阶乘的数： GET K READ DO JSJC WITH K,JC @7,10 SAY STR(K)+的阶乘是+ALLTRIM(STR(JC)) SET DEVICE TO FILE Pout4.dat @0,0 SAY STR(JC) SET DEVICE TO SCREEN 以上三句不要改动，也不用考虑！ RETURN PROCEDURE JSJC PARAMETERS N,P P=1 FOR I=1 TO N P=P*I ENDFOR RETURN 5---*打开PROG5.PRG,设计一个能统计输入字符串中的数字、空格和其他字符个数的程序。设计DO CASE部分，输入Visual FoxPro 6.0看运行结果。 *PROG5.PRG CLEAR STORE 0 TO SZ,KG,QT ACCEPT 请输入字符串： TO ZFC 字符串输入命令 FOR I=1 TO LEN(ZFC) ZF=SUBSTR(ZFC,I,1) ZFZ=ASC(ZF) DO CASE CASE ZFZ=48 AND ZFZ=57 SZ=SZ+