《数据库应用》课件PPT-06Visual FoxPro程序设计基础.ppt

《数据库应用》课件PPT-06Visual FoxPro程序设计基础.ppt

  1. 1、本文档共134页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
《数据库应用》课件PPT-06Visual FoxPro程序设计基础

6.1.1 程序的基本组成(3) 程序的编制过程为: 6.1.2 程序文件的建立和编辑 建立和编辑有两种方式:命令和菜单 1. 命令方式 命令格式: MODIFY COMMAND [程序文件名|?] 命令功能:启动文本编辑器。 2. 菜单方式 打开—新建—程序(新建文件) 当程序被执行时,文件中的命令被依次执行,直到所有命令被执行完毕,或者执行到以下命令: CANCAL 终止程序运行,清除所有的私有变量,返回命令窗口。 DO 转向执行另一个程序。 RETURN 结束当前程序的执行,返回到调用它的上级程序,若无上级程序则返回命令窗口。 QUIT 退出VF系统,返回操作系统。 格式化输出命令SAY 例:建立一个程序文件test01.prg,该文件用于实现:从键盘上输入两个数值,计算它们的和,并在屏幕的第10行第20列上输出其和。 set talk off clear input 请输入X的值: to x input 请输入Y的值: to y z=x+y ? z=, z @10,20 say X与Y的和为:+str(z,3) set talk on 算法的描述 用流程图表示 流程图就是用一些图形符号(框和线)来表示算法的每一步及 各步之间联系的图形。常用的流程图有美国国家标准协会 (ANSI)推出的标准ANSI流程图和N-S盒图。ANSI流程图的基本 符号为: 算法的表示方法 算法的描述 用流程图表示 用ANSI流程图表示算法,优点是直观形象, 各种操作一目了然,而且不会产生“歧义性”, 流程清晰;缺点是占面积大,而且由于允许使 用流程线,当流程转移多,容易使人弄不清流 程的思路。 算法的描述 N-S流程图特点 N-S流程图的主要特点是取消了流程线,即 不允许流程任意转移,而只能从上到下顺序进 行。N-S图的优点是只能描述结构化程序所允 许的控制结构,从而迫使用户遵守结构化程序 设计的原则。N-S图可以嵌套也可以并列,能 清楚地显示程序的结构。缺点是:如果嵌套层 数太多,内层的方框越画越小,影响图形的清 晰度。 顺序结构 多重条件分支结构 循环结构 求1至100之间的所有自然数之和。   练习: 例2:输入一个数,判别其奇偶性。 例3:输入三个数,按升序排列。 例4:输入姓名,根据学生表中的入学成绩决定某学生能否得到奖学金,成绩大于600分即可获得奖学金。 例6:输入姓名,根据学生表中的入学成绩决定某学生能否得到奖学金,成绩大于600分即可获得奖学金,若学生表中无此姓名,则提示输入错误。 set talk off clear use student accept请输入学生姓名:to xm locate for 姓名=xm If found() if 入学成绩=600 ?姓名+同学可以获得奖学金 else ?姓名+同学不能获得奖学金 endif else ?”查无此人,输入错误!” endif use set talk on 课堂练习:输入三个数,按升序排列。(方法二) set talk off clear input 请输入X的值: to x input 请输入Y的值: to y if x=0 f=-1 else if x0 and y100 f=2*x^3+7*y else if x0 and y=100 f=sqrt(x)+sqrt(y) else f=没有结果值! endif endif endif ?f=,f ”f=”+alltrim(str(f)) set talk on 例:随机输入年份,判断该年是否是闰年。判断闰年的条件是: 年份如能被4整除但不能被100整除,是闰年; 或年份能被400整除,则是闰年。 clear input请输入年份:to nyear if nyear/4=int(nyear/4) if nyear/100=int(nyear/100) if nyear/400=int(nyear/400) ?闰年 else ?非闰年 endif else ?闰年 endif else ?非闰年 endif return 求闰年另一种表示方法: cle

文档评论(0)

jiupshaieuk12 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

版权声明书
用户编号:6212135231000003

1亿VIP精品文档

相关文档