《QBASIC》综合检测五.docVIP

《QBASIC》综合检测五 程序阅读题： CLS FOR I=1 TO 5 J=J+1 READ K PRINT “I=“；I，”K=“；K IF J=4 THEN EXIT FOR NEXT I DATA 1，2，3，4，5，6，7，8，9 PRINT “J=“；J END CLS INPUT “M，N=“；M，N FOR I=1 TO M IF I=1 THEN PRINT TAB（N-1）；“*” ELSE PRINT TAB（N-I）；“*”；TAB（N-2+I）；“*” END IF NEXT I FOR I=M-1 TO 1 STEP –1 IF I=1 THEN PRINT TAB（N-1）；“*” ELSE PRINT TAB（N-I）；“*”；TAB（N-2+I）；“*” END IF NEXT I END 当M=5，N=20时： 以下程序首先产生50个1-100之间的随机整数，之后对这50个数按从小到大的顺序编号，且数值相同的数编号相同。 RANDOMIZE DIM A（50），B（50） FOR I=1 TO 50 A（I）=-------------------- NEXT I FOR I=1 TO 49 FOR J=------------ TO 50 IF A（I）A（J） THEN SWAP A（I），A（J） NEXT J，I K=1：B（1）=1 FOR I=2 TO 50 IF A（I）A（I-1） THEN ----------------------- B（I）=K PRINT B（I），A（I） NEXT I END 一个球从10米的高处落下，它每次反弹的高度为前一次下落高度的2/3，以下程序求第10次落地时运动的总路程 H=10：S=---------- FOR I=---------------------------- H=H*2/3 S=------------------------ NEXT I PRINT S END 某一次考试有20道选择题，每道题有四个选项A、B、C、D，每题5分。这20道题的正确答案依次是C、A、B、D、A、B、D、C、A、B、D、A、A、C、B、A、C、C、D、A。本程序从键盘上依次输入答案后，计算出得分 --------------------- FOR I=1 TO 20 READ A$（I） NEXT I DO S=0 FOR I=1 TO 20 INPUT X$ IF X$=------------ THEN S=S+5 NEXT I PRINT S INPUT “CONTINUE？”（Y/N）“；K$ LOOP WHILE K$=“Y” OR K$=“y” END 编程题： 一个猜数字游戏，计算机随机生成0-9间的正整数，然后从键盘输入一个0-9间的正整数，检查是否相同，若相同则输出“EXCELLENT”，若不相同，则输出“WRONG”，以-1为游戏结束标志。 某中学运动会成绩如下表所示： 单位：人 班 第一名 第二名 第三名 第四名 第五名 第六名 301 1 3 1 0 2 2 302 2 1 3 2 1 0 303 0 2 4 3 2 1 304 3 1 0 0 2 1 305 2 2 1 1 0 1 306 1 0 0 3 2 4 第一名得8分，二---六依次得5，4，3，2，1，编程求各班总分，并按得分高低打印各班的名次和所得总分