全国高等学校计算机等级考试(江西考区)
二级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