全国高等学校计算机等级考试（江西考区）
二级QBASIC上机测试模拟试卷十四
一、二、三题同一级的一、二、三题
四、程序填空题
以下程序的作用是产生40个在500到600间的随机整数(包括500和600)，并以每行8个数打印出来。对程序还有两个要求：
(1)键入RUN并回车，即得结果，不能在运行后键入其他数后再出结果。
(2)接着再运行一次，必须得到不同的另一组40个数的数列(提示：第30及40行的变量TSEED为随机种子数)，即相邻二次运行不能得到同一数列。
10 Dim M(40)
20 T$ = Mid$(Time$, 4, 2) + Right$(Time$, 2)
30 TSEED = Val(T$)
40 Randomize TSEED
50 For J = 1 To 40
55 Rem** "FOUND"***
60 M(J) = [1]
70 Next J
80 For J = 1 To 40 Step 8
85 Rem PRINT TAB(K * 10 + 1); :M(J + K)
90 [2]
100 Print Tab(K * 10 + 1); M(J + K);
110 Next K
120 Print
130 Next J
140 End
请在[1]、[2]处填入所需内容。
注意：不得增行或删行，也不得更改程序的结构。
五、程序改错题
以下程序的功能是：按字典顺序把Zero 0ne Two Thee Four Five Slx Seven Eight Nine这十个单词，按字符串的大小关系，由大到小的顺序排列输出。实现该功能的程序中，带有下划线的语句有错，请将错误的语句进行改正，运行通过并观察结果。注意：不得删行或增行，也不得更改程序的结构。
程序如下：
5 Cls
10 Dim A$(10)
20 For I = 1 To 10
25 Rem **** FOUND *****
30 RADA A$(I)
40 Next I
50 Data Zero, One, Two, Three, Four, Five, Six, Seven, Eight, Nine
60 For I = 1 To 9
70 For J = I + 1 To 10
75 Rem **** FOUND ****
80 If A$(I) > A$(J) Then T$ = A$(I): A$(I) = A$(J): A$(J) = T$
90 Next J
100 Next I
110 For I = 1 To 10
120 Print A$(I); " ";
130 Next I
140 End
