Visual FoxPro程序设计基础实例.docVIP

Visual FoxPro程序设计基础实例 ▲ 表文件CJ.DBF情况： 学生成绩数据库的表文件cj.dbf 结构为： 字段名 字段类型 宽度 小数位 学号 字符型 6 姓名 字符型 10 英语 数值型 6 2 高等数学 数值型 6 2 计算机应用 数值型 6 2 总分 数值型 7 2 平均分 数值型 6 2 建立表文件cj.dbf 结构显示如下： 输入一些学生成绩。 例2-1计算表cj.dbf中的平均分和总分的程序 set talk off CLOSE ALL USE c:\000\CJ REPLACE ALL 总分 WITH 英语+数学+计算机应用 REPLACE ALL 平均分 WITH 总分/3 LIST 执行结果为： 例2-2 统计成绩表cj.dbf中平均分大于90分的所有学生数目。 SET TALK OFF CLEAR USE c:\000\CJ M=0 SCAN FOR 平均分90 DISPLAY M=M+1 ENDSCAN ?总数为:,M USE RETURN 执行结果： 例2-3 统计成绩表cj.dbf中所有英语大于等于75分的学生数目。 SET TALK OFF USE C:\000\CJ MCOUNT=0 FOR REC=1 TO RECCOUNT() ＆＆ RECCOUNT() 为该库中的记录数 GO REC IF 英语75 LOOP ENDIF DISPLAY MCOUNT=MCOUNT+1 ENDFOR ? 英语成绩不小于75分的总数为:, MCOUNT USE RETURN 执行结果： 例2-4 显示表cj.dbf中英语成绩小于90分的学生。 SET TALK OFF CLEAR USE CJ DO WHILE.T. ( ** 或DO WHILE.NOT.EOF( ) ) IF 英语=90 SKIP （或** LOOP ） ENDIF DISPLAY WAIT按任一键继续显示.… SKIP ENDDO USE RETURN 执行结果： 例2-5 对成绩表cj.dbf查询，若首记录的平均分数大于60分，则显示及格；成绩不及格”否则显示不及格。 SET TALK OFF CLEAR USE C:\000\CJ IF 平均分 60 ? 姓名+成绩及格 ELSE ? 姓名+成绩不及格 ENDIF USE RETURN 执行结果如下： 例2-6 对成绩表cj.dbf查询，根据该学生的平均分进行分类 ： 优秀 90=平均分 优良 80=平均分 90 良好 70=平均分80 及格 60=平均分70 不及格 平均分60 程序为： SET TALK OFF CLEAR USE C:\000\CJ DO CASE CASE 平均分 = 90 ? 姓名 +:成绩优秀 CASE 平均分 = 80 ? 姓名 + : 成绩优良 CASE 平均分 = 70 ? 姓名 + :成绩良好 CASE 平均分 = 60 ? 姓名 + : 成绩及格 OTHERWISE ? 姓名 + : 成绩不及格 ENDCASE USE RETURN 执行结果如下： 例 2-7 设计5乘5的乘法表 set talk off clear x=1 do while x=5 y=1 do while y=x s=x*y ??str(y,1)+*+str(x,1)+=+str(s,2)+ y=y+1 enddo ? x=x+1 enddo 执行结果： 例2-8 DO CASE……ENDCASE命令的嵌套用法. SET TAlK OFF CLEAR ?1…………录入 ?2……… 查询 ?3…………修改 ?4…………打印 ACCEPT输入选择(0-4)：TO MSELECT DO CASE CASE MSELECT=l DO APP 录入程序