foxpro程序设计基础

《foxpro程序设计基础》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、四、VisualFoxPro程序设计基础一、实验目的：通过具体事例，掌握程序的基本概念，基本的输入输出命令；熟悉掌握程序设计的三大结构----顺序结构，分枝结构，循环结构的用法；子程序、过程及函数的使用；形参和实参、全局变量和局部变量的用法。二、实验内容1、程序文件的建立、修改与执行1）界面方式：文件à新建à在新建对话框中选择程序à新建文件（或直接点新建按钮）打开一个已经存在的程序文件，即可修改。程序à运行à在运行对话框中选择要执行的程序，即可执行该程序。2）命令方式：modifycommand[<文件名>]若文件名不存在，则建立新文件，否之，则修改已存在

2、的文件。文件的执行：Do<文件名>2、简单的输入输出命令1）accept命令：*accept的用法settalkoffclearaccept"请输入："toshp?"你输入的内容是:"+shpsettalkonreturn输出结果：注：该命令只接收字符型数据，输入的字符串不需要加定界符。2）input命令*计算正方形的面积input的用法settalkoffclearinput"请输入正方形的边长："toas=a*a?"边长为"+str(a,6,2)??"的正方形的面积为"+str(s,6,2)settalkonreturn输出结果：注：input命令可以

3、输入字符型、数值型、逻辑型、日期型和日期时间型等类型的数据，而且可以是常量、变量、函数表达式等形式。但，如果是字符串，必须用定界符括起来；如果是变量，事先该变量必须已经赋值；如果是函数或表达式，input命令先计算求值后再将该值赋给内存变量。3）wait命令*wait的用法settalkoffclearopendatabasesp&&sp数据库必须存在usespxx&&spxx数据表必须存在accept"请输入商品编号："toshp&&输入的商品编号重要存在，否则无输出信息locateforspbh=shpdisplaywait"判断是否正确？正确---1

4、；错误---0"toaifval(a)=1wait"该记录正确有效！"windowstimeout8elsewait"该记录错误有效！"windowsat20,30timeout8endifuseclosedatabasesettalkonreturn输出结果：1、程序设计的三大结构1）顺序结构SETTALKOFFCLEARINPUT"请输入圆的半径："TORL=2*3.1416*R@10,30SAY"圆的周长是："+STR(L,6,3)SETTALKON输出结果：2）分枝结构*求一个一元二次方程的根分支结构举例SETTALKOFFCLEARINPUT"A

5、="TOAINPUT"B="TOBINPUT"C="TOCD=B*B-4*A*CIFD>=0X1=(-B+SQRT(D))/(2*A)X2=(-B-SQRT(D))/(2*A)?"方程的两根是："+STR(X1,2)+SPACE(4)+STR(X2,2)ELSE?"方程无实根！"ENDIFSETTALKONRETURN*分段函数判断语句嵌套SETTALKOFFCLEARINPUT"X="TOXIFX>0IFX>10Y=X*X+1ELSEY=3*X*X-2*X+1ENDIFELSEY=X*X+4*X-1ENDIF?"段函数值为："+STR(Y,10,2)SE

6、TTALKONRETURN输出结果：1）循环结构*求和1-100当型循环SETTALKOFFCLEARSTORE0TON,SDOWHILEN<=100S=N+SN=N+1ENDDO?"累加和S=",SSETTALKONRETURN输出结果：*求和settalkoffclearinput"请输入项数："tons=0i=0aa=""dowhilei

7、=8@A,B+ASAY"*"B=B+1ENDDOA=A+1ENDDOSETTALKONRETURN输出结果：*输出九九乘法表SETTALKOFFCLEARFORY=1TO9FORX=1TO9Z=Y*X??STR(Y,1)+"*"+STR(X,1)+"="+STR(Z,2)+""ENDFOR?ENDFORSETTALKONRETURN输出结果：三、实验总结//////////////////////////////////////////////////////////////////////////////*显示商品信息表spxx.dbf的结构和记录set

8、talkoff&&取消对话方式clear&&清除系统主窗口或当前窗