郭昊 26 男
執行以上命令序列后,所顯示的記錄號是
A) 2 B) 3 C) 4 D) 20
(39) 以下有關FoxBASE過程文件的敘述,其中正確的是
A) 先用SET PROCEDURE TO 命令關閉原來已打開的過程文件,
然后用DO <過程名> 執行
B) 可直接用 DO <過程名> 執行
C) 先用SET PROCEDURE TO <過程文件名>命令打開過程文件,
然后用USE <過程名> 執行
D) 先用SET PROCEDURE TO <過程文件名>命令打開過程文件,
然后用DO <過程名> 執行
(40) 為顯示年齡為10的整數倍的在職職工記錄,下列各命令中錯誤的是
A) LIST FOR MOD(年齡,10)=0
B) LIST FOR 年齡/10=INT(年齡/10)
C) LIST FOR SUBSTR(STR(年齡,2),2,1)="0"
D) LIST FOR 年齡=20.OR.30.OR.40.OR.50.OR.60
(41) 索引文件打開后,下列命令中不受索引影響的是
A) LIST B) SKIP C) GOTO 50 D) LOCATE
(42) 下面有關關聯操作的說明,其中錯誤的是
A) 關聯本身并不進行具體的數據操作,在關聯的基礎上進行什么數據操作由 其它命令完成。
B) 只在兩個數據庫具有同名字段或相同值域字段的情況下才能按字段建立關聯。
C) 在當前工作區對其他工作區的被關聯數據庫的數據可任意讀寫，即對子數據庫的數據既能使用又能修改和追加。
D) 關聯的作用是單向的，即當前數據庫記錄指針的定位影響被關聯數據庫的記錄指針定位，而不可能出現相反方向的影響。
(43) 數據庫中有"完成定額否"(邏輯型)字段,完成定額其值為邏輯真,否則為邏輯假。另外有"獎金"(數值型)字段,現給完成定額者發獎金200元,沒完成者不給,應使用命令
A) REPLACE 獎金 WITH 200 FOR 完成定額否=.T.
B) REPLACE ALL 獎金 WITH 200 FOR 完成定額否=.T.
C) REPLACE 獎金 WITH 200 FOR 完成定額否
D) REPLACE 獎金 WITH 200 FOR !完成定額否
(44) 要使用數組數據更新當前數據庫的當前記錄,應使用命令
A) SCATTER TO <數組名>
B) DIMENSION <數組名>
C) APPEND FROM <數組名>
D) GATHER FROM <數組名>
(45) 在數據庫應用系統中,為數據安全使用口令程序。要使輸入的口令不在屏幕上顯示,在口令輸入命令的前后應分別使用命令
A) SET CONSOLE ON 和 SET CONSOLE OFF
B) SET CONSOLE OFF 和 SET CONSOLE ON
C) SET CONFIRM OFF 和 SET CONFIRM ON
D) SET DELETED OFF 和 SET DELETED ON
(46) 下列命令用于顯示1968年及其以前出生的職工記錄,其中錯誤的是
A) LIST FOR YEAR(出生日期)<=1968
B) LIST FOR SUBSTR(DTOC(出生日期),7,2)<="68"
C) LIST FOR LEFT(DTOC(出生日期),7,2)<="68"
D) LIST FOR RIGHT(DTOC(出生日期),2)<="68"
(47) 設庫存數據庫stock.dbf(商品名,單價,數量,總金額)在1工作區打開;銷售數據庫sale.dbf(商品名,數量)在2工作區打開。兩個數據庫都按商品名建立了索引文件并分別打開。當前工作區為1區，要求用銷售數據去修改庫存數據，應使用命令
A) REPLACE 數量 WITH 數量-B->數量,總金額 WITH 數量*單價
B) UPDATE ON 商品名 FROM B REPLACE ;
數量 WITH 數量-B->數量,總金額 WITH 數量*單價
C) UPDATE ON 商品名 FROM B REPLACE ;
數量 WITH 數量-B->數量,總金額 WITH B->數量*單價
D) UPDATE ON 商品名 FROM B REPLACE ;
總金額 WITH B->數量*單價,數量 WITH 數量-B->數量
(48) 設學生數據庫st.dbf(學號,姓名,所在系)在1工作區打開;學生選修課程數據庫sc.dbf(學號,課程號)在2工作區打開。當前工作區為1區,要求用物理連接產生一個數據庫qaz.dbf,使其包含選修了C101課程的學生姓名和所在系。應使用命令
A) JOIN WITH B TO qaz FOR 學號=B->學號 .AND. B->課程號="C101"
B) JOIN WITH B TO qaz FIELDS 姓名,所在系;
FOR 學號=B->學號 .AND. B->課程號="C101"
C) JOIN WITH B TO qaz FOR 學號=B->學號 .OR. B->課程號="C101"
D) JOIN WITH B TO qaz FIELDS 姓名,所在系 FOR B->課程號="C101"
(49) 執行如下命令序列
ANS="STUDENT.DBF"
MYFILE=SUBSTR(ANS,1,AT(".",ANS)-1)
?MYFILE
最后顯示的變量MYFILE值為
A) STUDENT.DBF B) STUDENT
C) STUDENT.ANS D) 11
(50) 執行以下命令序列:
USE ZGGZ
SUM 工資 FOR 工資>=500 TO QWE
COPY TO QAZ FIELDS 職工號,姓名 FOR 工資>=500
USE QAZ
NUM=RECCOUNT()
AVER=QWE/NUM
?AVER
最后顯示的值是
A) 所有工資在500元以上的職工人數
B) 所有工資在500元以上的職工人平均工資數
C) 所有職工的平均工資數
D) 出錯
二、填空題(每空2分，共40分) 
請將每空的正確答案寫在答題卡上【1】-【20】序號的橫線上，答在試卷上不得分。
(1) 計算機網絡按通信距離來劃分,可分為局域網和廣域網。因特網屬于 【1】 。
(2) 當前盤是C,確保在D盤的根目錄下建立一個子目錄USER的一條DOS命令是 【2】 。
(3) 要將當前盤當前目錄中所有擴展名為.TXT的文件內容顯示在屏幕上的DOS命令
是 【3】 。
(4) DOS命令分為內部命令和外部命令,CHKDSK命令是 【4】 命令。
(5) 在Windows中,為了終止一個應用程序的運行,首先單擊該應用程序窗口中的控
制菜單框,然后在控制菜單中單擊 【5】 命令。
(6) 請用代表字符填寫以下FoxBASE表達式的數據類型:
EOF()的數據類型是 【6】 ;
YEAR(DATE())的數據類型是 【7】 ;
DATE()-6的數據類型是 【8】 。
在做(7)-(13)題之前請先閱讀下列數據庫的內容:
設有商品數據庫文件SP1.DBF,其中商店名、商品名和品牌為字符型字段,單價和庫存量為數值型字段,是否進貨為邏輯型字段。該數據庫已經打開,
(7)-(13)題的操作均基于該數據庫。
Record# 商店名 商品名 品牌 單價 庫存量 是否進貨
1 光明商場 電冰箱 海爾 3700 60 .F.
2 長安商場 空調 科龍 3600 27 .T.
3 百貨大樓 彩電 長虹 2450 60 .F.
4 賽特購物中心 洗衣機 小鴨 1600 90 .F.
5 藍島東區 空調 美的 2800 26 .T.
6 長安商場 電冰箱 海爾 3700 20 .T.
7 賽特購物中心 彩電 康佳 2980 32 .F.
8 百貨大樓 洗衣機 松下 1780 12 .T.
(7) 假設本月光明商場銷售出20臺海爾冰箱,現對商品數據庫SP1.DBF進行更新,應使用的命令:
【9】 FOR 商品名="光明商場".AND.商品名="電冰箱".AND.品牌="海爾"
(8) 使用命令INDEX ON 商店名+STR(9999-單價) TO DX 對商品數據庫SP1.DBF建立
索引之后,再用LIST顯示,最后一條記錄的品牌字段顯示的是 【10】
(9) 要將所有庫存量低于30的商品的"是否進貨"字段修改為邏輯真,應使用的命令: 【11】 FOR 庫存量<=30
(10) 用 【12】 命令可以將另一個具有相同結構的庫文件SP2.DBF中的所有記錄追加 到SP1.DBF數據庫的末尾。
(11) 要把SP1.DBF中各個字段的結構作為記錄復制到庫文件SPS.DBF中,應使用的命令:
COPY TO SPS 【13】
(12) 要顯示SP1.DBF庫文件所有商店銷售的空調平均單價、平均庫存量,應使用的命令:
【14】 庫存量,單價 FOR 商品名="空調"
(13) 請閱讀下列程序,并將程序填寫完整。
SET TALK OFF
STORE "Y" TO YN
USE SP1
INDEX ON 品牌 TO PP
DO WHILE 【15】
ACCEPT "請輸入查詢的品牌:" TO CHX
SEEK 【16】
IF 【17】
DISPLAY
ELSE
?"無此品牌商品!"
ENDIF
WAIT "繼續查找嗎?(Y/N)" TO YN
ENDDO
?"再見!!"
SET TALK ON
RETURN
(14) 請閱讀下列判斷一個自然數是否為質數的程序,并將程序填空完整。
SET TALK OFF
INPUT "請輸入一個大于1的自然數:" TO N
K=0 &&K的值為0表示所輸入的自然數是質數,為1表示不是質數
J=2
DO WHILE J<N
IF MOD(N,J) 【18】
【19】
LOOP
ELSE
K=1
EXIT
ENDIF
ENDDO
IF K=0
? 【20】 +" 是質數"
ENDIF
?"再見!!"
SET TALK ON
RETURN
「完」

