本文目录一览

1，用VFP编写个程序

T=0for i=1 to 10s=1for j=1 to is=s*jnextT=T+snext?T

用VFP编写个程序

2，vfp程序设计

1：select 学号,姓名,性别,专业 from 学生档案表2：select 高数 from 学生成绩表 where 高数>603：select 学号,姓名,性别 from 学生成绩表 where 高数>604：select * from 学生档案表 where 姓名 like "张%"5：select 课程号,count(*) as 人数 from 选课登记表 group by 课程号6：select 姓名 from 学生档案表 where 学号 not in (select 学号 from 选课登记表)7：insert into 选课登记表(学号,课程号,成绩) values ("1111","222",80)8：use 数据表 replace all 综合测评成绩 with 综合测评成绩+1 9：use 数据表 delete for 高数=0 pack

vfp程序设计

3，VFP编写程序

clearinput "请输入一个数：" to npi=3.14if n>=0 s=n^2*pi ?selse ?"输入错误"endifreturn

VFP编写程序

4，vfp的设计程序打印下图

新建一个程序（文件菜单——新建——程序——新建文件），写代码： s="*"for i=1 to 6 s=space(6-i)+ltrim(s) ?s s=s+"**"next 图：

5，用VFP编写程序

SET TALK ON CLEAR PUBLIC dd[10]FOR i = 1 TO 10dd[i] = INPUTBOX("请输入第"+ STR(i,2,0) + "个数据","输入数据")ENDFORFOR j = 2 TO 10FOR k = j TO 10IF dd[j - 1] > dd[k]nsec = dd[j- 1]dd[j - 1] = dd[k]dd[k] = nsecENDIFENDFORENDFORFOR i = 1 TO 10? dd[i]ENDFOR

6，求VFP一个简单的程序设计

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 100*a+10*b+c=a*a*a+b*b*b+c*c*c ? 100*a+10*b+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
//Command1的Click事件 set talk off thisform.nlogtimers=thisform.nlogtimers+1 if thisform.noglogtimers>thisform.nmaxlogtimers cstr="多次登录，系统自动退出！"messagebox(cstr,16,"用户登录验证") thisform.relese cname= alltrim(thisform.txtname.value) cpassward=alltrim(thisform.txtpassword.value)select sysuserdata locate for alltrim(用户名)==cname if not found() messagebox("用户名输出错误！",16,"用户登录验证") thisform.txtname.selstart=0 thisform.txtname.sellength=len(cname) thisform.txtname.setfocus return endif

文章TAG：数据  数据库  程序  程序设计  vfp数据库程序设计程序示例  
下一篇