《QBASIC》综合检测五.doc

《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