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

实验九十十一、VFP中程序设计一、实验目的与要求：（）了解程序的建立与执行方法。（）熟练掌握结构化程序设计的三种流程控制结构：顺序结构、分支结构和循环结构。（）简单了解多模块程序设计方法，及模块间相互调用方法。二、实验内容：（，然后输入代码，输入结束后保存并运行即可完成程序的操作）实验4-1新建程序文件的方法： （1） 选择文件菜单下的新建，在新建对话框中选择程序，再单击新建文件即可进入程序编辑器。（2） 命令方式：MODIFY COMMAND 实验4-2 新建程序文件excercise1.prg，编写代码，要求完成以下功能：输出字符“中国”，同行输出字符“大连”，换行输出“工业大学”。程序代码如下：clear &清除屏幕? 中国? 大连? 工业大学实验4-3 打开程序文件excercise1.prg，添加代码，要求完成以下功能：(1) 利用accept输入命令输入一个字符串，并将输入的字符串存入变量icode中。(2) 利用input输入命令输入一个字符串，并将输入的字符串存入变量icode1中。(3) 利用input输入命令输入一个数值，并将输入的字符串存入变量value1中。(4) 将icode、icode1、value1输出到屏幕上，要求输出到同一行。程序代码如下：accept 输入一个字符串 to icodeinput 输入一个字符串 to icode1input 输入一个数值 to value1? icode,icode1,value1(注意：accept和input输入字符的格式不同，input输入是应加定界符)实验4-4 建立程序文件excercise2.prg，完成以下功能：清屏，在屏幕上输出“请输入长方形的长：” “请输入长方形的宽：”，并将用户输入的长、宽输入到变量chang,kuan中。利用长方形的周长、面积公式求出周长、面积。并以“”、“长方形的面积是XXX平方米”的形式显示出来。程序代码如下：clearinput 请输入长方形的长： to changinput 请输入长方形的宽： to kuanl= (chang+kuan)*2s= chang*kuan? 长方形的周长是,l,米? 长方形的面积是,s, 平方米实验4-5 建立程序文件excercise3.PRG，完成以下功能：密码校验程序:假设密码为ABC，如果密码正确，显示欢迎使用本系统！；如果密码错误，则显示密码错误！。程序代码如下：ClearAccept 请输入您的密码： To MIf M=abc? 欢迎使用本系统！Else?密码错误！Endif实验4-6 新建程序excercise4.prg。编写，代码，要求完成以下功能：求一元二次方程 ax2bxc0的实根。如果有实根则显示其根，否则显示无实根。程序代码如下：input to ainput to binput to cz=b2-4*a*cif z=0x1=(-b+sqrt(z)/(2*a)x2=(-b-sqrt(z)/(2*a)? x1,x2else? 无实根endifreturn实验4-7 新建程序excercise5.prg。编写代码，要求完成以下功能：假设收入（P）与税率（R）的关系如下表，编程求税金。 0 P800 R= 0.05 800 P2000 0.08 2000P5000 0.1 P5000 程序代码如下：input “请输入收入：” to pdo casecase p800 r=0case p2000 r=0.05case p5000 r=0.08otherwise r=0.1endcasetax=p*r? ”税金为：”,taxreturn实验4-8 建立一个程序文件excercise6.prg和exercise7.prg，完成以下功能：编程求1到100之间的偶数和。程序代码如下：(1) do while 循环clears=0i=2do while i=100 s=s+i i=i+2enddo? 1到100之间的偶数和: ,S(2)for 循环s=0for i=2 to 100 step 2s=s+iendfor? 1到100之间的偶数和: ,s实验4-9 建立一个程序文件excercise8.prg，完成以下功能：从键盘输入10个数，编程找出其中的最大值和最小值。程序代码如下：clearinput 请从键盘输入一个数： to astore a to max,minfor i=2 to 10input 请从键盘输入一个数： to aif maxa min=aendifendfor? 最大值为： , max? 最小值为： , min实验4-10 建立一个程序文件excercise9.prg，完成以下功能：输出：* * * * * * *程序代码如下：for i=1 to 4for j=1 to i?* endfor ?endfor实验4-11 建立一个程序文件excercise10.prg，完成以下功能：求1!2!3!100! 程序代码如下：s=0for i=1 to 10 m=1for j=1 to im=m*jendfors=s+mendfor?阶乘和为：,s实验4-12 建立一个程序文件excercise11.prg，完成以下功能：用多层for循环求在0到999范围内找出水仙花数（该数各位数字的平方和等于这个数本身）程序代码如下：For a=0 to 9 For b=0 to 9 For c=0 to 9 if a3+b3+c3=100*a+10*b+c ?100*a+10*b+c endif endfor endfor endfor实验4-13 建立一个程序文件excercise12.prg，完成以下功能：显示商品表中类别为粮油的商品信息open database 商品管理use 商品scan for 类别=粮油displayendscanclose database实验12-1 建立一个程序文件excercise13.prg，完成以下功能：已知商品表和订购单表，通过键盘输入的信息，控制查询内容：当输入1时，可调用过程p1.prg(查看每种商品的商品名称)；当输入2时，可调用过程p2.prg（查看每种商品的类别）；当输入3时，可调用过程p3.prg（查看每种商品的订购数量和单价）；当输入4时，可调用过程p4.prg（查看每种商品的供应商）程序代码如下：cleardo while .T. accept输入14: to k do case case k=1 do p1case k=2 do p2case k=3 do p3case k=4 do p4endcaseaccept 还继续查看吗？ to zif z=n exitendifenddo*调用子程序p1.prg的代码如下：? 查看每种商品的商品名称sele 商品编号,商品名称 from 商品return*调用子程序p2.prg的代码如下：? 查看每种商品的类别sele 商品编号,类别 from 商品return*调用子程序p3.prg的代码如下：? 查看每种商品的订购数量和单价sele商品.商品编号,商品名称,订购数量,单价 from 商品, 订购单where 商品.商品编号=订购单.商品编号return*调用子程序p4.prg的代码如下：? 查看每种商品的供应商sele 商品编号,商品名称 from 商品, 订购单,供应商where 商品.商品编号=订购单.商品编号 and订购单.商品编号=供应商.商品编号return