VFP顺序结构和选择结构


vfp支持3种基本程序控制构造:顺序结构,选择结构和循环结构

一.顺序结构:我们将依次执行程序中的语句的程序结构称为顺序结构,这是简单的1种程序结构

例:顺序结构例程

程序文件内容:

set talk off

clear

input "请输入圆的半径:" to r

s=3.1415926*r*r

"圆的面积是:",s

return

说明:执行程序时,屏幕上显示提示信息:请输入圆的半径.当用户键入半径并按回车时,vfp计算出圆的面积并显示在屏幕上.

二.选择结构:实际应用中,常需要先判断后处理,根据不同情况做不同的处理.选择结构就是对指定的条件进行判断,如果条件成立,则执行指定的语句序列.在vfp中,选择结构包括if语句和do case语句.

1.if语句:

格式:

if 条件

语句序列1

[else]

[语句序列2]

endif

说明:

(1).格式中的条件,多为条件表达式或逻辑表达式,结果为逻辑真或逻辑假

(2).执行该语句时,首先对条件进行判断,如果是逻辑真,则执行语句序列1,然后转到endif后的第1条语句继续执行;否则执行语句序列2,然后转到endif后的第1条语句继续执行.

(3).需判断的条件比较多时,可以使用if语句嵌套.

(4)endif必须与if成对出现

例:设计1个查询程序,希望当待人不存在时有信息提示.

程序文件内容:

clear

accept "请输入待查人姓名" to xm

locate for 姓名=xm

if .not.eof()

display

else

messagebox("查无此人")

endif

use

return

说明:程序执行时,执行locate命令时,记录指针从表的首记录一直找到后1条记录都未发现该姓名记录时,记录指针才后停在文件尾,此时eof()为真值;相反,若eof()取假值,则表示记录指针停在待查人的记录上.即当

.not.eof()为真时,记录指针停在待查人的记录上,查到的指定的记录.也可用found()来代替程序中的.not.eof()