全國計算機等級考試二級筆試試卷
基礎部分和QBASIC語言程序設計
(考試時間：120分鐘，滿分100分)
1999年9月
一、選擇題((1)--(40)每小題1分, (41)--(50)每小題2分, 共60分)
下列各題 A) 、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項在答題卡相應位置上涂黑，答在試卷上不得分。
(1) 十進制數1385轉換成十六進制數為
A) 568 B) 569 C) D85 D) D55
(2) 下列敘述中正確的是
A) 計算機病毒只能傳染給可執行文件
B) 計算機軟件是指存儲在軟盤中的程序 
C) 計算機每次啟動的過程之所以相同，是因為RAM中的所有信息在關機后不會丟失
D) 硬盤雖然裝在主機箱內，但它屬于外存
(3) 一個字長的二進制位數是
A) 8 B) 16 C) 32 D) 隨計算機系統而不同的
(4) CPU主要由運算器與控制器組成，下列說法中正確的是
A)運算器主要負責分析指令，并根據指令要求作相應的運算
B)控制器主要完成對數據的運算，包括算術運算和邏輯運算
C)控制器主要負責分析指令，并根據指令要求作相應的運算
D)控制器直接控制計算機系統的輸入與輸出操作
(5) 下列敘述中正確的是
A) 將數字信號變換成便于在模擬通信線路中傳輸的信號稱為調制 
B) 以原封不動的形式將來自終端的信息送入通信線路稱為調制解調
C) 在計算機網絡中，一種傳輸介質不能傳送多路信號
D) 在計算機局域網中，只能共享軟件資源，而不能共享硬件資源
(6) 各種網絡傳輸介質
A) 具有相同的傳輸速率和相同的傳輸距離 B) 具有不同的傳輸速率和不同的傳輸距離
C) 具有相同的傳輸速率和不同的傳輸距離 D) 具有不同的傳輸速率和相同的傳輸距離
(7) 多媒體計算機系統的兩大組成部分是
A) 多媒體功能卡和多媒體主機
B) 多媒體通信軟件和多媒體開發工具
C) 多媒體輸入設備和多媒體輸出設備 
D) 多媒體計算機硬件系統和多媒體計算機軟件系統
(8) 按通信距離劃分，計算機網絡可以分為局域網和廣域網。下列網絡中屬于局域網的是
A) Internet B) CERNET C) Novell D) CHINANET
(9) 在Windows中，啟動應用程序的正確方法是
A) 用鼠標雙擊該應用程序圖標 B) 將該應用程序窗口最小化成圖標
C) 將該應用程序窗口還原 D) 將鼠標指向該應用程序圖標
(10) 在Windows中，終止應用程序執行的正確方法是
A) 用鼠標雙擊應用程序窗口左上角的控制菜單框
B) 將應用程序窗口最小化成圖標
C) 用鼠標雙擊應用程序窗口右上角的還原按鈕 
D) 用鼠標雙擊應用程序窗口中的標題欄
(11) DOS控制鍵Ctrl+Alt+Del的功能為
A) 刪除一個字符并退格 B) 暫停標準輸出設備的輸出
C) 熱啟動 D) 終止當前操作
(12) 設當前盤為C盤，為了將A盤當前目錄中所有擴展名為.PAS 的文件改成擴展名為.P，應使用的DOS命令為
A) REN A:*.PAS A:*.P B) REN A:*.PAS *.P
B) REN A:.PAS A:.P D) REN A:.PAS .P
(13) 設當前盤為C盤，其根目錄下有兩個子目錄D1與D2，且當前目錄為D1，若要進
入子目錄D2，正確的DOS命令為
A) CD D2 B) CD D2\ C) CD \D2 D) CD D1\D2
(14) 設當前盤為A盤，要將B盤當前目錄下的兩個文件A.TXT與X.TXT 連接后以文件名Y.TXT存放到A盤的當前目錄中，正確的DOS命令為
A) COPY A.TXT+X.TXT A:Y.TXT B) COPY B:A.TXT+X.TXT A:Y.TXT
B) COPY B:A.TXT+B:X.TXT>Y.TXT D) COPY B:A.TXT+B:X.TXT Y.TXT
(15) 下列DOS命令中正確的是
A) REN \USER\A.TXT \B.TXT B) CD \
C) TYPE *.TXT D) MD \
(16) QBASIC語言中,數據的類型有
A) 三種 B) 四種 C) 五種 D) 六種
(17) 在QBASIC中,變量abc&的類型是
A) 字符型 B) 長整型 C) 整型 D) 雙精度型
(18) 下面四項中不能作為QBASIC變量的是
A) XYZ.XYZ B) UVWXYZ123456 C) sincos D) 123XYZ
(19) 下面四項中不能作為QBASIC常量的是
A) 123% B) 1.23E1.5 C) "abc$" D) 3.15D-2
(20) 表達式9^2MOD9\3*2/3的值是
A) 3 B) -1 C) 1 D) 0
(21) 在QBASIC語言中Y1+Z2=a*SIN(b*x+c)+k表達式的類型是
A) 算術表達式 B) 關系表達式 C) 邏輯表達式 D) 字符表達式
(22) QBASIC 語言輸出語句PRINT 的輸出項表列中,下面四個符號可以作為分隔符的是
A) ? B) * C) : D) ;
(23) 語句DIM arr(-3 to 5, 2 to 6) AS INTEGER定義的數組元素有
A) 45個 B) 40個 C) 11個 D) 54個
(24) 指定在第20行第10列作為下一個打印項的起始位置所用的定位語句是
A) LOCATE 10,20 B) LOCATE 20,10
C) LINE 10,COLUMN 20 D) POSITION 20,10
(25) 正確的自定義函數語句是
A) DEF fnxy(x,y)=x+y B) DEF fnxy(x,y)=a+b
C) DEFINE fnxy(x,y)=a+b D) DEFINITOIN fnxy(x,y)=x+y
(26) 函數INT(RND*6+1)的取值范圍是
A) 從1到7七個整數 B) 從0到7八個整數
C) 從1到6六個整數 D) 從0到6七個整數
(27) 有如下程序
a=3: b=4
PRINT b>a
END
運行后,輸出的結果是
A) -1 B) 0 C) 4>3 D) 顯示出錯信息
(28) 有如下程序
DEF fna(a,b,c)=(a+b*b)*c
a=3: b=5: c=7
abc=fna(c,a,b)
PRINT abc
END
運行后,輸出的結果是
A) 98 B) 96 C) 80 D) 196
(29) 有如下程序
FOR x=1 TO 3
PRINT TAB(3*x); 22*x
NEXT x
END
運行后,輸出的結果是
A) 22 B) 22 C) 22 D) 22 44 66
44 44 44
66 66 66
(30) 有如下程序
a=0
FOR j=1 TO 20 STEP
a=a+j\5
NEXT j
PRINT a
END
運行后,輸出的結果是
A) 12 B) 16 C) 40 D) 100
(31) 有如程序
FOR m=1 TO 4
a=0
FOR j=1 TO 5
a=1
FOR k=1 TO 6
a=a+3
NEXT k
NEXT j
NEXT m
PRINT a
END
運行后,輸出的結果是
A) 18 B) 19 C) 91 D) 432
(32) 有如下程序
a$="Good Morning"
b$="Even"
c$=LEFT$(a$,4)+LCASE$(b$)+RIGHT$(a$,3)
運行后,c$的值是
A) Good Evening B) Good evening C) good evening D) Good Even
(33) 有如下程序
a$="34": b$="45": c$="-"
d$=b$+c$+a$
PRINT VAL(d$)
END
運行后,輸出的結果是
A) 11 B) 34 C) 45 D) 79
(34) 有如下程序
x=1
FOR k=1 TO 3
IF k<=1 THEN a=x*x
IF k<=2 THEN a=x*x+1
IF k>=3 THEN a=x*x+2
PRINT a;
NEXT k
END
運行后,輸出的結果是
A) 2 5 11 B) 1 1 1 C) 1 5 11 D) 2 2 3
(35) 有如下程序
INPUT a, b, c
d=(a+b+ABS(a-b))/2
d=(d+c+ABS(d-c))/2
PRINT d
END
運行時,在鍵盤上輸入1,3和5三個數字,輸出的結果是
A) 2.5 B) 5 C) 3 D) 8
(36) 有如下程序
a=1: b=2: c=3
a=a+b: b=b+a: c=b+a
IF a<>3 OR b<>3 THEN
a=b-a: b=c-a: c=b+a
END IF
PRINT a+b+c
END
運行后,輸出的結果是
A) 16 B) 3 C) 6 D) 8
(37) 有如下程序
READ x,x,y,z$
a=x+y+VAL(z$)
RESTORE 10
READ x,y,z$
a=a+x+y+VAL(z$)
PRINT a
DATA 1,2
10 DATA 3,4
DATA A,B
END
運行后,輸出的結果是
A) 15 B) 16 C) 18 D) 顯示錯誤信息
(38) 有如下程序
DEFSTR X-Z
x="123"
y="456"
z=x$+y$
PRINT z$
END
運行后,輸出的結果是
A) 顯示出錯信息 B) 123456 C) "579" D) 579
(39) 有如下程序
a$="1223458764"
d$=LEFT$(a$, 1)
FOR i=2 TO LEN(a$)
z$=MID$(a$,i,1)
IF z$>d$ THEN d$=z$
NEXT i
PRINT d$
END
運行時輸出的結果是
A) 1 B) 7 C) 4 D) 8
(40) 有如下程序
x=0
FOR m=3 TO 5
GOSUB a:
x=x+s
NEXT m
PRINT x
END
a:s=s^2+1
RETURN
運行后輸出的是
A) 7 B) 8 C) 6 D) 9
(41) 有如下程序
OPION BASE 1
DIM aj(1 TO 10)
FOR j=6 TO 10
READ aj(j)
NEXT j
PRINT aj(1)+aj(j)
DATA 1,2,3,4,5
END
運行后輸出的是
A) 5 B) 6 C) 1 D) 顯示出錯信息
(42) 有如下程序
DECLARE SUB A(x,y)
x=5: y=4
CALL A((x),y)
PRINT x, y
END 
SUB A(x,y)
t=x
x=t/y
y=t MOD y
END SUB
運行后輸出的是
A) 1 1 B) 5 4 C) 1 4 D) 5 1
(43) 有如下程序
x=1: y=2: z=3
FOR j=1 TO 3
IF j=1 THEN
x=x+y+z
ELSE j=2 THEN
x=2*x+2*y+2*z
ELSE
x=3*x+3*y+3*z
END IF
NEXT j
PRINT x
END
運行后,輸出x的值是
A) 31 B) 18 C) 6 D) 12
(44) 有如下程序
FOR j=1 TO 3
FOR k=1 TO 3
arr(j,k)=(j-1)*3+k
NEXT k
NEXT j
FOR j=2 TO 3
FOR k=2 TO 3
PRINT arr(k,j);
NEXT k
PRINT
NEXT j
END
運行時輸出的結果是
A) 2 5 B) 5 8 C) 4 7 D) 5 9
3 6 6 9 5 8 6 8
(45) 有如下程序
FOR m=3 TO 1 STEP -1
x$=STRING$(m,"@")
PRINT m; x$
NEXT m
END
運行時輸出的結果是
A) 1 @ B) 1 @ C) 3 @ D) 3 @@@
2 @@ 2 @ 2 @@ 2 @@
3 @@@ 3 @ 1 @@@ 1 @
(46) 有如下程序
DECLARE SUB multi(k,s)
sum=0
FOR=3 TO 5
CALL multi(k,s)
sum=sum+s
NEXT k
PRINT sum
END

