VFP程序设计基础

VFP面向结构程序设计基础旌德职教中心陈俊友2015年11月1简单的输入/输出命令1.1INPUT命令：输入表达式命令格式INPUT[字符表达式]TO内存变量功能命令等待用户从键盘输入数据后按回车键确认字符表达式为提示信息输入的数据可以是常量、变量、表达式，但不能不输入数据直接按回车除N型数据之外，在输入不同的数据类型数据时要加定界符，如’李明’、.T.、.F.、{^2005-10-28}输入半径，求圆的面积SettalkOff&&关闭对话模式Clear&&清屏INPUT请输入圆的半径R＝TORS=3.1415926*R*R?圆的面积为S=+Str(s)ReturnSetTALKON注：当执行程序时，首先在屏幕上显示”请输入圆的半径R＝”，并等待用户输入数据（直接输入，如2），用户输入完数据，并回车，程序才可以执行并显示执行结果（圆的面积为S=12.5663704）1.2ACCEPT命令：输入字符串命令格式ACCEPT[字符表达式]TO内存变量功能命令等待用户从键盘输入字符串命令只能接收字符串，输入字符串不需要加定界符，否则，系统会把定界符作为字符串的一部分不输入任何内容按回车键，则把空串赋给指定的内存变量输入半径，求圆的面积SettalkOff&&关闭对话模式Clear&&清屏ACCEPT请输入圆的半径R＝TORS=3.1415926*VAL(R)*VAL(R)?圆的面积为S=+Str(s)ReturnSetTALKON注：当执行程序时，首先在屏幕上显示”请输入圆的半径R＝”，并等待用户输入数据（直接输入，如2），用户输入完数据，并回车，程序才可以执行并显示执行结果（圆的面积为S=12.5663704）1.3WAIT命令：输入单个字符命令格式WAIT[字符表达式][TO内存变量][WINDOW][TIMEOUT时间]功能显示字符表达式的值作为提示信息，暂停程序的执行，直到用户按任意键或单击鼠标时继续程序的执行；缺省，则显示默认的提示信息“按任意键继续……”内存变量保存用户键入的字符，类型为字符型WINDOW子句会在系统窗口出现一个WAIT提示窗口TIMEOUT子句用来设定等待时间（秒数）。如果在等待时间里用户没有按键，系统将不再等待。示例WAIT输入有误，请重新输入WindowTIMEOUT5Accept、input、wait之间的区别：wait命令只能输入一个字符，accept命令可以输入一个字符串，input命令可以输入各种类型的表达式。因此，wait命令和Accept命令中的变量一定是C型变量，而input命令中的变量类型由输入的表达式的值的数据类型决定。使用wait命令输入数据时，只需输入一个字符，不需要按回车键，而使用accept命令和input命令输入数据时，需要按回车键表示输入结束。。使用wait命令和accept命令输入C型数据时，不需要加定界符，而使用input命令输入C型数据时，需要加定界符。accept命令和input命令只能在屏幕的当前光标下一行开始显示数据，而wait命令既可在屏幕上显示数据，也可以在系统窗口中显示数据。因此，wait命令常用于输入单字符和显示信息；accept命令常用于输入字符串；input命令常用于输入其他类型的数据。举例：例1：输入学生的学号，保存到变量XH中ACCEPT”请输入学号：”TOXH当程序执行时，首先在屏幕上显示”请输入学号：”，并等待用户输入“学号”数据”（直接输入，不加定界符，如20040001），用户输入完数据，并回车，程序才可以执行并显示执行结果。例2：①输入学生的入学成绩，保存到变量CJ中INPUT”请输入入学成绩：”TOCJ当程序执行时，首先在屏幕上显示”请输入入学成绩：”，并等待用户输入“入学成绩”数据（直接输入，如89），用户输入完数据，并回车，程序才可以执行并显示执行结果。②输入学生的学号，保存到变量XH中INPUT”请输入学号：”TOCJ当程序执行时，首先在屏幕上显示”请输入学号：”，并等待用户输入“学号”数据（加定界符输入，如“20040001”），用户输入完数据，并回车，程序才可以执行并显示执行结果。举例：例3：①要求用户选择输入字符Y或NWait“是否继续（Y/N）？”TOXZWINDOW当程序执行时，首先在系统窗口显示提示窗口”是否继续（Y/N）？”，并等待用户输入字符Y或字符N，用户输完，程序才开始执行。否则无限等待下去，直到用户按键为止。②显示“正在处理数据，请稍候”，并等待2秒Wait“正在处理数据，请稍候”WINDOWTIMEOUT2当程序执行时，首先在系统窗口显示提示窗口”正在处理数据，请稍候”，并等待用户2秒时间。如果在等待时间里用户没有按键，系统将不再等待。2格式输入/输出语句2.1格式输入语句格式@行号,列号Say提示GET变量名…可以是多个语句READ功能VFP等待用户输入一个或多个值输入半径，求圆的面积R=0&&指定变量的数据类型和初值@10,10SAY请输入圆的半径:GETRREADS=3.1415926*R*R@12,10SAY圆的面积为：+str(s)注：当执行程序时，首先在屏幕上显示”请输入圆的半径R＝”，将R=0显示于其后等待用户重新输入数据（如输入2，将原值0改成2），用户输入完数据，并回车，程序的执行结果（圆的面积为S=12.5663704）在第12行的第10列显示。2.2格式输出语句顺序输出语句格式?表达式|??表达式?表示换行输出??表示不换行输出，紧接着上一个输出语句输出。示例?2*3??Hello,World!“输出消息框语句格式messagebox(提示信息)功能：在VFP窗口出现一个内容为“提示信息”的消息框示例messagebox(“数据错误，请重新输入”)格式输出语句格式@行号,列号SAY表达式示例@10,10Say2*3@12,10SayHello,World!测试行坐标与列坐标函数测试行坐标函数ROW（）返回当前光标的行坐标测试列坐标函数COL（）返回当前光标的列坐标3程序运行环境设置命令1、CLEARALL：功能：清除用户自定义的内存变量2、SETTALKON|OFF:设置会话状态功能：设置是否显示某些命令执行的结果。说明：程序的开头不显示，程序结束时显示。它们在程序中成对出现3、SETSAFETYON|OFF功能：设置删除文件时是否显示提示信息。说明：它们在程序中也是成对出现的。4几个特殊命令（1）CANCEL：终止程序运行，清除所有的局部变量，返回命令窗口；（2）CLEAR：清屏命令，清除屏幕上的显示信息（3）RETURN：结束当前程序的执行，返回到调用它的上级程序，若无上级程序则返回到命令窗口；5结构化程序结构化程序由顺序结构、分支结构和循环结构三种基本结构组成⑴顺序结构：程序执行顺序是根据程序中语句的书写顺序⑵分支结构：程序执行顺序是根据条件的成立与否，选择执行不同的程序语句⑶循环结构：程序执行顺序是在条件成立时反复执行某段程序语句由三种基本结构构成的程序，可以处理任何复杂的问题VisualFoxPro程序的组成部分（1）程序的注释部分一般用于说明程序的功能、文件名等需要说明的有关信息。（2）程序运行环境的设置及初始化部分（3）数据处理部分包括三个部分：提供原始数据部分、数据处理部分、输出结果部分这部分是程序核心部分（4）控制返回部分它控制程序返回到调用该程序的调用处。引例从键盘上输入一个正数为半径，求圆周长和圆面积*求圆周长和面积GetCircleArea.PRG程序的注释部分CLEAR程序运行环境的设置SETTALKOFF程序运行环境的设置开始INPUT半径=TOR初始化部分L=2*PI()*RS=PI()*R*R?圆周长=,L?圆面积=,SSETTALKON程序运行环境的设置结束RETURN控制返回部分数据处理部分5.1顺序结构按语句排列顺序执行，是三种结构中最基本、最简单的结构语句1语句2语句3求圆周长和圆面积程序从键盘上输入一个正数为半径，求圆周长和圆面积*求圆周长和面积GetCircleArea.PRG&&注释语句CLEAR&&清屏语句SETTALKOFF&&系统参数设置语句INPUT半径=TOR&&输入圆半径值L=2*PI()*R&&计算圆周长S=PI()*R*R&&计算圆面积?圆周长=,L&&显示圆周长值?圆面积=,S&&显示圆面积值SETTALKON&&恢复参数设置语句RETURN&&返回语句求任意三角形的周长和面积输入三角形三边长a,b,c，计算周长和面积周长计算公式L=a+b+c面积计算公式求任意三角形的周长和面积程序SettalkOffClearINPUT请输入边长a=toaINPUT请输入边长b=tobINPUT请输入边长c=tocL=a+b+cD=(a+b+c)/2S=sqrt(d*(d-a)*(d-b)*(d-c))?三角形的周长L=+str(L)?三角形的面积S=+str(S)SETTALKON输入姓名查询学生信息used:\陈俊友\数据库\xsdaaccept请输入学生姓名:tonamelocatefor姓名==namedisplayuse5.2分支结构1、单分支语句：IF…ENDIF语句格式：IF条件&&（表示选择结构开始）语句序列ENDIF&&（表示选择结构结束）程序执行流程：程序执行到单分支选择结构时，首先判断IF后面给定条件是否成立，成立，则先执行语句序列，再执行ENDIF后面的语句；否则，不执行语句序列，直接执行ENDIF后面的语句2、双分支结构：IF…ELSE…ENDIF语句IF条件语句序列1[ELSE语句序列2]ENDIF双分支选择结构说明语句功能：判断给定的条件是否成立。成立，则执行语句序列1；否则执行语句序列2。（1）ELSE是一个可选项。当ELSE子句缺省时，如果条件不成立，将不执行任何语句。直接转向ENDIF后的下一条语句。（2）IF和ENDIF必须成对出现，IF是本结构的入口，ENDIF是本结构的出口。求圆周长和圆面积程序当输入半径大于零时，计算圆周长和圆面积，否则显示半径值不能小于等于零的提示信息。CLEARSETTALKOFFINPUT半径=TORIFR0L=2*PI()*RS=PI()*R*R?圆周长=,L?圆面积=,SELSE?半径值不能小于等于零ENDIFSETTALKOn求任意三角形的周长和面积程序SettalkOffClearINPUT请输入边长a=toaINPUT请输入边长b=tobINPUT请输入边长c=tocIFA+B=CORB+C=AORA+C=Bora=0orb=0orc=0Wait输入的边长不能组成三角形returnendifd=(a+b+c)/2S=sqrt(d*(d-a)*(d-b)*(d-c))?三角形的周长L=+str(d*2)?三角形的面积S=+str(S)SETTALKON求二元一次方程的根输入二元一次方程系数a,b,c，计算二元一次方程根计算公式如下：分支语句嵌套：条件语句可以嵌套，但不能出现交叉。在嵌套时，为了使程序清晰、易于阅读，可按缩进格式书写。IF条件IF条件语句序列1ENDIFELSEIF条件语句序列2ELSE语句序列3ENDIFENDIF求X、Y、Z三个数中的最大值INPUT输入X=TOXINPUT输入Y=TOYINPUT输入Z=TOZIFX=YIFX=ZMAX=XELSEMAX=ZENDIFELSEIFY=ZMAX=YELSEMAX=ZENDIFENDIF?MAX3、多分支语句结构：DOCASE…ENDCASE语句DOCASECASE条件1语句序列1CASE条件2语句序列2……CASE条件n语句序列n[OTHERWISE语句序