欢迎来到天天文库
浏览记录
ID:10087667
大小:56.00 KB
页数:7页
时间:2018-05-25
《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=""dowhilei7、=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的结构和记录set8、talkoff&&取消对话方式clear&&清除系统主窗口或当前窗
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&&清除系统主窗口或当前窗
此文档下载收益归作者所有