1、1VF编程代码一、表单代码(共 7 个,每套试卷表单设计均以此为例)1、写在自建方法程序中(例:自建方法程序,命名为“mo”)nrec=recno()do casecase nrec=mand1.enabled=mand2.enabled=mand3.enabled=mand4.enabled=.t.case nrec=mand1.enabled=mand2.enabled=mand3.enabled=mand4.enabled=mand1.enabled=mand2.enabled=mand3.enabled=mand4.enabled=.t.endcasethisform.refresh2
2、、写在 Init Event 中public ntop,nbottomgo bottomnbottom=recno()go topntop=recno()thisform.mo 注:mo 为自建方法程序名3、写在逐条命令按钮中。首条go topthisform.mo4、上一条skip -1if bof()go topendifthisform.mo5、下一条2skipif eof()go bottomendifthisform.mo6、末条go bottomthisform.mo7、关闭thisform.release二、程序设计代码1、题目:1 到 50 之间的所有数之积(即 s=1*2*3
3、*50)set talk offclears=1for i=1 to 50s=s*iendfor?1*2*50=,sset talk onreturn运行结果:3.14040932E+642、题目:0 到 100 之间的所有数之和(即 s=1+2+3+100)set talk offclearsum=0for i=1 to 100sum=sum+iendfor?1+2+3+100=,sumset talk onreturn运行结果:50503、奇数之和的写法:set talk offclearsum=0for i=1 to 99 step 2sum=sum+i3endfor?1+3+5+99=
4、,sumset talk onreturn运行结果:25004、偶数之和的写法:set talk offclearsum=0for i=0 to 100 step 2sum=sum+iendfor?2+4+6+100=,sumset talk onreturn运行结果:2550三、菜单设计器(过程为两行代码、命令为一行)1、use xs.dbfBrowsr 注:xs 为表名2、do my.qpr 注:my 为以自己名字命名的文件名3、set sysmenu to default4、do form my.scx5、do my.prg6、report form my.frx preview四、数据类型字母 数据类型 字母 数据类型C 字符型或备注型 G 通用型N 数值型、整型、浮点型或双精度型 D 日期型Y 货币型 T 日期时间型L 逻辑型 X NULL值4O 对象型 U 未定义