VFP编程序。。。。

1VFP编程序。。。。编一个程序要求从键盘输入一个证书，

判断其是否被3整除，如果能，则显示“该数是三的倍数”，

否则，显示“该数不能被三整除”。

clea

n=0

@4,20 say "输入一个整数" get n picture "99999999"

read

if mod(n,3)=0

@6,24 say "该数是三的倍数"

else

@6,24 say "该数不能被三整除"

endif

2编程序，要求接受键盘上输入的一个整数（1-9），

然后将这枚整数用英文单词显示出来，例如9显示nine。

clea

n=0

do while n=0

@4,20 say "输入一个整数" get n picture "9"

read

enddo

s=iif(n=1,"one",iif(n=2,"two",iif(n=3,"three",iif(n=4,"fore",iif(n=5,"five",iif(n=6,"six",iif(n=7,"seven",iif(n=8,"eight","nine"))))))))

@6,24 say "这枚整数的英文单词是：" ,s

3编一个程序计算下列数学式的结果，1+1/2+1/3+1/4+1/5+1/6+1/7+1/100，

要求用do while与for循环分别实现。求大神啊啊啊啊啊啊！！！！！明天要交%>_<%

clea

s=0

for i=1 to 100

s=s+1/i

endfor

s

s=str(s,12,10)

@4,20 say "1+1/2+1/3+1/4+1/5+1/6+1/7+1/100=" +s

一 、可以直接点击在VFP文件夹下后罪名是PRG的文件

二、进入 VFP 后 可以有以下方式进入：

1、点击菜单栏打开，然后在对话框下的下拉框中选中程序，然后点击你所要打开的程序就可以了。

2在项目管理器中打开

应用程序错误解决方法：

1检查电脑是否存在病毒，请使用百度卫士进行木马查杀。

2系统文件损坏或丢失，盗版系统或Ghost版本系统，很容易出现该问题。建议：使用完整版或正版系统。

3安装的软件与系统或其它软件发生冲突，找到发生冲突的软件，卸载它。如果更新下载补丁不是该软件的错误补丁，也会引起软件异常，解决办法：卸载该软件，重新下载重新安装试试。顺便检查开机启动项，把没必要启动的启动项禁止开机启动。

4如果检查上面的都没问题，可以试试下面的方法。

打开开始菜单→运行→输入cmd→回车，在命令提示符下输入下面命令 for %1 in (%windir%\system32\dll) do regsvr32exe /s %1回车。

完成后，在输入下面

for %i in (%windir%\system32\ocx) do regsvr32exe /s %i 回车。

如果怕输入错误，可以复制这两条指令，然后在命令提示符后击鼠标右键，打“粘贴”，回车，耐心等待，直到屏幕滚动停止为止（重启电脑）。

1首先创建一个项目文件，然后把程序文件和其他一些相关文件都添加进去。

设置一个须最先运行的文件为 主文件。

2单击项目管理器右边的 “连编”按钮，在打开的“连编选项”对话框中选择一种要生成的文件类型（一般为exe）单击确定,根据向导完成 *** 作

将其制作成软件安装包。不需要第三方工具,vfp有此功能

具体 *** 作再此不多加描述

设置运行环境

Set Talk Off &&关闭命令显示

Set Escape Off &&禁止运行的程序在按 Esc 键后被中断

Set Exclusive Off &&数据库表以共享方式打开

Set Deleted On &&过滤掉已带删除标记的记录

Set Safety Off &&指定在改写已有的文件时不显示对话框

Set Date Ansi &&设定日期的年份为 4 位数

Set Century On &&指定日期表达式的显示格式为YYMMDD

SET MARK TO [-] &&指定日期的分隔符为"-"

SET SECONDS ON &&日期时间表达式的显示秒钟部分

SET HOURS TO 12 &&指定日期时间表达式的显示为12小时格式

Set Optimize ON &&启用或废止 Rushmore 优化。

Set ENGINEBEHAVIOR 70

Set DECIMALS TO 8 &&指定小数点位数,默认为2位

Clear &&清除主窗口

Clear All &&清除变量

开始进行程序的事务处理 *** 作

Public pcSys

pcSys=Sys(5)+Sys(2003)

Set Default To pcSys

Set Path To Class,Form,Poto,Menu,Prg,Report

DO form frmbegin &&运行启动画面表单frmBegin,名称自己改,

READ events

DO form frmlogin &&运行主界面表单frmlogin,名称自己改,

READ events

保存,名称自己安,然后设置为主文件

程序不是唯一解，你的程序进行如下修改后就行！

use jbb

scan

a=int(数值/100)

i=mod(数值,100)

b=int(i/10)

c=mod(i,10)

if 100a+10b+c=a^3+b^3+c^3 && 判断是否是水仙花数

replace 水仙花否 with t

else

replace 水仙花否 with f

endif

endscan

use XSDADBF

select from XSDADBF where 性别="男"

use XSDADBF

do while not eof()

if 性别="男"

学号、姓名、性别

endif

skip

enddo

DIMENSION marray(10)

for p=1 to 10

INPUT "请输入数值" TO marray(p)

endfor

for i=1 to 9

for j=i+1 to 10

if marray(j)>marray(i)

a=marray(i)

marray(i)=marray(j)

marray(j)=a

endif

endfor

endfor

for p=1 to 10

marray(p)

endfor

首先，要在在项目管理器里制作主程序(prg), 选择连编(Build)成exe文件，并将 gdiplusdll, msvcr71dll, vfp9rdll, vfp9rchsdll, vfp9tdll文件与这个exe可执行文件放在同一个目录下。

当然，你要先学主程序的制作方法，默认路径处理方法等。可以参考张洪举的《Visual Foxpro 程序设计参考手册》。

以上就是关于VFP编程序。。。。全部的内容，包括:VFP编程序。。。。、如何调用vfp应用程序、vfp中程序运行提示错误等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！