SUB multi(k,s)
s=1
FORj=1 TO k
s=s*j
NEXT j
END SUB
運行后輸出的結果是
A) 9 B) 120 C) 150 D) 20
(47) 有如下程序
INPUT "Input one letter: ",infocase$
SELECT CASE infocase$
CASE "a"
grade$="Very good"
CASE "b"
grade$="Good"
CASE "c"
grade$="OK"
CASE "d"
grade$="Qualified"
CASE ELSE
grade$="Bad"
END SELECT
PRINT grade$
END
運行時從鍵盤上輸入英文小字母d后,輸出的結果是
A) Very good B) Good C) Bad D) Qualified
(48) 有如下程序
total=0
FOR k=1 TO 3
IF k>=1 THEN
part=1
ELSEIF k>=2 THEN
part=2
ELSEIF k>=3 THEN
part=3
ELSE
part=4
END IF
PRINT part:
total=total+part
NEXT k
PRINT total
END
運行時輸出的結果是
A) 3 3 3 9 B) 3 2 1 6 C) 1 1 1 3 D) 1 2 3 6
(49) 有如下程序
DO
READ x,y,z
x=x-y
LOOP UNTIL x=-1 AND z=1
PRINT x;y;z
DATA 9,2,3,8,1,1,5,1,7,1,1
END
運行時輸出的結果是
A) 8 9 1 B) 4 1 1 C) -1 9 1 D) 9 2 3
(50) 有如下程序
CLS
x1=180:x2=100:Y2=100
SCREEN 1,0:COLOR 5
LINE (x1,y1)-(x2,y2),,B
END
運行后屏幕上顯示的是
A) 一條直線 B) 一個矩形空框
C) 一個填充了顏色的形 D) 無任何顯示
二、填空題(每空2分，共40分)
請將每空的正確答案寫在答題卡上【1】-【20】序號的橫線上，答在試卷上不得分。
(1) DOS命令分為內部命令與外部命令，PATH命令是 【1】 命令。
(2) 設當前盤為A盤，當前目錄為\X\Y，A盤上的一個文件QR.C 在當前目錄下的子目錄W中。現已將A盤的當前目錄改為\D\XY，當前盤改為C盤，如果需指定A盤上的該文件應寫成 【2】 。
(3) 為了得到XCOPY命令的在線幫助，可使用的DOS命令文件一為 【3】 。
(4) 在DOS系統下，代表鍵盤與顯示器的設備文件名為 【4】 。
(5) 在DOS系統下，可以直接執行的文件的擴展名除.FXE外，還有兩個是 【5】 。
(6) 數學式 的QBASIC表達式為 【6】 。
(7) 表達式FIX(-23.87)+INT(24.56)的值為 【7】 。
(8) 有如下程序
sum =1
FOR x=3.2 TO 5.7 STEP 0.8
sum=sum+1
NEXT x
運行后,sum的值是 【8】 。
(9) 有如下程序
k=0
DO WHILE k<25
k=k+1
k=2*k+k*K
a=a+k
LOOP
PRINT a
END
運行后,a的值是 【9】 。
(10) 下面程序運行后輸出的結果如下:
12345
2345
345
45
5
但程序不完整,請在【10】處補充使之完整.
n$="12345"
FOR k=LEN(n$) TO 1 STEP -1
PRINT TAB(10-k); 【10】
NEXT k
END
(11) 下面一段程序單元定義了一個名字為"books "的記錄,其四個域的域名及數據類型如下:
域名 數據類型 數據長度
title 字符型 40
author 字符型 20
price 單精度實型 
press 字符型 30
但程序不完整,請在 【11】 處補充使之完整。
TYPE books
title AS STRING*40
author AS STRING*20
price 【11】
press AS STRING*30
END TYPE
(12) 下面程序的功能是用比較交換法將10個數排為升序,請在【12】、【13】、【14】處將程序補充完整。
DIM num(0 TO 9)
PRINT "data before sorting:"
FOR i=0 TO 9
READ num(i): PRINT num(i);
NEXT i
DATA 123,451,79,39,322,14,91,4,83,777
PRINT
FOR i= 【12】
FOR j= 【13】
IF num(i)>num(j) THEN 【14】
NEXT j
NEXT i
PRINT "data after sorting:"
FOR i=0 TO 9
PRINT num(i);
NEXT i
PRINT
END
(13) 有如下程序
n=1
FOR a=1 TO 5
n=1
FOR b=1 TO 10
n=1
FOR c=1 TO 5
n=n*c
NEXT c
NEXT b
NEXT a
PRINT a; b; c; n
END
運行后輸出a,b,c,及n的值是 【15】 。
(14) 下面程序的功能是從鍵盤輸入一個兩位正整數n,找出該數以內的勾股數(即在n以內的三個正整數a,b,c,滿足c2=a2+b2),運行時將n和滿足條件的數顯示在屏幕上并寫入順序文件group.dat。此程序不完整,請在【16】、【17】、【18】、及【19】填入所需的程序成分。
OPEN "group.dat" FOR OUTPUT AS #1
INPUT n
WRITE #1,n
FOR a=1 TO n
FOR b=a+1 TO n
FOR c=1 TO n
IF c*c= 【16】 THEN
PRINT 【17】
WRITE #1, 【18】
END IF
NEXT c
NEXT b
NEXT a
【19】
END
(15) 下面程序的功能是利用隨機函數產生30個100-300之間(包含100和300)的隨機整數,打印其中5的倍數和7的倍數并求其總和,請根據程序的需要在【20】處填上正確內容。
RANDOMIZE TIMER
FOR k=1 TO 30
x=INT(RND(1)* 【20】 )
IF (x MOD 5=0) OR (x MOD 7=0) THEN
PRINT x
m=m+x
END IF
NEXT k
PRINT
PRINT "m="; m
END

[完]