 基礎部分和QBASIC語言程序設計
(考試時間：120分鐘，滿分100分)

一、選擇題，（1-40）每題1分，（41-50）每題2分，共60分）
下列各題A）、B）、C）、D）四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應位置上，答在試卷上不得分。
(1) 在32位計算機中，一個字長所占的字節(jié)數(shù)為
A) 1 B) 2 C) 4 D) 8
(2) 與十進制數(shù)511等值的十六進制數(shù)為
A) 1FF B) 2FF C) 1FE D) 2FE
(3) 能將高級語言編寫的源程序轉(zhuǎn)換成目標程序的是
A) 編輯程序 B) 編譯程序 C) 解釋程序 D) 鏈接程序
(4) 在計算機系統(tǒng)中，存儲一個漢字的國標碼所需要的字節(jié)數(shù)為
A) 1 B) 2 C) 3 D) 4
(5) 下列帶有通配符的文件名中，能表示文件ABC.TXT的是
A) *BC.? B) A?.* C) ?BC.* D) ?.?
(6) 在多媒體計算機系統(tǒng)中，不能用以存儲多媒信息的是
A) 光纜 B) 軟盤 C) 硬盤 D) 光盤
(7) DOS命令“COPY／？”的功能是
A) 將當前盤當前目錄中的所有文件復制到當前盤的根目錄下
B) 將當前盤當前目錄中所有以單個字符命名的文件復制到當前盤的根目錄下
C) 以提示方式復制文件
D) 顯示COPY命令的幫助信息
(8) 在Windows環(huán)境下，若要將當前活動窗口存入剪貼板，則可以按
A) Ctrl+PrintScreen鍵 B) Alt+PrintScreen鍵
C) Shift+PrintScreen鍵 D) PrintScreen鍵
(9) 在Windows環(huán)境下，單擊當前應用程序窗口中的“關閉”按鈕，其功能是
A) 將當前應用程序轉(zhuǎn)為后臺運行
B) 退出Windows后再關機
C) 退出Windows后重新啟動計算機
D) 終止當前應用程序的運行
(10) 在Windows環(huán)境下，粘貼按鈕是
 A) B) C) D)
