VisualFoPro程序设计基础实例.docx

实用标准文案

实用标准文案

精彩文档

精彩文档

VisualFoxPro 程序设计基础实例

▲表文件CJ.DBF情况：

学生成绩数据库的表文件cj.dbf结构为：

字段名

字段类型

宽度

小数位

学号

字符型

6

姓名

字符型

10

英语

数值型

6

2

高等数学

数值型

6

2

计算机应用

数值型

6

2

总分

数值型

7

2

平均分

数值型

6

2

建立表文件cj.dbf结构显示如下：

输入一些学生成绩。

例2-1计算表CJ.DBF中的平均分和总分的程序settalkoff

CLOSEALL

USEc:\000\CJ

REPLACEALL总分WITH英语+数学+计算机应用

REPLACEALL平均分WITH总分/3LIST

执行结果为：

例2-2 统计成绩表CJ.DBF中平均分大于90分的所有学生数目。

SETTALKOFFCLEAR

USEc:\000\CJM=0

SCANFOR平均分90DISPLAY

M=M+1ENDSCAN

?总数为:,MUSERETURN

执行结果：

例2-3 统计成绩表CJ.DBF中所有英语大于等于75分的学生数目。

SETTALKOFFUSEC:\000\CJMCOUNT=0

FORREC=1 TORECCOUNT() ＆＆ RECCOUNT()为该库中的记录数

GO RECIF英语75LOOP

ENDIFDISPLAY

MCOUNT=MCOUNT+1ENDFOR

?英语成绩不小于75分的总数为:,MCOUNTUSE

RETURN

执行结果：

例2-4 显示表CJ.DBF中英语成绩小于90分的学生。

SETTALKOFFCLEAR

USECJ

DOWHILE.T.(**或DOWHILE.NOT.EOF() )IF英语=90

SKIP （或** LOOP）

ENDIFDISPLAY

WAIT按任一键继续显示.…SKIP

ENDDOUSERETURN

执行结果：

例2-5对成绩表CJ.DBF查询，若首记录的平均分数大于60分，则显示及格；成绩不及格”否则显示不及格。

SETTALKOFFCLEAR

USE C:\000\CJ

IF平均分60

?姓名+成绩及格

ELSE

?姓名+成绩不及格ENDIF

USERETURN

执行结果如下：

例2-6 对成绩表CJ.DBF查询，根据该学生的平均分进行分类：优秀 90=平均分

优良 80=平均分90良好 70=平均分80及格 60=平均分70不及格 平均分60

程序为：SETTALKOFFCLEAR

USEC:\000\CJDOCASE

CASE平均分=90

? 姓名+:成绩优秀CASE平均分=80

?姓名+:成绩优良CASE平均分=70

?姓名+:成绩良好CASE平均分=60

?姓名+:成绩及格OTHERWISE

?姓名+:成绩不及格ENDCASE

USERETURN

执行结果如下：

例2-7 设计5乘5的乘法表settalkoff

clearx=1

dowhilex=5y=1

dowhiley=xs=x*y

??str(y,1)+*+str(x,1)+=+str(s,2)+y=y+1

enddo

?

x=x+1enddo

执行结果：

例2-8 DO CASE……ENDCASE命令的嵌套用法.SETTAlKOFF

CLEAR

?1 录入

?2 查询

?3 修改

?4 打印

ACCEPT输入选择(0-4)：TOMSELECTDOCASE

CASEMSELECT=l

DOAPP 录入程序CASEMSELECT=2

DOQUER 查询程序CASEMSElECT=3

DOMOD 修改程序CASEMSELECT=4

CLEAR

?1--打印A类表

?2--打印B类表

?3--打印C类表

ACCEPT输入选择(1-3)：TOMYDOCASE

CASEMY=1

DOPRINTACASEMY=2

DOPRINTBCASEMY=3

DOPRINTCENDCASE

例2-9 显示成绩库CJ.DBF中记录号为偶数的前三个学生记录。

SETTALKOFF

CLEAR

USEC:\000\CJ

FORREC=2TO6 STEP2GO REC

DISPLAYSKIP2ENDFORUSERETURN

执行结果：

例2-10 编程计算：S=l!+2! +3!+...+10!的值。要求用过程求阶乘。SETTALKOF