1997年4月计算机等级考试二级 Q Basic笔试试题

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