visual foxpro程序设计基础实例

《visual foxpro程序设计基础实例》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VisualFoxPro程序设计基础实例▲表文件CJ.DBF情况：学生成绩数据库的表文件cj.dbf结构为：字段名字段类型宽度小数位学号字符型6姓名字符型10英语数值型62高等数学数值型62计算机应用数值型62总分数值型72平均分数值型62建立表文件cj.dbf结构显示如下：输入一些学生成绩。例2-1计算表CJ.DBF中的平均分和总分的程序settalkoffCLOSEALLUSEc:00CJREPLACEALL总分WITH英语+数学+计算机应用REPLACEALL平均分WITH总分/3LIST执行结果为：50例2-2统

2、计成绩表CJ.DBF中平均分大于90分的所有学生数目。SETTALKOFFCLEARUSEc:00CJM=0SCANFOR平均分>90DISPLAYM=M+1ENDSCAN?"总数为:",MUSERETURN执行结果：例2-3统计成绩表CJ.DBF中所有英语大于等于75分的学生数目。SETTALKOFFUSEC:00CJMCOUNT=0FORREC=1TORECCOUNT()＆＆RECCOUNT()为该库中的记录数GORECIF英语<75LOOPENDIFDISPLAYMCOUNT=MCOUNT+1ENDFOR?"

3、英语成绩不小于75分的总数为:",MCOUNTUSERETURN执行结果：50例2-4显示表CJ.DBF中英语成绩小于90分的学生。SETTALKOFFCLEARUSECJDOWHILE.T.(**或DOWHILE.NOT.EOF())IF英语>=90SKIP（或**LOOP）ENDIFDISPLAYWAIT"按任一键继续显示.…"SKIPENDDOUSERETURN执行结果：例2-5对成绩表CJ.DBF查询，若首记录的平均分数大于60分，则显示及格；成绩不及格”否则显示不及格。SETTALKOFFCLEARUSEC:00

4、CJIF平均分>60?姓名+"成绩及格"50ELSE?姓名+"成绩不及格"ENDIFUSERETURN执行结果如下：例2-6对成绩表CJ.DBF查询，根据该学生的平均分进行分类：优秀90<=平均分优良80<=平均分<90良好70<=平均分<80及格60<=平均分<70不及格平均分<60程序为：SETTALKOFFCLEARUSEC:00CJDOCASECASE平均分>=90?姓名+":成绩优秀"CASE平均分>=80?姓名+":成绩优良"CASE平均分>=70?姓名+":成绩良好"CASE平均分>=60?姓名+":成绩

5、及格"OTHERWISE?姓名+":成绩不及格"ENDCASEUSERETURN执行结果如下：例2-7设计5乘5的乘法表settalkoffclearx=1dowhilex<=5y=150dowhiley<=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"输入选

6、择(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中记录号为偶数

7、的前三个学生记录。SETTALKOFF50CLEARUSEC:00CJFORREC=2TO6STEP2GORECDISPLAYSKIP2ENDFORUSERETURN执行结果：例2-10编程计算：S=l!+2!+3!+...+10!的值。要求用过程求阶乘。SETTALKOFFCLEARPUBLICTS=0&&FORN＝1TO10forn=1to10DOJCS=S+TENDFOR?"S=",SSETTALKONRETURNPROCEDUREJC&&过程放在调用它的上层程序之后PRIVATES&&这里的S是局部变量，与主程序

8、中的S占用不同的存贮单元T=1FORS=1TONT=T*S&&这里T为N!的值ENDFOR?str(N,2)+"!="+str(T,8)&&?STR(N，2)RETURN执行结果：50例2-11主程序MAIN．PRG中调用过程SUBl，SUB2，主程序如下：?"#######