(11) 在QBASIC集成開發(fā)環(huán)境中，要觀察或調(diào)試與當前程序窗口有關的各個程序模塊，第一步需從菜單條中選擇的選項是
A) File B) Edit C) View D) Search
(12) 在QBASIC中,對變量x#賦值即x#=12.34567,x#的數(shù)據(jù)類型是
A) 整型 B) 實型 C) 雙精度型 D) 字符串型
(13) 在下列四個QBASIC表達式中，非法的表達式是
A) 3+5=2 B) 5<″A″
C）″2002/2/1″+″2002/2/15″ D) 10#-5
(14) QBASIC表達式8+3*5 mod 3^2\5*(sin(0)+1)的值是
A) 2 B) 4 C) 6 D) 8
(15) 在QBASIC中，表達式INSTR(1，“BeiJing”,″Ji″) 的值的類型是
A) 字符型 B) 關系型 C) 數(shù)值型 D) 邏輯型
(16) 在QBASIC中，下面的四組語句有語法錯誤的是
A) READ A,B$,C$ B) READ A,B$,C
DATA 12,3.14/180,23 DATA 34,PI/180,45
C) READ,A,B$,C$ D) READ A,B$,C
DATA 45,56+67,X DATA 78,PI,1+1
(17) 語句OPTION BASE 1:DIM A(5,4)定義的數(shù)組元素個數(shù)是
A) 9 B) 5 C) 20 D) 任意個
(18) QBASIC語句中，語句定義符REM定義的是
A) 數(shù)據(jù)恢復語句 B) 數(shù)組定義語句 C) 注釋語句 D) 數(shù)組重定維語句
(19) 語句PRINT″11″>″109″的運行結果是
A) 0 B) -1 C) 11 D) 11>109
(20) 有如下程序
DEF FNA(y)=y+1
DEF FNS(y)=FNA(y)^2+FNA(y)+y^2+y+1
PRINT FNS(2)
END
運行時輸出的結果是
A) 3 B) 14 C) 19 D) 21
(21) 有如下一組程序語句
s=0
FOR i=1 TO 10
READ a$,b
IF a$=″f″ THEN
IF b<10 THEN s=s+1
END IF
NEXT i
PRINT s
DATA f,10,m,67,m,14,f,23,f,1,f,17,m,2,f,11,m,10,m,56
運行時的輸出結果是
A) 2 B) 56 C) 0 D) 1
(22) 有如下一組程序語句
FOR k=1 TO 3
SELECT CASE k
CASE 1
a=3
CASE 3
a=2
CASE 3
a=1
END SELECT
PRINT a;
NEXT k
PRINT k
END
運行時的輸出結果是
A) 1 1 1 1 4 B) 3 2 1 4 C) 1 1 1 1 3 D) 1 2 3 4
(23) 有如下一組程序語句
CONNT c=5
d=c+5
c=c+1
PRINT c+d
運行時的輸出結果是
A) 6 B) 10 C) 16 D) 顯示出錯信息
(24) 有如下程序段
FOR i=1 TO 3
FOR j=0 To i-1
PRINT ″*″
NEXT j
NEXT i
在運行時內(nèi)層循環(huán)的循環(huán)總次數(shù)是
A) 1 B) 2 C) 3 D) 6
(25) 有如下程序
DEFSTR a-c
a=″*″:b=″@″
FOR k=1 TO 3
c$=STRING$(LEN(a$)+k-1,b$)
PRINT c+″263″;
NEXT k
PRINT
END
運行時輸出的結果是
A) @263@@263@@@263 B) *@*@*@263
C) @@@@@@263 D) 出錯信息
(26) 有如下程序
a=5
b=6
PRINT a>b OR b MOD 2=0
END
運行后的輸出結果是
A) –1 B) 0 C) 1 D) 2
(27) 有如下程序
FOR m=1 TO 3
FOR j=m TO 1 STEP –1
FOR k=j TO m
n=n+k
NEXT k
NEXT j
NEXT m
END
運行后n的值為
A) 20 B) 27 C) 30 D) 54
(28) 有如下程序
a$=″12″
b$=″24″
c$=a$+b$
d=VAL(c$)
PRIN d MOD 100
END
運行后的輸出結果是
A) 12 B) 22 C) 24 D) 36
(29) 有如下程序
FOR j=0 TO 35
a=a+j MOD 6
NEXT j
PRINT a
END
運行后的輸出結果是
A) 90 B) 75 C) 105 D) 0
(30) 有如下程序
FOR x=1 TO 4
a=0
FOR y=1 TO x+1
a=a+1
NEXT y
PRINT a;
NEXT x
END
運行后的輸出結果是
A) 1 2 3 4 B) 2 3 4 5 C) 3 4 5 6 D) 4 5 6 7
(31) 有如下程序
DEF fna(x,y)=x^3+x^2*y+x*y^2+y^3
a=4
b=3
PRINT fna(a,b)
END
運行后的輸出結果是
A) 37 B) 175 C) 337 D) 343
(32) 有如下程序
x=1
n=3
DO
k=k+1
n=k+n
x=x*2
LOOP UNTIL x>n
PRINT n;x
END
運行后的輸出結果是
A) 13 16 B) 6 8 C) 18 32 D) 24 64
(33) 有如下程序
s=0
FOR i=1 TO 10
IF i MOD 5 <> 0 THEN
s=s+1
ELSE
s=s+i
END IF
NEXT i
PRINT s
END
運行后的輸出結果是
A) 23 B) 40 C) 45 D) 55
(34) 有如下程序
m$=″#″
FOR k=3 TO 1 STEP –1
x$=STRING$(k,″*″)
PRINT m$;x$
m$=m$+m$
NEXT k
END
運行后的輸出結果是
A) #* B) #* C) #*** D) #***
##** ##** ##** ##**
###*** ####*** ###* ####*
(35) 有如下程序
DECLARE SUB comb(a,b,c)
u=0
x=4
FOR y=0 TO 4
CALL comb(x,y,z)
u=u+z
NEXT y
PRINT u
END
SUB comb(a,b,c)
IF b=0 OR b>=a THEN
c=1
ELSE
CALL comb(a-1,b-1,c)
c1=c
CALL comb(a-1,b,c)
c=c1+c
END IF
END SUB
運行后的輸出結果是
A) 8 B) 16 C) 32 D) 64
(36) 有如下程序
FOR i=1 TO 8
READ x
NEXT i
RESTORE 20
READ x
PRINT x
10: DATA 1,2,15,18
20: DATA 10,80,90,100,75
END
運行后輸出的結果是
A) 75 B) 1 C) 10 D) 運行出錯
(37) 有如下程序
a=3
IF a<=3 THEN
PRINT 3;
END IF
IF a<=4 THEN
PRINT 4;
END IF
IF a<=5 THEN
PRINT 5;
END IF
IF a<=6 THEN
PRINT 6;
ENDIF
PRINT
END
運行后輸出結果是
A) 3 B) 3 4 C) 3 4 5 D) 3 4 5 6
(38) 有如下程序
a=1
DO WHILE a<10
a=a+2
b=b+a*a
LOOP
PRINT a,b
END
運行后輸出的結果是
A) 9 25 B) 9 164 C) 11 285 D) 11 3
(39) 有如下程序
j=0:n=0
DO WHILE n<3
j=(j+1)^2+1
n=n+1
LOOP
PRINT j;n
END
運行時輸出結果是
A) 122 3 B) 10 2 C) 5 3 D) 5 2
(40) 有如下程序
DECLARE SUB sub1(n,j)
FOR j=2 TO 5
CALL sub1(n,j):m=m+n
NEXT j
PRINT m,n
RPINT m;n
END
SUB sub(n,j)
n=j+n
END SUB
運行后輸出的是
A) 30 14 B) 28 14 C) 30 15 D) 15 15
(41) 有如下程序
DIM a(10)
FOR j=1 TO 10
READ a(j)
NEXT j
j=1
INPUT b
DO WHILE(a(j)<>b)AND(j<=10)
j=j+1
LOOP
PRINT j
DATA 1,2,4,7,11,16,22,29,37,46,
END
從鍵盤輸入11,運行后輸出的是
A) 5 B) 6 C) 10 D) 11
(42) 有如下程序
DIM arr(3,3) AS INTEGER
FOR m=1 TO 3
FOR n=1 TO 3
arr(m,n)=2*m+n
NEXT n
NEXT m
FOR m=1 TO 2
FOR n=2 TO 3
PRINT arr(n,m);
NEXT n
PRINT
NEXT m
END
運行時輸出結果是
A) 3 4 B) 5 7 C) 5 6 D) 6 7
5 6 6 8 7 8 8 9
(43) 有如下程序
DECLARE SUB f(x!,y!)
a=1:b=1
FOR j=1 TO 3
CALL f((a),b)
NEXT j
PRINT a;b
END
SUB f(x,y)
x=x+y
y=x+y
END SUB
運行后的輸出結果是
A) 15 1 B) 1 15 C) 13 2 D) 21 34
(44) 在QBASIC中,KILL語句和NAME語句的作用是
A) 釋放數(shù)組和改變數(shù)組名稱 B) 刪除變量和改變變量名稱
C) 刪除文件和改變文件名稱 D) 刪除子程序和改變子程序名稱
(45) 語句OPEN″abc.dat″FOR RANDOM AS #1 LEN=20執(zhí)行后,對其打開的文件中的數(shù)據(jù)
A) 只能讀操作不能寫操作 B) 只能寫操作不能讀操作
C) 只能將其復制到其他文件中 D) 既可讀操作又可寫操作
(46) 有如下程序
OPEN ″file1.dat″FOR INPUT AS #1
OPEN ″file2.dat″FOR OUTPUT AS #2
j=1
DO WHILE NOT EOF(1)
INPUT #1,a
IF j MOD 2=0 THEN
x=a
PRINT #2,x
END IF
j=j+1
LOOP
CLOSE
END
運行后文件file2.bat中的數(shù)據(jù)
A) 是file1.dat中各項數(shù)據(jù)值的一半
B) 是file1.dat中序號為偶數(shù)的各個記錄
C) 是file1.dat中序號為奇數(shù)的各個記錄
D) 是file1.dat中各項數(shù)據(jù)傳值的兩倍
(47) 有如下程序
OPEN″worker.dat″FOR INPUT AS #1
INPUT #1,value
min=value:max=value:sum=value
n=1
DO WHILE NOT EOF(1)
IF min>value THEN min=value
IF maxsum=sum+value
INPUT #1,value
n=n+1
LOOP
CLOSE #1
mean=sum/n
PRINT ″min=″;min,″max=;″max
PRINT″sum=″;sum,″mean=″;mean
END
程序運行中依次從worker.dat中讀入的數(shù)據(jù)為1,2,3,4,5,6,7,8,9和10。運行后的min、max、sum和mean 的值分別是
A) 1、10、55和5.5 B) 10、1、5.5和10
C) 55、10、5.5和1 D) 1、10、5.5和10
(48) 有如下程序
CLS
TYPE stu
num AS LONG
nam AS STRING*10
score AS SINGLE
END TYPE
DIM rec AS stu
OPEN″stud.dat″FOR RANDOM AS #1 LEN=LEN(rec)
FOR k=1 TO 10
GET #1,k,rec
IF k=5 THEN EXIT FOR
NEXT k
CLOSE
END
假設文件stud.dat中有足夠的數(shù)據(jù)，運行后共讀出的記錄數(shù)和字節(jié)數(shù)分別是
A) 10和180 B) 10和160 C) 5和90 D) 5和80
(49) 有如下程序
CLS
SCREEN 1
FOR j=1 to 3
a=RND*130+100
b=RND*40+80
c=RND*40+40
CIRCLE(a,b),c,j
NEXT j
END
運行后的輸出結果是
A) 3個顏色相同、大小相同的圓 B) 3個顏色相同、大小不同的圓
C) 3個顏色不同、大小相同的圓 D) 3個顏色不同、大小不同的圓
(50) 有如下程序
CLS
SCREEN 13
FOR j=1 TO 3
READ x1,y1,x2,y2
SCLECT CASE j
CASE 1
LINE(x1,y1)-(x2,y2),j,BF
CASE 2
LINE(x1,y1)-(x2,y2),j,B
CASE 3
LINE(x1,y1)-(x2,y2),j,BF
END SELECT
NEXT j
DATA 20,20,60,60
DATA 60,60,100,100
DATA 100,100,140,140
運行后的輸出結果是：
A) 3個矩形框 B) 2個實心矩形和1個矩形框
C) 3個實心矩形 D) 1個實心矩形和2個矩形框
二、填空題（每空2分，共40分）
請將正確答案分別寫在答題卡中序號為【1】至【20】的橫線上, 答在試卷上不得分.
(1) 計算機軟件分為系統(tǒng)軟件和應用軟件，操作系統(tǒng)屬于 【1】 。
(2) 在DOS環(huán)境下，代表鍵盤和顯示器的設備文件名為 【2】 。
(3) 支持Internet基本服務的協(xié)議是 【3】 。
(4) 從Windows環(huán)境進入MS－DOS方式后，返回Windows環(huán)境的DOS命令為 【4】 。
(5) 某微型機的運算速度為2MIPS，則該微型機每秒執(zhí)行 【5】 條指令。
(6) 數(shù)學式 的QBASIC表達為 【6】 。
(7) 表達式INT(8.6) =FIX(8.1)的值為 【7】 。
(8) 有如下程序
DEF fna(a,b,c)=(a+b*b)*c
a=3:b=5;c=7
abc=fna(c,a,b)
PRINT abc
END
運行后,輸出的值是 【8】 。
(9) 四個字符串“ABC”、“abc”、“about”及“abacus”中的最大者為 【9】 。
(10) 下面程序?qū)⒋蛴≥斎氪幕匚?即字符串正反讀相同)，并且該回文長度為原來串長 的2倍，例如：輸入串為“abc”，則回文為“abccba”。請在【10】、【11】處填入適當內(nèi)容將程序補充完整。
INPUT a$
x= 【10】
b$=a$
FOR j=x TO 1 STEP –1
b$=a$+ 【11】
NEXT j
PRINT b$
END
(11) 有如下程序
sum=0
FOR j=1 TO 6
IF(j mod 2=0)THEN
sum=sum+j*j
ELSE
sum=sum+2*j*j
END IF
NEXT j
PRINT sum
END
運行后的輸出是 【12】 。
(12) 有如下程序
a$=″1234567″
FOR m=1 TO 4
PRINT TAB(5-m); 【13】
NEXT m
END
運行后的輸出結果如下
4
34
234
1234
但程序不完整，請在【13】處補充使之完整。
(13) 數(shù)組a中有100個整數(shù)，下標從1到100，下面的程序采用比較交換法把a中所有的數(shù)按照升序排列，請在【14】、【15】處填入適當?shù)膬?nèi)容將程序補充完整。
DIM a(100),b(100)
FOR i=1 TO 100
a(i)=INT(10000*RND):PRINT a(i);
NEXT i
PRINT
FOR i=1 TO 99
FOR j= 【14】
IF a(i)>a(j) THEN SWAP 【15】
NEXT j
NEXT i
PRINT ″data after sorting:″
FOR i=1 TO 100
PRINT a(i);
NEXT i
END
(14) 下面函數(shù)計算兩個非負整數(shù)a與b的整除的商，并約定除數(shù)為0時商為零。請在【16】、【17】、【18】處填入適當內(nèi)容將程序補充完整。
FUNCTION division(a,b)
IF b=0 THEN
tmp= 【16】
ELSE IF atmp=0
ELSE
tmp=1+division( 【17】 ,b)
ENDIF
division= 【18】
END FUNCTION
(15) 下面程序的功能是產(chǎn)生100個1到10（含1和10）之間的隨機整數(shù)，統(tǒng)計其中數(shù) k(1<=k<=10)的出現(xiàn)次數(shù)并記入數(shù)組元素a(k),請在【19】及【20】處把程序補充完整。
DIM a(10)
FOR j=1 TO 100
b= 【19】
【20】
NEXT j
FOR k=1 TO 10
PRINT “a(”;k; “)=”;a(k)
NEXT k
END


