SEEK _num___________________ IF FOUND( )
?姓名,\成绩:\成绩,3,0) ELSE
?\没有此考生!\ENDIF USE
SET TALK ON Set talk on
3、用if语句编写程序，从键盘上输入一个数，若该数能被3或7整除，则输出该数（提示：判断N能被3整除的条件是：int(N/3)=n/3） Clear
Input “请输入一个数:” to n
If mod(n,3)=0 and mod(n,7)=0 或：if int(n/3)=n/3 and int(n/7)=n/7 ?n endif
4.由给定表文件GZJ.DBF复制工作表文件BBB.dbf，在工作表文件中将基本工资字段值高于1500的增加120元,基本工资在1000至1500元之间的增加200元,基本工资低于1000元的工资增加300元. 方法一： Use gzj Copy to bbb Go top
Do while not eof() zz=基本工资 do case
case zz>1500 zj=120 case zz>=1000 zj=200 otherwise zj=300 endcase
repl 基本工资 with 基本工资+zj skip enddo 方法二： Use gzj Copy to bbb Go top Scan
zz=基本工资 do case
case zz>1500 zj=120 case zz>=1000 zj=200 otherwise zj=300 endcase
repl 基本工资 with 基本工资+zj endscan
数据库上机操作题 第16页 共16页