- 365网友提供计算机信息管理试题
- 发布日期时间：2007-1-14 来源：网络 点击数： 作者：佚名
接收的字符为“8888”时，结束程序的运行。
「解答」
现在假设数据库TX.DBF已经存在的前提之下来编写程序，在调试程序时，可以创建数据库，
并模拟输入一些记录来进行调试
程序中使用循环语句DO WHILE来实现连续查找，逻辑变量FL作为循环的条件，其初值为。T. ，
一旦输入字符为‘8888’时，则将变量FL置为。F. ，或者用命令EXIT退出循环，结束程序的运行。
用命令MODIFY COMMAND P10？来建立程序文件P10.PRG ，参考程序如下：
SET TALK OFF
CLEAR
CLEAR ALL
USE TX
FL=.T.
DO WHILE FL
CLEAR
MXM=SPACE（6）
@10，10 SAY '请输入姓名' GET MXM
READ
IF FL=（ALLTRIM（MXM）='8888'）
EXIT
ENDIF
LOCATE FOR XM=MXM
IF FOUND（）=.T.
DISPLAY
ELSE
？ '查无此人'
ENDIF
WAIT
ENDDO
USE
SET TALK ON
RETURN
4.现已有商品信息数据库SP.DBF，其字段有：
SH （商品代号，字符型） ，？SM （商品名称，字符型） ，？GG （规格，字符型）
按下列要求编写程序文件P11.PRG ，？其功能是查找显示出同一商品名称有两种以上规格
的SM.
「解答」
设置变量TJSM为同一商品名称的不同规格的种类数。
先对商品名称字段SM进行索引，将商品名称按不相同的分类集中在一起，？然后再统计每
一类商品名称有多少种规格。
在统计中，先将每类的商品名称SM赋给内存变量MSM，暂时保存，利用命令
COUNT TO TJSM WHILE SM=MSM
统计该类中各种规格数，并赋给变量TJSM.？当TJSM>=2时，即题意中所要查找的商品名称。
条件子句WHILE SM=MSM的作用是：从当前记录开始，直到不满足条件的记录为止，对所
有已满足条件的记录进行统计，实质上就是起到统计每一类商品名称的各种规格数的条件。
用命令MODIFY COMMAND P11？来建立程序文件P11.PRG ，参考程序如下：
SET TALK OFF
CLEAR
CLEAR ALL
TJSM=0
USE SP
INDEX ON SM TO SPID
DO WHILE NOT EOF（）
MSM=SM
COUNT TO TJSM WHILE SM=MSM
IF TJSM>=2
？ '两种以上规格的商品名称有： '+ MSM
ENDIF
ENDDO
USE
SET TALK ON
RETURN
5.现已存在两个数据库，学生信息数据库ST.DBF，其字段有：
XH （学号，字符型） ，？XM （姓名，字符型） ，？ZL （专业，字符型）
成绩数据库KCCJ.DBF，其字段有：
XH （学号，字符型） ，？KCM （课程名，字符型） ，？CJ （成绩，数值型）
按下列要求编写程序文件P12.PRG ，其功能是统计每个学生各门课程的平均成绩PCJ，
并在屏幕中按下列格式输出：
学号？姓名？平均成绩
XXXX？XXX？XX.X
「解答」
该题涉及到两个数据库之间的操作，一般情况下，要进行关联操作。其目的是将两个在不同工作
区中打开的库文件联系起来，以便当一个关联库文件的记录指针移动时，与之被关联库文件的记录
指针也随之相应移动。
建立关联的方式可以通过索引关键字。
建立关联的条件是两个数据库需在不同工作区中打开，？且被关联库文件需要按关联字段进行
索引。
关联的命令为
SET？RELATION？TO？关联字段名？INTO？被关联库名
在程序中， 1号工作区中打开关联库文件ST ， 2号工作区中打开被关联库文件KCCJ，按关联
字段XH建立关联。
每个学号XH所对应的学生，？可以选读多门课程。？从ST的第一个记录的XH数值开始，
在KCCJ中统计出该XH所对应的各门课程的平均成绩PCJ，并按照要求格式输出。
依次循环，即可统计出每个学生各门课程的平均成绩。
由于该题在多库之间的操作，从当前工作区访问其它工作区打开的库文件中的某个字段时，
要在该字段名前加上前缀，？即：
别名->字段名
或？别名。字段名
打开数据库时，若没有指定别名，则别名与库文件同名。？因此，如果当前2号工作区中打开的
是KCCJ，则XH是库KCCJ中的学号，而ST->XH是另一工作区库ST中的学号。
用命令MODIFY COMMAND P12？来建立程序文件P12.PRG ，参考程序如下：
SET TALK OFF
CLEAR
CLEAR ALL
SELECT B
PCJ=0
U
「解答」
现在假设数据库TX.DBF已经存在的前提之下来编写程序，在调试程序时，可以创建数据库，
并模拟输入一些记录来进行调试
程序中使用循环语句DO WHILE来实现连续查找，逻辑变量FL作为循环的条件，其初值为。T. ，
一旦输入字符为‘8888’时，则将变量FL置为。F. ，或者用命令EXIT退出循环，结束程序的运行。
用命令MODIFY COMMAND P10？来建立程序文件P10.PRG ，参考程序如下：
SET TALK OFF
CLEAR
CLEAR ALL
USE TX
FL=.T.
DO WHILE FL
CLEAR
MXM=SPACE（6）
@10，10 SAY '请输入姓名' GET MXM
READ
IF FL=（ALLTRIM（MXM）='8888'）
EXIT
ENDIF
LOCATE FOR XM=MXM
IF FOUND（）=.T.
DISPLAY
ELSE
？ '查无此人'
ENDIF
WAIT
ENDDO
USE
SET TALK ON
RETURN
4.现已有商品信息数据库SP.DBF，其字段有：
SH （商品代号，字符型） ，？SM （商品名称，字符型） ，？GG （规格，字符型）
按下列要求编写程序文件P11.PRG ，？其功能是查找显示出同一商品名称有两种以上规格
的SM.
「解答」
设置变量TJSM为同一商品名称的不同规格的种类数。
先对商品名称字段SM进行索引，将商品名称按不相同的分类集中在一起，？然后再统计每
一类商品名称有多少种规格。
在统计中，先将每类的商品名称SM赋给内存变量MSM，暂时保存，利用命令
COUNT TO TJSM WHILE SM=MSM
统计该类中各种规格数，并赋给变量TJSM.？当TJSM>=2时，即题意中所要查找的商品名称。
条件子句WHILE SM=MSM的作用是：从当前记录开始，直到不满足条件的记录为止，对所
有已满足条件的记录进行统计，实质上就是起到统计每一类商品名称的各种规格数的条件。
用命令MODIFY COMMAND P11？来建立程序文件P11.PRG ，参考程序如下：
SET TALK OFF
CLEAR
CLEAR ALL
TJSM=0
USE SP
INDEX ON SM TO SPID
DO WHILE NOT EOF（）
MSM=SM
COUNT TO TJSM WHILE SM=MSM
IF TJSM>=2
？ '两种以上规格的商品名称有： '+ MSM
ENDIF
ENDDO
USE
SET TALK ON
RETURN
5.现已存在两个数据库，学生信息数据库ST.DBF，其字段有：
XH （学号，字符型） ，？XM （姓名，字符型） ，？ZL （专业，字符型）
成绩数据库KCCJ.DBF，其字段有：
XH （学号，字符型） ，？KCM （课程名，字符型） ，？CJ （成绩，数值型）
按下列要求编写程序文件P12.PRG ，其功能是统计每个学生各门课程的平均成绩PCJ，
并在屏幕中按下列格式输出：
学号？姓名？平均成绩
XXXX？XXX？XX.X
「解答」
该题涉及到两个数据库之间的操作，一般情况下，要进行关联操作。其目的是将两个在不同工作
区中打开的库文件联系起来，以便当一个关联库文件的记录指针移动时，与之被关联库文件的记录
指针也随之相应移动。
建立关联的方式可以通过索引关键字。
建立关联的条件是两个数据库需在不同工作区中打开，？且被关联库文件需要按关联字段进行
索引。
关联的命令为
SET？RELATION？TO？关联字段名？INTO？被关联库名
在程序中， 1号工作区中打开关联库文件ST ， 2号工作区中打开被关联库文件KCCJ，按关联
字段XH建立关联。
每个学号XH所对应的学生，？可以选读多门课程。？从ST的第一个记录的XH数值开始，
在KCCJ中统计出该XH所对应的各门课程的平均成绩PCJ，并按照要求格式输出。
依次循环，即可统计出每个学生各门课程的平均成绩。
由于该题在多库之间的操作，从当前工作区访问其它工作区打开的库文件中的某个字段时，
要在该字段名前加上前缀，？即：
别名->字段名
或？别名。字段名
打开数据库时，若没有指定别名，则别名与库文件同名。？因此，如果当前2号工作区中打开的
是KCCJ，则XH是库KCCJ中的学号，而ST->XH是另一工作区库ST中的学号。
用命令MODIFY COMMAND P12？来建立程序文件P12.PRG ，参考程序如下：
SET TALK OFF
CLEAR
CLEAR ALL
SELECT B
PCJ=0
U
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
文章转载请注明来源于：汕头自考网
网友评论
|
|