全國計算機等級考試二級QBASIC試卷含答案

 一、選擇題（⑴-(40)題每題1分，(41)-(50)題每題2分，其60分）
 (1) C (2)A (3)B (4)B (5) C
 (6) A (7) D (8) D (9) D (10) D
 (11) C (12) C (13) B (14) D (15) C
 (16) D (17) C (18) C (19) B (20) C
 (21) D (22) B (23) D (24) D (25) A
 (26) A (27) A (28) C (29) A (30) B
 (31) B (32) A (33) A (34) D (35) B
 (36) C (37) D (38) C (39) A (40) A
 (41) A (42) B (43) B (44) C (45) D
 (46) B (47) A (48) C (49) D (50) B
 二、填空題答案（每空2分，共40分）
 (1) 【1】系統(tǒng)軟件
 (2) 【2】CON 或 CON:
 (3) 【3】TCP/IP 或 傳輸控制協(xié)議/網(wǎng)際協(xié)議
 (4) 【4】EXIT
 (5) 【5】二百萬 或 兩百萬 或 2百萬 或 200萬 或 2000000 或 2,000,000
 (6) 【6】ABS(a+2*COS(w-x)+SQR(x-y))
 (7) 【7】-1
 (8) 【8】80
 (9) 【9】"about" 或 about
 (10) 【10】LEN(a$) 【11】MID$(a$,j,1)
 (11) 【12】126
 (12) 【13】MID$(a$,5-m,m)
 (13) 【14】i+1 TO 100 【15】a(i),a(j) 或 a(j),a(i)
 (14) 【16】0 【17】a-b 【18】tmp
 (15) 【19】1+INT(10*RND) 或 INT(10*RND)+1 或 INT(RND*10+)【20】a(b)=a(b)+1
var arrBaiduCproConfig=new Array(); arrBaiduCproConfig['uid'] =120380; arrBaiduCproConfig['n'] ='lw365cpr'; arrBaiduCproConfig['tm'] =30; arrBaiduCproConfig['cm'] =34; arrBaiduCproConfig['um'] =28; arrBaiduCproConfig['w'] =468; arrBaiduCproConfig['h'] =60; arrBaiduCproConfig['wn'] =2; arrBaiduCproConfig['hn'] =1; arrBaiduCproConfig['ta'] ='right'; arrBaiduCproConfig['tl'] ='bottom'; arrBaiduCproConfig['bu'] =0; arrBaiduCproConfig['bd'] ='#trans'; arrBaiduCproConfig['bg'] ='#trans'; arrBaiduCproConfig['tt'] ='#0000ff'; arrBaiduCproConfig['ct'] ='#444444'; arrBaiduCproConfig['url'] ='#008000'; arrBaiduCproConfig['bdl'] ='#000000'; arrBaiduCproConfig['rad'] =0;