全国高等学校计算机等级考试（江西考区）
二级QBASIC上机测试模拟试卷一
一、二、三题同一级的一、二、三题
四、程序改错题（20分）。
下面给出打印下列图形(其中同一行的每两个*之间有一空格)的程序，但程序中有两个错误。请调试改正，但不得增删语句。
*
* *
* * *
* * * *
FOR x=6 TO 3 STEP -1
FOR y=1 TO 6-x
PRINT TAB(y);"*" ;
NEXT y: PRINT
NEXT x
END
五、程序填空题（20分）。
下面程序的功能是处理N个学生的某次考试成绩，并按从高分到低分的次序列出学号和成绩。下面程序不完整，请将其补充完整，以便能得到正确答案。
INPUT "学生数"；N
DIM A$(100), A(100)
FOR I=1 TO N : READ X$,X
A(X)=A(X)+1
（1）
NEXT
PRINT "学号"，"分数"
FOR I＝100 TO 0 STEP －1
IF A（I）＞1 THEN
FOR J＝1 TO （2）
PRINT MID$(A$(I),4*(J-1)+1 , 4),I
NEXT J
ELSE
IF A(I)=1 THEN
PRINT （3）
ENDIF
ENDIF
NEXT I
END
DATA 9801，96，9802，98，9803，97，9804，98
DATA 9806，89，9807，86，9809，86
例如N为7时，将按下列格式输出：
RUN
学号 成绩
9802 98
9804 98
9803 97
9801 96
9806 89
9807 86
9809 86
