实用标准文案精彩文档VisualFoxPro程序设计基础实例▲表文件CJ.DBF情况：学生成绩数据库的表文件cj.dbf结构为：字段名字段类型宽度小数位学号字符型6姓名字符型10英语数值型62高等数学数值型62计算机应用数值型62总分数值型72平均分数值型62建立表文件cj.dbf结构显示如下：输入一些学生成绩。例2-1计算表CJ.DBF中的平均分和总分的程序settalkoffCLOSEALLUSEc:\000\CJREPLACEALL总分WITH英语+数学+计算机应用REPLACEALL平均分WITH总分/3LIST执行结果为：实用标准文案精彩文档例2-2统计成绩表CJ.DBF中平均分大于90分的所有学生数目。SETTALKOFFCLEARUSEc:\000\CJM=0SCANFOR平均分>90DISPLAYM=M+1ENDSCAN?"总数为:",MUSERETURN执行结果：例2-3统计成绩表CJ.DBF中所有英语大于等于75分的学生数目。SETTALKOFFUSEC:\000\CJMCOUNT=0FORREC=1TORECCOUNT()＆＆RECCOUNT()为该库中的记录数GORECIF英语<75LOOPENDIFDISPLAYMCOUNT=MCOUNT+1ENDFOR?"英语成绩不小于75分的总数为:",MCOUNTUSERETURN执行结果：实用标准文案精彩文档例2-4显示表CJ.DBF中英语成绩小于90分的学生。SETTALKOFFCLEARUSECJDOWHILE.T.(**或DOWHILE.NOT.EOF())IF英语>=90SKIP（或**LOOP）ENDIFDISPLAYWAIT"按任一键继续显示.⋯"SKIPENDDOUSERETURN执行结果：例2-5对成绩表CJ.DBF查询，若首记录的平均分数大于60分，则显示及格；成绩不及格”否则显示不及格。SETTALKOFFCLEARUSEC:\000\CJIF平均分>60?姓名+"成绩及格"实用标准文案精彩文档ELSE?姓名+"成绩不及格"ENDIFUSERETURN执行结果如下：例2-6对成绩表CJ.DBF查询，根据该学生的平均分进行分类：优秀90<=平均分优良80<=平均分<90良好70<=平均分<80及格60<=平均分<70不及格平均分<60程序为：SETTALKOFFCLEARUSEC:\000\CJDOCASECASE平均分>=90?姓名+":成绩优秀"CASE平均分>=80?姓名+":成绩优良"CASE平均分>=70?姓名+":成绩良好"CASE平均分>=60?姓名+":成绩及格"OTHERWISE?姓名+":成绩不及格"ENDCASEUSERETURN执行结果如下：例2-7设计5乘5的乘法表settalkoffclearx=1dowhilex<=5y=1实用标准文案精彩文档dowhiley<=xs=x*y??str(y,1)+"*"+str(x,1)+"="+str(s,2)+""y=y+1enddo?x=x+1enddo执行结果：例2-8DOCASE⋯⋯ENDCASE命令的嵌套用法.SETTAlKOFFCLEAR?"1⋯⋯⋯⋯录入"?"2⋯⋯⋯查询"?"3⋯⋯⋯⋯修改"?"4⋯⋯⋯⋯打印"ACCEPT"输入选择(0-4)："TOMSELECTDOCASECASEMSELECT="l"DOAPP&&录入程序CASEMSELECT="2"DOQUER&&查询程序CASEMSElECT="3"DOMOD&&修改程序CASEMSELECT="4"CLEAR?"1--打印A类表"?"2--打印B类表"?"3--打印C类表"ACCEPT"输入选择(1-3)："TOMYDOCASECASEMY="1"DOPRINTACASEMY="2"DOPRINTBCASEMY="3"DOPRINTCENDCASE例2-9显示成绩库CJ.DBF中记录号为偶数的前三个学生记录。SETTALKOFF实用标准文案精彩文档CLEARUSEC:\000\CJFORREC=2TO6STEP2GORECDISPLAYSKIP2ENDFORUSERETURN执行结果：例2-10编程计算：S=l!+2!+3!+...+10!的值。要求用过程求阶乘。SETTALKOFFCLEARPUBLICTS=0&&FORN＝1TO10forn=1to10DOJCS=S+TENDFOR?"S=",SSETTALKONRETURNPROCEDUREJC&&过程放在调用它的上层程序之后PRIVATES&&这里的S是局部变量，与主程序中的S占用不同的存贮单元T=1FORS=1TONT=T*S&&这里T为N!的值ENDFOR?str(N,2)+"!="+str(T,8)&&?STR(N，2)RETURN执行结果：实用标准文案精彩文档例2-11主程序MAIN．PRG中调用过程SUBl，SUB2，主程序如下：?"#######1"DOSUB1?"#######2"DOSUB2?"#######3"RETURN&&过程SUB1.PRG如下：PROCEDURESUB1?"********1"RETURN&&过程SUB2.PRG如下：PROCEDURESUB2?"*******2"RETURN执行结果：例2-12求职工的平均工资（职工信息档案为：DA.DBF）clearsettalkoffusec:\000\daaverageall基本工资toa?"职工平均工资:"+str(a,8,2)usesettalkonreturn执行结果：例2-13执行以下程序段：实用标准文案精彩文档PUBLICAPRIVATEB?"A=",A?"B=",B例2-14显示库文件CJ．DBF的姓名及总分字段，要求用模式符定义显示总分字SETTALKOFFCLEARusec:\000\cjDOWHILE.NOT.EOF()@ROW()+1,4SAY"姓名:"@ROW(),COL()+1SAY姓名PICTURE"@JXXXXXXXX"@ROW(),COL()+1SAY"总分："@ROW(),COL()...
