全国高等学校计算机等级考试（江西考区）
二级QBASIC上机测试模拟试卷八
一、二、三题同一级的一、二、三题
四.程序改错题。
以下程序的功能是：打印出如下数据表。
1
1 13
1 13 135
1 13 135 1357
1 13 135 1357 13579
程序在两注释之间有两处错误，找出并改正，不得增行或删行。
程序如下：
Cls
For j = 1 To 5
Rem *************found*************
s = 1
For k = 0 To j
Rem *************found**************
s = s * 10 + 2 * k - 1
Print Tab(10 + (k - 1) * 6); s;
Next k
Next j
End
五.程序填空题。
以下程序的功能是：打印出杨辉三角形。
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
请在[1]、[2]处将程序补充完整。
程序如下：
INPUT "N="; n
Dim a(n, n)
For j = 1 To n
a(j, j) = 1
a(j, 1) = 1
For k = 2 To j - 1
a(j, k) = [1] + [2]
Next k
Next j
For j = 1 To n
For k = 1 To j
Print Tab(5 * k); a(j, k);
Next k
Next j
End
