全国高等学校计算机等级考试（江西考区）
二级QBASIC上机测试模拟试卷十
一、二、三题同一级的一、二、三题
四、程序填空题
已知字母a的ASCii码是97。在以下程序中，随机产生10个a到z之间的字符，然后再按字母的顺序组成一个字符串。请去掉[ ]并填上正确答案。程序如下：
10 Randomize
20 Dim A$(10)
30 P$ = ""
40 For I = 1 To 10
45 [ ]
50 Next I
60 For I = 1 To 9
70 For J = I + 1 To 10
80 If A$(I) > A$(J) Then SWAP A$(I), A$(J)
90 Next J
95 [ ]
100 Next I
110 P$ = P$ + A$(I)
120 Print P$
130 End
五、 程序改错题
有一个数组，存放几个不相同的整数。从键盘输入一个数，要求从数组中删除与该数值相同的元素，并将其后的元素逐个向前递补。输出删除后的数组，如数组中无此数，则输出“无此数”,该程序在两注释行之间有两处错误，请找出并改正，不得增行或删行。程序如下, 请改正：
10 Dim A(10)
20 For I = 1 To 10
30 INPUT A(I)
40 Next I
50 INPUT "X=";X
60 FLAG = 0
65 Rem **************************
70 For I = 1 To 9
80 If X = A(I) Then
90 For J = 2 To 9
100 A(J) = A(J + 1)
110 Next J
120 FLAG = 1
130 End If
140 If X = A(10) Then FLAG = 0
150 Next I
155 Rem *************************
160 If FLAG = 0 Then
170 Print "NOT FOUND"
180 Else
190 For I = 1 To 9
200 Print A(I);
210 Next I
220 End If
230 End
