全国高等学校计算机等级考试（江西考区）

二级QBASIC上机测试模拟试卷六

 

一、二、三题同一级的一、二、三题

四、程序改错题。

给定程序，其功能是：打印出如下数据表。

1

1   13

1   13    135

1    13    135    1357

1    13    135    1357    13579

程序在两注释之间有两处错误，找出并改正，不得增行或删行。

Cls

For j = 1 To 5

*************found*************

    s = 1

For k = 0 To j

*************found**************

  s = s * 10 + 2 * k - 1

  Print Tab(10 + (k - 1) * 6); s;

Next k

    Print

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

Print

Next j

End

 

[返 回]