全國計算機等級考試FoxBASE參考答案
2000年4月
一、選擇題((1)--(40)題每題1分，(41)--(50)題每題2分，共60分。
(1)A (2)C (3)C (4)D (5)D (6)A (7)C (8)C (9)D (10)B
(11)C (12)D (13)D (14)B (15)D (16)B (17)C (18)B (19)B (20)B
(21)D (22)A (23)D (24)B (25)D (26)C (27)D (28)A (29)D (30)B
(31)C (32)A (33)B (34)A (35)A (36)B (37)B (38)C (39)D (40)D
(41)C (42)C (43)C (44)D (45)B (46)C (47)B (48)B (49)B (50)B
二、填空題(每空2分，共40分)
(1) 廣域網
(2）MD D：\USER
(3) COPY *.TXT CON
(4) 外部
(5) 退出或關閉
(6) L
(7) N
(8) D
(9) REPL ALL 庫存量 WITH 庫存量-20 （ALL 可以沒有）
(10) 小鴨
(11) REPL ALL 是否進貨 WITH .T. (ALL 可以沒有)
(12) APPE FROM SP2
(13) STRU EXTE
(14) AVER
(15) UPPER(YN)="Y" 或 LOWER(YN)="y" 或 YN="y" .OR.YN="Y"
(16) CHX
(17) FOUND()
(18) <>0
(19) J=I+1
(20) STR(N)