全国高等学校计算机等级考试(江西考区)
二级QBASIC上机测试模拟试卷七
一、二、三题同一级的一、二、三题
四、下面程序存在三处错误,将错误语句进行更正,并在计算机上运行给出程序运行结果。
该程序是用于求任意两个数A,B的最大公约数和最小公倍数。
10 Input A,B
20 FOR I=A to A*B STEP B
30 IF I\A=I/A then M=I: GOTO 60
40 NEXT
50 D=A*B/M
60 PRINT A,B
70 PRINT M,D
80 END
五、 程序填空
下列程序用于找出矩阵在该行中最小在该列中最大的元素,请将它补充完整,但不得修改其它语句。
10 DIM A(5,6)
20 FOR I=1 TO 5
30 FOR J=1 TO 6
40 READ A(I,J)
50 NEXT J
60 NEXT I
70 FOR I=1 TO 5
80 M=A(I,1)
90
100
110 FOR L=1 TO 5
120
130
140 END