问答题 已知资产负债表的公式库结构如下表所示(文件名为ZCFZBGS.DBF)：
   

字段名

字段类型

字段长度

小数化

宇段说明

XMBH

C

3

 

报表项目编号

XMMC

C

30

 

报表项目名称

NCSGS

M

4

 

存放年初数公式字段

QMSGS

M

4

 

存放期末数公式字段

   且每期资产负债表各项目实际计算结果(年初数与期末数)可存放在ZCFZB.DBF文件中，该文件的结构如下表所示：
   

字段名

字段类型

字段长度

小数位

字段说明

BBQB

C

6

 

报表期别

XMBH

C

3

 

报表项目编号

NCS

N

12

2

年初数

QMS

N

12

2

期末数

   现在假定已将资产负债表的所有项目的年初数、期末数的计算公式都存放在报表公式库的NCSGS和QMSGS两个字段上，并且取数公式所涉及的函数均已设计完毕。本期期别暂定取值为“200510”，请写出本期资产负债表的编制程序。
【正确答案】根据题意可设计程序如下：
   SET TALK OFF
   BBQB=“2005 10”
   SELE 0
   USE ZCFZB ALIAS ZCFZB
   INDEX ON BBQB TO ZCFZB.IDX
   SELE 0
   USE ZCFZBGS ALIAS ZCFZBGS
   CO TOP
   DO WHILE．NOT．EOF()
     NCGS=ALLTRIM(NCSGS)
     QMGS=ALLTRIM(QMSGS)
   IF!EMPTY(NCGS)
     NCSZ=&NCGS
   ELSE
     NCSZ=0
   ENDIF
   IF!EMPTY(QMGS)
     QMSZ=&QMGS
   ELSE
     QMSZ=0
   ENDIF
   SSELE ZCFZB
   SEEK BQQB
   LOCA REST FOR XMBH=ZCFZBGS.XMBH WHILE ZCFZB.BBQB=BQQB
   IF EOF()．OR．(zCFzB．BBQB#BQQB)
       APPE BLANK
       REPL BBQB WITH BQQB，XMBH WITH ZCFzBGS．XMBH
     ENDIF
     REPL NCS WITH NCSZ,QMS WITH QMSZ
     SELE ZCFZBGS
     SKIP
   ENDD0
   USE
   SELE ZCFZB
   USE
   RETURN
【答案解析】