程序设计基础15946.docVIP

四、Visual FoxPro程序设计基础 实验目的：通过具体事例，掌握程序的基本概念，基本的输入输出命令；熟悉掌握程序设计的三大结构----顺序结构，分枝结构，循环结构的用法；子程序、过程及函数的使用；形参和实参、全局变量和局部变量的用法。 实验内容 程序文件的建立、修改与执行 界面方式：文件(新建(在新建对话框中选择程序(新建文件（或直接点新建按钮） 打开一个已经存在的程序文件，即可修改。 程序(运行(在运行对话框中选择要执行的程序，即可执行该程序。 命令方式：modify command [文件名] 若文件名不存在，则建立新文件，否之，则修改已存在的文件。 文件的执行：Do 文件名 简单的输入输出命令 accept命令： * accept的用法 set talk off clear accept 请输入： to shp ? 你输入的内容是:+shp set talk on return 输出结果： 注：该命令只接收字符型数据，输入的字符串不需要加定界符。 input命令 *计算正方形的面积 input的用法 set talk off clear input 请输入正方形的边长： to a s=a*a ? 边长为+str(a,6,2) ?? 的正方形的面积为+str(s,6,2) set talk on return 输出结果： 注：input命令可以输入字符型、数值型、逻辑型、日期型和日期时间型等类型的数据，而且可以是常量、变量、函数表达式等形式。但，如果是字符串，必须用定界符括起来；如果是变量，事先该变量必须已经赋值；如果是函数或表达式，input命令先计算求值后再将该值赋给内存变量。 wait命令 * wait的用法 set talk off clear open database sp sp数据库必须存在 use spxx spxx数据表必须存在 accept 请输入商品编号： to shp 输入的商品编号重要存在，否则无输出信息 locate for spbh=shp display wait 判断是否正确？正确---1；错误---0 to a if val(a)=1 wait 该记录正确有效！windows timeout 8 else wait 该记录错误有效！windows at 20,30 timeout 8 endif use close database set talk on return 输出结果： 程序设计的三大结构 顺序结构 SET TALK OFF CLEAR INPUT 请输入圆的半径： TO R L=2*3.1416*R @10,30 SAY 圆的周长是：+STR(L,6,3) SET TALK ON 输出结果： 分枝结构 *求一个一元二次方程的根 分支结构举例 SET TALK OFF CLEAR INPUT A= TO A INPUT B= TO B INPUT C= TO C D=B*B-4*A*C IF D=0 X1=(-B+SQRT(D))/(2*A) X2=(-B-SQRT(D))/(2*A) ? 方程的两根是：+STR(X1,2)+SPACE(4)+STR(X2,2) ELSE ? 方程无实根！ ENDIF SET TALK ON RETURN *分段函数 判断语句嵌套 SET TALK OFF CLEAR INPUT X= TO X IF X0 IF X10 Y=X*X+1 ELSE Y=3*X*X-2*X+1 ENDIF ELSE Y=X*X+4*X-1 ENDIF ? 段函数值为：+STR(Y,10,2) SET TALK ON RETURN 输出结果： 循环结构 *求和1-100 当型循环 SET TALK OFF CLEAR STORE 0 TO N,S DO WHILE N=100 S=N+S N=N+1 ENDDO ? 累加和S=,S SET TALK ON RETURN 输出结果： *求和 set talk off clear input 请输入项数： to n s=0 i=0 aa= do while in i=i+1 s=s+i enddo ? 1+2+3+...+str(n)+=,s set talk on return 输出结果： *输出图形 SET TALK OFF CLEAR A=1 DO WHILE A=7 B=1 DO WHILE B=8 @A,B+A SAY * B=B+1 ENDDO A=A+1 ENDDO SET TALK ON RETURN 输出结果： *输出九九乘法表 SET TALK