VFP程序如何编写

1、建立一个表单1

2、在表单1的数据环境中加入表1

3、在表单中添加控件text1文本框，作为用户输入要查询的条件

4、添加command1命令按钮，caption属性为“查询”

5、command1的click事件中加入以下代码：

sele from 表1 where 字段1=formtext1value &&这里可以举一反三，我只是抛砖引玉。

6、运行表单1：

do form 表单1

&&在表单的文本框中输入要查询的内容，点击“查询”按钮，就显示符合条件的记录了。

VFP 阶乘自定义函数参考：

调用例子：

求 100！

CLEAR

m_Factorial(100)

&& 阶乘函数 m_Factorial()

&& 参数:

&& nFactor 数值型 阶乘因子

&& 返回:

&& 数值型 阶乘的值

PROCEDURE m_Factorial(nFactor)

LOCAL i, nProduct

nProduct = 1

FOR i = 1 TO nFactor

nProduct = nProduct i

ENDFOR

RETURN nProduct

ENDPROC

建立程序：modify command <程序名>

clear

close all

（1）计算每条记录的总分

use 学生表

replace all 总分 with 数学+语文+英语+数据库

（2）将总分大于等于360分的女同学的总分提高10%

replace all 总分 with 总分11 for 总分>=360

(3）将总分大于等于320分的记录，其奖学金评定为800元

replace all 奖学金 with 800 for 总分>=320

求总分字段最大值，最小值

go top

a=总分

min=1000

max=0

do while ! eof()

b=总分

if a>b

max=a

if b<min

min=b

endif

else

max=b

if a<min

min=a

endif

endif

skip

enddo

（4）将总分最高的记录其奖学金增加500元，并显示该记录

replace 奖学金 with 奖学金+500 for 总分=max

display

（5）将总分最低的记录作逻辑删除，并显示该记录

locate for 总分=min(总分)

delete

display

use

1

set talk off

clear

i=10

do while t

j=ii-168

if j>0 then

k=sqrt(j)

if k=int( k) then

k-100

exit

endif

endif

i=i+1

enddo

set talk on

return

2由于题目不需要输入年，所以程序没有判断润年的情况，2月天数设为28

set talk off

clear

dime mon(12)

mon(1)=31

mon(2)=28

mon(3)=31

mon(4)=30

mon(5)=31

mon(6)=30

mon(7)=31

mon(8)=31

mon(9)=30

mon(10)=31

mon(11)=30

mon(12)=31

INPUT "请输入月份：" TO m1

INPUT "请输入天数：" TO d1

s=0

for i=1 to m1-1

s=s+mon(i)

next

s+d1

set talk on

return

3

set talk off

clear

dime a(3)

input "x=" to a(1)

input "y=" to a(2)

input "z=" to a(3)

for i=1 to 2

for j=i+1 to 3

if a(i)>a(j) then

t=a(i)

a(i)=a(j)

a(j)=t

endif

next j

next i

a(1),a(2),a(3)

set talk on

return

1

clear

accept "请任意输入一串字符" to a

m=len(a)

for i=m to 1 step -1

substr(a,m,1)

endfor

return

2

clear

f1=1

f2=1

for i=3 to 40

f3=f1+f2

f1=f2

f2=f3

endfor

"第40个数为：" ,f2

return

3

s=0

for i=1 to 100

s=s+1/i

endfor

"s=",s

return

4

clear

s=0

input "请输入一位整数" to a

for i=1 to a

s=s+i10+2

endfor

"s=",s

return

5

clear

use xsda

scan for dele()

wait "是否恢复为正常记录(y/n)" to a

if upper(a)="Y" then

recall

endif

endscan

pack

use

return

6

没明确给出表中分别有什么字段。

7

clear

use 学生档案 &&假定此表文件名为学生档案

do while not eof()

accept "请输入要查询的学号" to xh

locate for 学号=xh

do while found()

disp

continue

enddo

wait "是否继续查询下一个" to x

if upper(x)="Y"

go top

loop

else

exit

endif

enddo

use

return

2的代码:

SELECT z1姓名,z2课程名,z3成绩 ;

from z1 ;

inner join z3 ;

on z1学号=z3学号 ;

inner join z2 ;

on z2课程号=z3课程号 ;

where z3成绩<60

以上就是关于VFP程序如何编写全部的内容，包括:VFP程序如何编写、阶乘程序如何编写vfp、vfp编程题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！