VFP编个小程序！

正确的程序如下：

set talk off

i=0

input "输入一个正数(0结束):" to a

do while a<>0

if a>0

if i=0 or a>v_max

v_max=a

endif

if i=0 or a<v_min

v_min=a

endif

i=i+1

else

 '搞错了，只能输入正数，不准为负数！'

endif

input "输入一个正数(0结束):" to a

enddo

'你总共输入了',i,'个数，最大的是',v_max,'，最小的是',v_min

运行过程见附图

clear

1

set talk off

n=0

s=0

for i=1 to 1000

if i%3=0 and i%7=0

n=n+1

s=s+i

endif

endfor

"1-1000能同时被3和7整除的数有"+allt(str(n))+"个"

"它们的和是:"+allt(str(s))

set talk on

2

set talk off

for a=1 to 9

for b=0 to 9

for c=0 to 9

if 100a+10b+c=aaa+bbb+ccc

100a+10b+c

endif

next c

next b

next a

return

set talk on

3

clear

set talk off

input "请输入年份:"to n

msg="年不是闰年"

if mod(n,4)=0 and mod(n,100)<>0 or mod(n,400)=0

msg="年是闰年"

endif

n,msg

set talk on

一、在本机运行exe文件的做法：⑴在项目中选中一个表单或prg文件，目的是作为主文件（启动文件）;⑵点击菜单"项目",选"设置主文件",选中的文件就为主文件;⑶在项目窗口中选"连编",连编窗口选"连编可执行文件"，选择路径和输入你要生成的exe文件的名字，连编就生成了可执行文件。二、你自己用vfp作一个发布安装盘，刻成光盘，送给用户：。用vfp作一个发布安装盘，步骤：1将要发布的文件（exe,)复制到一个文件夹中（假设为d:\xxx）2运行vfp6,工具-〉向导-〉安装,在发布树在哪个目录对话框中，选择d:\xxx，下一步3在步骤2，中如果你在程序中，没有用到控件，单击下一步即可，否则选定您用到的第三方控件4在步骤3磁盘映像中选择网络安装，并选个一个要生成的目录（如d:\MySetup）下一步5在步骤4安装选项的安装对话标题中输入标题如：建筑设备管理系统版权信息下一步6安装目录、程序组（最好也写：如：建筑设备管理系统）下一步7下一步8完成9退出vfp6010到D:\mysetup\netsetup下，将文件刻录到光盘（或拷贝U盘）到客户机上，setup即可。

因为你不说明表结构,我假设学生表中含有成绩字段了,程序如下

use 学生

do while not eof()

disp

accept "是否修改次学生信息是请输入Y,否则请输入N" to a

if a=="Y" or a=="y"

input "请输入成绩:" to b

replace 成绩 with b

endif

accept "是否显示下个学生的信息是请输入Y,否则请输入N" to a

if a=="N" or a=="n"

exit

endif

skip 1

enddo

"已经到文件尾"

在程序第一行输入后面给你的注释信息就行了

以上就是关于VFP编个小程序！全部的内容，包括:VFP编个小程序！、VFP简单程序设计题、vfp程序做程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！