vfp编程实例

1、1-100的累加

2、阶乘

3、求阶乘和

4、条件定位

5、用scan语句查询定位

6、用scan语句扫描符合条件的记录，并显示出来

7、查找男性职工

** 查找男性职工**

查找男性职工

8、新值换旧值

9、多位整数各个位数相加

10、找100-999之间的“水仙花数”

11、判断一个大于3的数是否为素数

12、求一个班级每个学生的平均成绩

13、计算圆的面积

14、将小写字母转换为大写字母

15、找出最大数和最小数

16、绝对值函数的实现

17、绝对值函数实现的另一种方法

18、输出成绩等级

19、求一名学生的平均成绩

20、用数组的方法，计算一个学生的平均成绩

21、用do case语句实现符号函数的功能

22、用一般选择语句实现符号函数的功能

23、用简单选择语句实现符号函数功能

24、打开数据库和数据表

25、显示表中指定信息

26、询问后再由用户按（Y/N)键执行的程序实现

27、根据exact的设置进行字符串匹配比较

28、使一个多位正整数逆序排列

29、按编号查找并列出一条记录

30、验证密码程序：

31、编程求税金

32、用三角形列出乘法口诀表：

33、将变量A、B值互换：

34、找出已知三个数的中间数：

35、调用子程序：

36、用参数传递计算圆的面积：

37、我国古代数学家张丘建

VFP常见编程实例

1、1-100的累加

** 求1到100的累加值

CLEAR

s=0

i=1

DO WHILE i<=100

s=s+i

i=i+1 &&一定记住先累加后循环ENDDO

?s

RETURN

2、阶乘

** 求5的阶乘

CLEAR

j=1

i=1

DO WHILE i<=5

j=j*i

i=i+1

ENDDO

?j

RETURN

3、求阶乘和

** 求1至5的阶乘和CLEAR

s=0

i=1

j=1

DO WHILE i<=5 j=j*i

s=s+j

i=i+1

ENDDO

?s

RETURN

4、条件定位

** 查询定位记录指针在赵伟上

CLEAR

USE 学生

LOCATE FOR 姓名="赵伟"

IF FOUND()

DISPLAY

ELSE

CANCEL

ENDIF

CONTINUE

5、用scan语句查询定位

** 用scan语句查询定位记录在赵伟上

CLEAR

SCAN FOR 姓名="赵伟"

DISPLAY

ENDSCAN

RETURN

6、用scan语句扫描符合条件的记录，并显示出来** 把年龄小于30岁的人显示出来

SCAN FOR 年龄<30 DISPLAY

ENDSCAN

RETURN

7、查找男性职工

** 查找男性职工

CLEAR

LOCATE FOR 性别="男" DO WHILE FOUND() DISPLAY CONTINUE

ENDDO

RETURN

** 查找男性职工

CLEAR

LOCATE FOR 性别="男" DO WHILE NOT EOF() DISPLAY

CONTINUE

RETURN

** 查找男性职工

CLEAR

USE 职员基本信息表

LOCATE FOR 性别="男"

DO WHILE .t.

IF FOUND() then

DISPLAY

ELSE&&记住最后一个ELSE语句后面不需要条件表达式CANCEL

ENDIF

CONTINUE

ENDDO

** 查找男性职工

set talk off

clear

open database 家庭成员管理.dbc

use stu.dbf

scan for not eof()

if xb="女"

skip

else

display

skip

endif

endscan

close database

use

set talk on

return

8、新值换旧值

** 有一对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔子？

clear

store 1 to a,b

i=3

do while i<=12

c=a+b

a=b

b=c

i=i+1

enddo

?"一年共出生兔子：",c

return

9、多位整数各个位数相加

** 求多位整数各个位数之和

CLEAR

s=0

input "请输入一个多位整数:" to a

DO WHILE a<>0

s=s+MOD(a,10) &&将a取余正好是个位上的数

a=INT(a/10) &&将a除10取整正好是除个位之后的数ENDDO

?"这个整数的各个位数之和是：",s

RETURN

10、找100-999之间的“水仙花数”

CLEAR

FOR i=100 TO 999

a=INT(i/100)