VF代码①.docVIP

VF编程代码 一、表单代码（共7个，每套试卷表单设计均以此为例） 1、写在自建方法程序中(例：自建方法程序，命名为“mo”) nrec=recno() do case case nrec=ntop mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.t. mand4.enabled=.t. case nrec=nbottom mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.f. mand4.enabled=.f. otherwise mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.t. mand4.enabled=.t. endcase thisform.refresh 2、写在Init Event中 public ntop,nbottom go bottom nbottom=recno() go top ntop=recno() thisform.mo 注：mo为自建方法程序名 3、写在逐条命令按钮中。首条 go top thisform.mo 4、上一条 skip -1 if bof() go top endif thisform.mo 5、下一条 skip if eof() go bottom endif thisform.mo 6、末条 go bottom thisform.mo 7、关闭 thisform.release 二、程序设计代码 1、题目：1到50之间的所有数之积（即s=1*2*3*……*50） set talk off clear s=1 for i=1 to 50 s=s*i endfor ?1*2*......*50=,s set talk on return 运行结果：3…E+64 2、题目：0到100之间的所有数之和（即s=1+2+3+……+100） set talk off clear sum=0 for i=1 to 100 sum=sum+i endfor ?1+2+3+......+100=,sum set talk on return 运行结果：5050 3、奇数之和的写法： set talk off clear sum=0 for i=1 to 99 step 2 sum=sum+i endfor ?1+3+5+......+99=,sum set talk on return 运行结果：2500 4、偶数之和的写法： set talk off clear sum=0 for i=0 to 100 step 2 sum=sum+i endfor ?2+4+6+......+100=,sum set talk on return 运行结果：2550 三、菜单设计器（过程为两行代码、命令为一行） 1、use xs.dbf Browsr 注：xs为表名 2、do my.qpr 注：my为以自己名字命名的文件名 3、set sysmenu to default 4、do form my.scx 5、do my.prg 6、report form my.frx preview 四、数据类型 字母 数据类型 字母 数据类型 C 字符型或备注型 G 通用型 N 数值型、整型、浮点型或双精度型 D 日期型 Y 货币型 T 日期时间型 L 逻辑型 X NULL值 O 对象型 U 未定义 1