16.已知數組A(4,4)各個元素在運行程序10-90語句后被賦值并打印,形成四階方陣,請在110行(16)處填入的需內容,使產生一個轉置矩陣(即行列互換),仍放在數組A中,并打印了出來.
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.下面程序的作用是打開一個隨機文件,讀入20個記錄,并將它們打印出來,請把第60行處補充完整.
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.下面程序運行后輸出的結果是(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的根目錄中有一個名為BOOK.DAT的文件,內容為書店名,英語,物理,數學三本書的價格,現次此文件再在根目錄中建一個名為AVER.DAT的文件,內容為書店名及三本書的平均價格,但程序不完整, (19)處補充之.
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.下面程序運行后輸出結果是BOTTOM,但程序不完整,請在第30行(20)處補充之.
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