实验5九十十一VFP中程序设计.doc

实验４九十十一、VFP中程序设计
一、实验目的与要求：
（１）了解程序的建立与执行方法。
（２）熟练掌握结构化程序设计的三种流程控制结构：顺序结构、分支结构和循环结构。
（３）简单了解多模块程序设计方法，及模块间相互调用方法。
二、实验内容：
（，然后输入代码，输入结束后保存并运行即可完成程序的操作）
实验4-1　新建程序文件的方法：
（1） 选择文件菜单下的新建，在新建对话框中选择程序，再单击新建文件即可进入程序编辑器。
（2） 命令方式：MODIFY COMMAND <程序文件名.PRG>
实验4-2 新建程序文件excercise1.prg，编写代码，要求完成以下功能：
输出字符“中国”，同行输出字符“大连”，换行输出“工业大学”。
程序代码如下：
clear &&清除屏幕
? "中国"
?? "大连"
? "工业大学"
实验4-3 打开程序文件excercise1.prg，添加代码，要求完成以下功能：
(1)   利用accept输入命令输入一个字符串，并将输入的字符串存入变量icode中。
(2)   利用input输入命令输入一个字符串，并将输入的字符串存入变量icode1中。
(3)   利用input输入命令输入一个数值，并将输入的字符串存入变量value1中。
(4)   将icode、icode1、value1输出到屏幕上，要求输出到同一行。
程序代码如下：
accept "输入一个字符串" to icode
input "输入一个字符串" to icode1
input "输入一个数值" to value1
? icode,icode1,value1
(注意：accept和input输入字符的格式不同，input输入是应加定界符)
实验4-4 建立程序文件excercise2.prg，完成以下功能：
清屏，在屏幕上输出“请输入长方形的长：” “请输入长方形的宽：”，并将用户输入的长、宽输入到变量chang,kuan中。利用长方形的周长、面积公式求出周长、面积。并以“”、“长方形的面积是XXX平方米”的形式显示出来。
程序代码如下：
clear
input "请输入长方形的长：" to chang
input "请输入长方形的宽：" to kuan
l= (chang+kuan)*2
s= chang*kuan
? "长方形的周长是",l,"米"
? "长方形的面积是",s, "平方米"
实验4-5 建立程序文件excercise3.PRG，完成以下功能：
密码校验程序:假设密码为ABC，如果密码正确，显示"欢迎使用本系统！"；如果密码错误，则显示"密码错误！"。
程序代码如下：
Clear
Accept "请输入您的密码：" To M
If M="abc"
? "欢迎使用本系统！"
Else
?"密码错误！"
Endif
实验4-6 新建程序excercise4.prg。编写，代码，要求完成以下功能：

求一元二次方程 ax2＋bx＋c＝0的实根。如果有实根则显示其根，否则显示无实根。
程序代码如下：
input to a
input to b
input to c
z=b^2-4*a*c
if z>=0
x1=(-b+sqrt(z))/(2*a)
x2=(-b-sqrt(z))/(2*a)
? x1,x2
else
? "无实根"
endif
return
实验4-7 新建程序excercise5.prg。编写代码，要求完成以下功能：
假设收入（P）与税率（R）的关系如下表，编程求税金。

0 P＜800
R= 0.05 800 ≤ P＜2000
0.08 2000≤P＜5000
0.1 P≥5000
程序代码如下：
input “请输入收入：” to p
do case
case p<800
r=0
case p<2000
r=0.05
case p<5000
r=0.08
otherwise
r=0.1
endcase
tax=p*r
? ”税金为：”,tax
return
实验4-8 建立一个程序文件excercise6.prg和exercise7.prg，完成以下功能：

编程求1到100之间的偶数和。
程序代码如下：
(1) do while 循环
clear
s=0
i=2
do while i<=100
s=s+i
i=i+2
enddo
? "1到100之间的偶数和: ",S
(2)for 循环
s=0
for i=2 to 100 step 2
s=s+i
endfor
?" 1到100之间的偶数和: ",s
实验4-9 建立一个程序文件excercise8.prg，完成以下功能：

从键盘输入10个数，编程找出其中的最大值和最小值。
程序代码如下：
clear
input "请从键盘输入一个数：" to a
store a to max,min
for i=2 to 10
input "请从键盘输入一个数：" to a
if maxax=a
endif
if min>a
min=a
endif
endfor
? "最大值为：" , max
? "最小值为：" , min

实验4-10 建立一个程序文件excercise9.prg，完成以下功能：

输出： *
* *
* * *
* * * *
程序代码如下：
for i=1 to 4
for j=1 to i
??"* "
endfor
?
endfor
实验4-11 建立一个程序文件excercise10.prg，完成以下功能：

求1!＋2!＋3!＋……＋100!
程序代码如下：
s=0
for i=1 to 10
m=1
for j=1 to i
m=m*j
endfor
s=s+m
endfor
?"阶乘和为：",s
实验4-12 建立一个程序文件excercise11.prg，完成以下功能：
用多层for循环求在0到999范围内找出水仙花数
（该数各位数字的平方和等于这个数本身）
程序代码如下：
For a=0 to 9
For b=0 to 9
For c=0 to 9
if a^3+b^3+c^3=100*a+10*b+c
?100*a+10*b+c
endif
endfor
endfor
endfor
实验4-13 建立一个程序文件excercise12.prg，完成以下功能：
显示商品表中类别为粮油的商品信息

open database 商品管理
use 商品
scan for 类别="粮油"
display
endscan
close database

实验12-1 建立一个程序文件excercise13.prg，完成以下功能：
已知商品表和订购单表，通过键盘输入的信息，控制查询内容：当输入1时，可调用过程p1.prg(查看每种商品的商品名称)；当输入2时，可调用过程p2.prg（查看每种商品的类别）；当输入3时，可调用过程p3.prg（查看每种商品的订购数量和单价）；当输入4时，可调用过程p4.prg（查看每种商品的供应商）
程序代码如下：
clear
do while .T.
accept"输入1—4:" to k
do case
case k="1"
do p1
case k="2"
do p2
case k="3"
do p3
case k="4"
do p4
endcase
accept "还继续查看吗？" to z
if z="n"
exit
endif
enddo
**调用子程序p1.prg的代码如下：
? "查看每种商品的商品名称"
sele 商品编号,商品名称 from 商品
return
**调用子程序p2.prg的代码如下：
? "查看每种商品的类别"
sele 商品编号,类别 from 商品
return
**调用子程序p3.prg的代码如下：
? "查看每种商品的订购数量和单价"
sele商品.商品编号,商品名称,订购数量,单价 from 商品, 订购单where 商品.商品编号=订购单.商品编号
return
**调用子程序p4.prg的代码如下：
? "查看每种商品的供应商"
sele 商品编号,商品名称 from 商品, 订购单,供应商　where 商品.商品编号=订购单.商品编号 and订购单.商品编号=供应商.商品编号
return