利用VFP编写一个程序文件

一、利用VFP编写一个程序文件

CLEAR

STORE 0 to lnm, lnn

input '请输入第一个数' to lnn

input '请输入第二个数' to lnm

IF lnn > lnm then

?'较大数是',lnn

ELSE

?'较大数是',lnm

ENDIF

二、VFP程序设计

新建一个程序（文件菜单——新建——程序——新建文件），写代码：

s=*

for i=4 to 1 step -1

?space((i-1))

??s

s=s+ *

next i

s=* * *

m=3

for i=1 to 3

?space(i)

??s

s=substr(s,1,m)

m=m-2

next

然后，直接点击感叹号保存并运行，图：

三、vfp编程！！急！！！！！！！！

为了赚你这个200分，我教你：

1.在C盘上建立一个新文件夹c:\hotel，用于保存你本项目的资料．

2.进入VFP,新建一个项目管理器，命名为hotel保存

3.在本项目管理器中建立数据库hotel并建立表hotel,设置字段很简单的，内容包括houseid,customname,passcode,dateid,含义分别表示:房间号码，客人姓名，客人身份证号码，入住日期，前三个字段都是字符型的，长度为20,dateid是日期时间型字段．保存,输入测试数据.

4.建立新表单（form），点击鼠标右键，添加数据环境，把表hotel加到数据环境中

5.拖曳数据环境中的hotel表到表单中，会出现一个4列的grid网格，把网格中这四列的的head1中的caption改为中文（见3字段含义）．调整好位置．

6.往表单中加个textbox框,在这个框旁边加一个command按钮,修改按钮的caption属性为'模糊查询'

7.双击command按钮,写代码:

WITH thisform

.grdhotel.recordsource=''

.grdhotel.recordsourcetype=4

mhouseid='%'+ALLTRIM(.text1.value)+'%'

.grdhotel.recordsource='SELECT houseid as 房间号码,customname as 客人姓名,passcode as 客人身份证号码,dateid as 入住日期 FROM hotel WHERE houseid LIKE ?mhouseid'

.grdhotel.refresh

ENDWITH

8.将命令按钮，caption分别写为'模糊查询',将本表单的caption改为'模糊查询宾馆客房使用情况'

9保存运行,搞定,本程序已经在VFP9.0运行通过

四、vfp编写程序计算二元一次方程组,脑袋3600,腿11000,问共有鸡和兔子多少只

Clear

i = 0 && 兔子的个数

For i = 1 To 3600

If 4 * i + 2 * ( 3600 - i) == 11000

? 兔子：,i,,鸡：,3600 - i

Endif

Next

顶一下

(0)

0%

踩一下

(0)

0%