1997年4月計(jì)算機(jī)等級(jí)考試二級(jí) Q Basic筆試試題

16.已知數(shù)組A(4,4)各個(gè)元素在運(yùn)行程序10-90語(yǔ)句后被賦值并打印,形成四階方陣,請(qǐng)?jiān)?10行(16)處填入的需內(nèi)容,使產(chǎn)生一個(gè)轉(zhuǎn)置矩陣(即行列互換),仍放在數(shù)組A中,并打印了出來(lái).
10 DIM A(4,4)
20 FOR K=1 TO 4
30 FOR J=1 TO 4
40 A(K,J)=J
50 PRINT A(K,J);
60 NEXT J
70 PRINT
80 NEXT K
90 PRINT
100 FOR K=1 TO 4
110 FOR J=1 TO (16)
120 T=A(J,K)
130 A(J,K)
140 A(K,J)=T
150 NEXT J
160 NEXT K
170 FOR K=1 TO 4
180 PRINT A(K,1);A(K,2);A(K,3);A(K,4)
190 NEXT K
200 END
17.下面程序的作用是打開(kāi)一個(gè)隨機(jī)文件,讀入20個(gè)記錄,并將它們打印出來(lái),請(qǐng)把第60行處補(bǔ)充完整.
10 DIM A(20)
20 OPEN "ABC.DAT" AS#1 LEN=8
30 FIELD # 1,8 AS D$
40 R％=1
50 FOR M=1 TO 20
60 (17),R％:A(M)=CVD(D$):R％=R％+1
70 NEXT M
80 CLOSE # 1
90 FOR M=1 TO 20
100 PRINT A(M)
110 NEXT M
120 END
18.下面程序運(yùn)行后輸出的結(jié)果是(18).
10 C$=" "
20 FOR J=1 TO 4
30 READ A$
40 C$=C$+LEFT$(A$,J)
50 NEXT J
60 PRINT C$
70 DATA UNITE,NIGHT,VERSION,SITYARD
80 END
19.在磁盤A的根目錄中有一個(gè)名為BOOK.DAT的文件,內(nèi)容為書(shū)店名,英語(yǔ),物理,數(shù)學(xué)三本書(shū)的價(jià)格,現(xiàn)次此文件再在根目錄中建一個(gè)名為AVER.DAT的文件,內(nèi)容為書(shū)店名及三本書(shū)的平均價(jià)格,但程序不完整, (19)處補(bǔ)充之.
10 OPEN "A:BOOD.DAT" FOR INPUT AS #3
20 OPEN "A:AVER.DAT" FOR OUTPUT AS #2
30 WHILE NOT EOF(3)
40 INPUT #3,NA$,ENG,PHY,MATH
50 WRITE #2,NA$,(19)
60 WEND
70 CLOSE #3,#2
80 END
20.下面程序運(yùn)行后輸出結(jié)果是BOTTOM,但程序不完整,請(qǐng)?jiān)诘?0行(20)處補(bǔ)充之.
10 FOR J=1 TO 3
20 READ A$
30 A$=(20)
40 C$=C$+A$
50 NEXT J
60 PRINT C$
70 DATA BALL,BOTH,ARTOMAT
80 END