全国高等学校计算机等级考试(江西考区)
二级QBASIC上机测试模拟试卷二
一、二、三题同一级的一、二、三题
四、程序改错题
以下为打印出下列图形的程序:
C
C H
C H I
C H I N
C H I N A
程序如下:
10 A$ = "CHINA"
20 For I = 1 To 5
30 Print Tab(6 - I);
35 Rem ***** FOUND 1 *******
40 For J = 1 To 5
45 Rem ****** FOUND 2 ******
50 Print A$
60 Next J
70 Print
80 Next I
90 End
但程序有两个错误,请试调试改正。调试改正中不得增删语句。
五、程序填空题
以下是打印N行扬辉三角形的BASIC程序,在空白处将程序补充完整,运行得出正确结果。
10 INPUT N
20 Dim A(N, N)
30 For I = 1 To N
40 A(I, 1) = 1: A(I, I) = 1
50 Next I
60 For I = 3 To N
70 For J = 2 To I - 1
80 A(I, J) = (1)
90 Next J
100 Next I
110 For I = 1 To N
120 For J = 1 To (2)
130 Print A(I, J);
140 Next J
150 Print
160 Next I
170 End