VisualFoxPro90程序设计基础第5章程序设计基础.pptxVIP

数据库技术及应用;第五章 VFP程序设计根底;教学目的和要求 ;教学重点 ;章节内容;章节内容;5.1.1 根本概念;5.1.1 根本概念;5.1.2 程序设计方法与步骤;5.1.2 程序设计方法与步骤;5.1.2 程序设计方法与步骤;5.1.2 程序设计方法与步骤;5.1.2 程序设计方法与步骤;5.1.3 顺序程序设计; 格式：?/??[表达式表] 功能：计算并输出表达式的值。 说明： ① 命令中的表达式可以包含字段变量和内存变量，表达式之间以逗号分隔。 ② 两个命令的区别在于：? 命令先换行，再开始输出；?? 命令不换行即开始输出。 ③ ? 后面假设没有表达式表，那么只进行换行操作。;2. 语句的续行 当一条语句或一个命令很长时，在代码编辑窗口或命令窗口阅读时将不便查看，使用滚动条又比较麻烦。这时，就可以使用续行功能，用分号“；〞将较长的语句分为两行或多行。作为续行符的分号只能出现在行尾。 ;3．注释命令 为增加程序的可读性，常常要在程序中参加一些注释，对程序中使用的变量、算法进行说明。注释仅起说明作用，不参与程序运行。Visual FoxPro提供了2种注释的方法 其一：在程序行开头加“*〞 表示本行为注释行 其二：命令行中字符“〞后面的局部为注释 ;试编写一个程序完成两个变量内容的交换。 分析：要完成两个变量内容的交换，需引入第三个变量作为临时变量，需要三个步骤来完成交换，设变量a、b分别保存不同的值，引入第三个变量c，那么需下述步骤： 〔１〕将变量a赋值给c； 〔２〕将变量b赋值给a； 〔３〕将变量c赋值给b；;代码如下： a＝１ b＝2 ?a，b c＝a a＝b b＝c ?a，b;顺序结构 按程序中的语句顺序依次执行。 例 STORE 4 TO r S=3.14*r*r ?S;5.1.4 选择结构程序设计;5.1.4 选择结构程序设计;5.1.4 选择结构程序设计;5.1.4 选择结构程序设计;闰年问题;判断某一年是否是闰年。 Y=2005 IF y/4=INT(y/4) AND y/100INT(y/100) OR y/400=INT(y/400) ? STR(y)+是闰年 ELSE ? STR(y)+不是闰年 ENDIF;3．多分支选择结构 ;说明： ⑴ Do Case和第一个Case子句之间不能插入任何命令。 ⑵ Do Case 和 Endcase必须配对使用，且Do Case、Case、Otherwise 和 Endcase各子句必须各占一行。 ⑶ 命令组中可含有任何Visual FoxPro命令，包括可嵌套Do Case命令。 ;多重判断的问题？选择的嵌套;;分支函数，编写程序。 X=5,b=10,c=1 DO CASE CASE x0 fx=(a*x+b)/( a*x-b) CASE x=0 fx=1 OTHERWISE fx=(a*x-b)/( a*x+b) ENDCASE ? 函数F(X)的值为：+STR(fx,6,1);循环结构程序设计;1．Do While命令 格式：Do While ＜条件＞ ＜命令序列＞ [Loop] ＜命令序列＞ [Exit ] ＜命令序列＞ Enddo 功能：首先判断条件表达式的值，假设为.T.，就执行Do While与Enddo之间的命令序列(称为循环体)，然后再判断条件表达式的值，重复刚刚的过程。一旦条件取值为.F.，就跳出循环体转而执行Enddo后的下一条命令。;;根据职工的职称修改职工的工资。假设职称为“高级工程师〞，那么工资增加200，假设职称为“工程师〞，那么那么工资增加150，假设职称为“助理工程师〞，那么工资增加100。;CLEAR USE 职工 DO?WHILE?.NOT. EOF() DO?CASE CASE?职称=“高级工程师〞 REPLACE?工资?WITH?工资+200 CASE?职称=“工程师〞 REPLACE?工资?WITH?工资+150 CASE?职称=“助理工程师〞 REPLACE工资?WITH?工资+100 ENDCASE SKIP ENDDO USE ;;2．For-Next循环命令 格式：For ＜内存变量＞=＜表达式l＞ To ＜表达式2＞ [Step ＜表达式3＞] ＜命令序列＞ [Exi