|
|
|
³³³学
习 园 地³³³
考试大纲：职高计算机等级考试 |
职高英语等级考试 |
英语考试样题
计算机等级考试8四川
：一级|
二级|
三级
全国
：一级 |一级Ｂ|
二级VFP|
二级VB|
三级|
四级
基础篇：微机基础 |
文件管理 |
因特网操作|
电子邮件
|
BBS论坛
|网页基础1
|网页基础2
|
网页基础3
数据库：VFP6_基础|
VFP6_命令|
报表与菜单|
表单设计
|
查询数据
|
编程初步
|
数据网页
|
上机考试
网页篇：网页表单 |
动态网页 |
JAVA脚本1 |JAVA脚本2
|JAVA脚本3
|JAVA脚本4
|JAVA脚本5
|
JAVA脚本6
职称篇：职称计算机等级考试
网络知识部分
操作题解题辅导
VFP 6.0过程化程序设计初步
一、命令文件
1、建立和修改命令文件：
MODIFY COMMAND 文件名.PRG
2、执行命令文件：
DO 文件名 [WITH 参数]
二、内存变量
1、变量的赋值：
格式：
用＝命令为内存变量赋值。
例子：
A=3.1415
MC="电脑学习班"
DATE={06/18/97}
SEX=.T.
2、变量的显示：
格式1：
用？命令显示变量内容。
例子：
? MC
? DATE
格式2：
DISPLAY MEMORY
3、变量的删除：
格式1：
RELEASE 变量名
格式2：
CLEAR MEMORY
删除全部变量。
格式3：
CLEAR ALL
删除全部变量。
三、交互式输入语句
1、键盘输入语句：
可以输入各种类型的数据。
格式：INPUT [提示] TO 变量
例子：
INPUT "请输入工资：" TO GZ
2、字符输入语句：
只能输入字符。
格式：ACCEPT [提示] TO 变量
例子：
ACCEPT "请输入姓名：" TO NAME
3、输入单字符语句：
格式：WAIT [提示] [TO 变量]
例子：
WAIT "按任一键继续"
4、格式输入语句：
格式：@ 行列 [SAY 提示] [GET 变量]
READ [CYCLE]
例子：
@ 5,10 SAY "请输入单位名：" GET DW
READ
四、分支程序设计
1、条件语句
格式：
IF 条件
执行语句1
[ELSE
执行语句2]
ENDIF
例一：根据输入的姓名，显示相应的记录。
USE GZ1
ACCEPT "请输入姓名：" TO NAME
LOCATE FOR 姓名=NAME
IF FOUND()
DISPLAY
ELSE
WAIT "找不到这个人"
ENDIF
USE
2、情况语句
格式：
DO CASE
CASE 条件1
执行语句1
CASE 条件2
执行语句2
……
CASE 条件N
执行语句N
[OTHERWISE
执行语句N+1]
ENDCASE
例二：根据车间输入各人的奖金。
use gz1
scan
do case
case 部门="一车间"
replace 奖金 with 100
case 部门="二车间"
replace 奖金 with 120
endcase
endscan
use
五、循环程序设计
1、条件循环
格式：
DO WHILE 条件
执行语句
[LOOP]
[EXIT]
ENDDO
例三：逐条显示GZ1中的记录。
use gz1
do while not eof()
disp
wait
skip
enddo
use
2、计数循环
格式：
FOR 变量=初值 TO 终值
执行语句
[LOOP]
[EXIT]
ENDFOR
例四：逐条显示GZ1中的记录。
use gz1
for n=1 to recc()
disp
wait
skip
endfor
use
3、扫描循环
格式：
SCAN [范围] [条件]
执行语句
[LOOP]
[EXIT]
ENDSCAN
例五：逐条显示GZ1中的记录。
use gz1
scan
disp
wait
endscan
use
六、过程调用
1、过程格式：
PROCEDURE 过程名1
执行语句
RETURN
PROCEDURE 过程名2
执行语句
RETURN
2、过程调用
格式：
DO 过程名 [WITH 变量] [IN 文件名]
3、参数传递
格式：
PARA 变量
例六：根据车间输入各人的奖金。
use gz1
scan
do case
case 部门="一车间"
do sr with 100
case 部门="二车间"
do sr with 120
endcase
endscan
use
return
procedure sr
para yun
replace 奖金 with yun
return
七、过程化程序综合举例
例七：根据选择，完成相应查询操作。
clear
set talk off
accept "请输入数据表名：" to dbf
if empty(dbf)
cancel
endif
do while .t.
@ 1,41 say "功能选择菜单"
@ 2,31 say "**************************************"
@ 3,33 say "1、统计各部门的人数"
@ 4,33 say "2、统计男性、女性的人数"
@ 5,33 say "3、统计男性、女性的最大年龄和最小年龄"
@ 6,33 say "4、统计各部门[应发合计]的总和"
@ 7,33 say "5、结束"
@ 8,31 say "**************************************"
wait "请选择编号" to no
do case
case no="1"
select 部门,count(*) from (dbf) group by 部门
case no="2"
select 性别,count(*) from (dbf) group by 性别
case no="3"
select 性别,max(年龄),min(年龄) from (dbf) group by 性别
case no="4"
select 部门,sum(应发合计) from (dbf) group by 部门
case no="5"
clear
exit
otherwise
wait "你输入错了！"
endcase
enddo
clear all
return
七、练习
1、练习例一。
2、练习例二。
3、练习例三。
4、练习例四。
5、练习例五。
6、练习例六。
7、练习例七。 |
