全国高等学校计算机等级考试（江西考区）
二级QBASIC上机测试模拟试卷四
一、二、三题同一级的一、二、三题
四、程序填空题
下列程序执行的结果是 3
6
9
请去掉程序的[ ]并填入正确内容。
Dim s(3, 3) As Integer
For i = 1 To 3
For j = 1 To 3
READ s(i, j)
Next j
Next i
For i = 1 To 3
l = [1]
For j = 1 To 3
If [2] Then
l = j
End If
Next j
Print s(i, l)
Next i
Data 1, 2, 3, 6, 4, 5, 7, 9, 8
End
五、程序改错题
以下程序执行的结果是一面五环旗。上面三个环并排，两两之间有间隔，下面两个环并排，中间有间隔，间隔和上面两间隔距相等。同时下面左环与上面左起两环交叉，下面右环与上面右起两环交叉。上面三环的颜色从左至右为黑色，蓝色，红色，下面两环的颜色从左至右为亮黄色，绿色.
程序有两处错误,找出并改正,不得增行或删行.
Screen 13
Cls
Line (20, 20)-(260, 160), 15, BF
x = 100
y = 80
Rem *****************************************
For i = 0 To 2
c = i
If c = 2 Then
c = i + 3
End If
Circle (x, y), 20, c
x = x + 50
Next i
Rem *******************************************
Circle (122, 100), 20, 14
Circle (167, 100), 20, 2
End
