首页>计算机等级考试>历年真题>正文
03年4月计算机等级考试二级FOXBASE语言程序笔试试卷

www.zige365.com 2007-6-14 13:52:37 点击:发送给好友 和学友门交流一下 收藏到我的会员中心
USER.EXE。现要执行该程序,并要求在

执行过程中将显示输出的结果信息存入当前盘当前目录的文件OUT.DAT中,则完整的DOS命令

为【4】。

(5) DOS环境下,表示打印机的设备文件名为【5】。

(6) 在当前打开的数据库文件中有一个长度为6的字符型字?quot;姓名",有如下命令序列

REPLACE 姓名 WITH "肖光"

? LEN(姓名)

执行最后一条命令的显示结果是【6】。

(7) 已知一张职工登记表包括姓名、性别、出生日期、婚否、政治面目、住址、电话等,若要建立保存此表的库文件,可以定义为逻辑字段的项目有【7】。(注意:字段与字段之间用顿号分隔,否则不得分)

(8) 有如下命令序列:

USE XYZ

?RECCOUNT()

SKIP +2

DELETE

?RECCOUNT()

执行第一条输出命令后,屏幕显示10。接着执行后面的命令序列,第二条输出命令显示的结果是【8】。

(9) 以下命令序列的功能是根据输入的考试成绩,显示相应的成绩等级。等级划分标准为:低于60分为"不合格"60分以上(60)"通过",其中90分以上(90)的为"优秀"。请对该程序填空:

CLEAR

9"请输入考试成绩:"TO chj

DO CASE

CASE chj<60

dj="不合格"

CASE10

dj="通过"

OTHERWISE

dj="优秀"

ENDCASE

?"成绩等级:"11

RETURN

(10) 有如下命令序列:

SET DATE AMERICAN

?DTOC(CTOD("9/21/2002"),1)

顺序执行以上两条命令之后,在屏幕上将显示【12】。

(11) 有以下三个数据库:

职员(职员号C(3),姓名C(6),性别C(2),职务C(10))

订单(订单号N(3),客户号C(3),职员号C(3),签订日期D(8),金额N(62))

客户(客户号C(3),客户号C(20),地址C(20),电话C(13))

要为订单库建立一个二重索引,要求按签订日期升序,相同签订日期的记录按职员号升序,索引表达式应为【13】。

(12) 有以下三个数据库:

职员(职员号C(3),姓名C(6),性别C(2),职务C(10))

订单(订单号N(3),客户号C(3),职员号C(3),签订日期D(8),金额N(62))

客户(客户号C(3),客户号C(20),地址C(20),电话C(13))

下面程序的功能是利用索引逐条显示8月份签订的订单记录。请填空:

SELECT 0

USE 订单

INDEX ON MONTH(签订日期) TO IM

CLEAR

SEEK 8

IF14

DO WHILE15

DISPLAY

SKIP

ENDDO

ELSE

?"8月份没有订单!"

ENDIF

CLOSE DATABASE

RETURN

(13) 有以下三个数据库:

职员(职员号C(3),姓名C(6),性别C(2),职务C(10))

订单(订单号N(3),客户号C(3),职员号C(3),签订日期D(8),金额N(62))

客户(客户号C(3),客户号C(20),地址C(20),电话C(13))

下面的程序的功能是分别统计职员号以AB开头的职员所签订的订单数目和总金额。请填空:

CLEAR

STORE 0 TO nl,sl,n2,s2

SELECT 0

USE 订单

DO WHILE .NOT. EOF()

DO CASE

CASE16

n1=n1+1

S1=S1+金额

CASE17

n2=n2+1

S2=S2+金额

ENDCASE

18

ENDDO

?"A职员订单数;"+STR(n1,3)+SPACE(10)+"总金额;"+STR(s1,7,2)

?"B职员订单数;"+STR(n2,3)+SPACE(10)+"总金额;"+STR(s2,7,2)

CLOSE DATABASE

RETURN

(14) 有以下三个数据库:

职员(职员号C(3),姓名C(6),性别C(2),职务C(10))

订单(订单号N(3),客户号C(3),职员号C(3),签订日期D(8),金额N(62))

客户(客户号C(3),客户号C(20),地址C(20),电话C(13))

下面程序的功能是根据订单号查询该订单及相关职员和客户的信息,要求在屏幕的第6行第20列开始显示输出信息。请填空:

SET SAFETY OFF

STORE "Y" TO yn

SELECT 0

USE 职员

INDEX ON 职员号码 TO IZG

SELECT 0

USE 客户

INDEX ON 客户号 TO IKH

SELECT 0

USE 订单

SET RELATION TO 职员号 INTO 职员

SET RELATION TO 客户号 INTO 客户【19

DO WHILE UPPER(yn)="Y"

本新闻共5页,当前在第4页  1  2  3  4  5  

我要投稿 新闻来源: 编辑: 作者:
相关新闻