考试网 >> IT认证 >> 等级 >> 二级考试 >> 二级FOXPRO样卷(一)

发布时间：2006-06-27 23:57     点击：

？姓名,总收入

SET RELA TO 姓名 INTO B 

REPL ALL 总收入 WITH B．合计

GO TOP 

？姓名,总收入

USE 

RETURN

SET TALK OFF 

SET HEADINGS OFF 

CLEA

SELE 1

USE GZ1

REPL ALL 总收入 WITH 总收入+50 FOR 民族<>"汉"

SELE 2

USE GZ2

JOIN WITH A TO GZ FOR 姓名=A．姓名 FIEL 编号,姓名,A．民族,A．总收入

USE GZ 

LIST ALL FOR 民族<>"汉"

USE 

RETURN 

SET TALK OFF 

SET HEADINGS OFF 

CLEA

USE GZ2

SUMS=0

DISP OFF FIELDS 编号,姓名,合计

DO WHILE .NOT. EOF()

SUMS=SUMS+合计

SKIP

ENDDO 

APPE BLAN 

REPL 合计 WITH SUMS 

？RECNO(),合计

USE 

RETURN 

SET TALK OFF 

CLEA

SET DEVICE TO SCREEN 

USE GZ2

INDEX ON 编号 TO GZ3

GO TOP 

DO WHILE .NOT.EOF().AND.编号<"3"

@ROW()+1,0 SAY 编号+姓名

@ROW(),COL()SAY 津贴 PICT "@Z 999.99"

SKIP 

ENDDO 

USE 

RETURN 

SET TALK OFF 

X=0

I=1

DO WHILE I<=8

X=X+1

I=I+2

ENDDO 

? "X=",X

发表评论： 匿名发表 用户名: 查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任 留言板管理人员有权保留或删除其管辖留言中的任意内容 本站提醒：不要进行人身攻击。谢谢配合。