目录4三祭输入命令的异同 々 ACCEPT命令只能接受字符型数据,不需定界符,输 入完毕按回车键结束 上一页 下下 WAT命令只能输入单个字符,且不需定界符,输入 页』完毕不需按回车键: 退出NPUT命令可接受数值型、字符型、逻辑型、日期型 和日期时间型数据,数据形式可以是常量、变量、 函数和表达式,如果是字符串,需用定界符,输入 完毕按回车键结束
目 录 上一页 下一页 退 出 16 4．三条输入命令的异同 ACCEPT命令只能接受字符型数据，不需定界符，输 入完毕按回车键结束； WAIT命令只能输入单个字符，且不需定界符，输入 完毕不需按回车键； INPUT命令可接受数值型、字符型、逻辑型、日期型 和日期时间型数据，数据形式可以是常量、变量、 函数和表达式，如果是字符串，需用定界符，输入 完毕按回车键结束
程序的基本结构 Visual foxpro系统提供的命令丰富,且功能强大,把 要点这些命令和程序设计语句有效地组织在一起,就形成了实现 某一特定功能的程序。 上一页 sual foxpro系统的程序有两个特点:一是程序控制 下下 一页流模式,由顺序、分支、循环三种基本结构构成。二是面向 对象可视化的结构程序模块,在每个模块的内部也是由程序 退出控制流组成。常见的控制结构如下 1.顺序结构 顺序结构是在程序执行时,根据程序中语句的书写顺 序依次执行的命令序列。 Visual foxpro系统中的大多数命 令都可以作为顺序结构中的语句 2.分支结构 分支结构是在程序执行时,根据不同的条件,选择执 行不同的程序语句,用来解决有选择、有转移的诸多问题
目 录 上一页 下一页 退 出 17 程序的基本结构 Visual FoxPro系统提供的命令丰富，且功能强大，把 这些命令和程序设计语句有效地组织在一起，就形成了实现 某一特定功能的程序。 Visual FoxPro系统的程序有两个特点：一是程序控制 流模式，由顺序、分支、循环三种基本结构构成。二是面向 对象可视化的结构程序模块，在每个模块的内部也是由程序 控制流组成。常见的控制结构如下： 1．顺序结构 顺序结构是在程序执行时，根据程序中语句的书写顺 序依次执行的命令序列。Visual FoxPro系统中的大多数命 令都可以作为顺序结构中的语句。 2 分支结构是在程序执行时，根据不同的条件，选择执 行不同的程序语句，用来解决有选择、有转移的诸多问题。 要 点
目录 3.循环结构 要点』循环结构则能够使某些语句或程序段重复执行若干次。如 上一页果某些语句或程序段需要在一个固定的位置上重复操作,使用 下一页 循环是最好的选择 4.过程结构 退出 在许多应用程序中,有一些程序段需要反复执行多次,这 些程序段不在一个固定的位置上,而是分散在程序的许多位置 上重复执行,可将其与嵌入它的程序分开,形成独立的程序序 列,待使用时再调入程序中,以实现不同位置上的重复操作 这样做增强了程序的可读性和模块化。我们称这种具有独立功 能而且可以被其它程序调用的程序序列为过程
目 录 上一页 下一页 退 出 18 3．循环结构 循环结构则能够使某些语句或程序段重复执行若干次。如 果某些语句或程序段需要在一个固定的位置上重复操作，使用 循环是最好的选择。 4．过程结构 在许多应用程序中，有一些程序段需要反复执行多次，这 些程序段不在一个固定的位置上，而是分散在程序的许多位置 上重复执行，可将其与嵌入它的程序分开，形成独立的程序序 列，待使用时再调入程序中，以实现不同位置上的重复操作。 这样做增强了程序的可读性和模块化。我们称这种具有独立功 能而且可以被其它程序调用的程序序列为过程。 要 点
分支结构 分支结构形式有如下三种: 1.单向分支 要点 单向分支语句,即根据用户设置的条件表达式的值, 上一页决定某一操作是否执行。 下一页 (1)语句格式 假 条件式 IF〈条件表达式〉 退出 〈命令行序列 具 语句序列 ENDIF (2)语句功能: ENDF之后语句 该语句首先计算〈条件表达式〉的值,当〈条件表 达式〉的值为真时,执行〈命令行序列〉;否则,执行 ENDIF后面的第一条命令
目 录 上一页 下一页 退 出 19 分支结构形式有如下三种： 1 单向分支语句，即根据用户设置的条件表达式的值， 决定某一操作是否执行。 （1）语句格式： IF〈条件表达式〉 〈命令行序列〉 ENDIF （2）语句功能： 该语句首先计算〈条件表达式〉的值，当〈条件表 达式〉的值为真时，执行〈命令行序列〉；否则，执行 ENDIF后面的第一条命令。 分支结构 要 点 条件式 达式 真 语句序列 假 ENDIF 之后语句
【例6-7】求一元二次方程AX2+BX+C=0的实根。程序文件名 为PROG7PRG。 SET TALK OFF CLEAR 上一页 INPUT TOA 下下 一页 INPUT TO B 退出 INPUT TO C Z=BA2-4*A*C FZ>=0 X1=(-B+ SQRT(Z)/(22 X2=(B-SQRT(Z)/(2*A) ?Ⅹ1X2 ENDIF SET TALK ON RETURN 20
目 录 上一页 下一页 退 出 20 【例6-7】求一元二次方程AX2＋BX＋C＝0的实根。程序文件名 为PROG7.PRG。 SET TALK OFF CLEAR INPUT TO A INPUT TO B INPUT TO C Z＝B^2-4*A*C IF Z>=0 X1=(-B+SQRT(Z))/(2*A) X2=(-B-SQRT(Z))/(2*A) ? X1,X2 ENDIF SET TALK ON RETURN