《QBASIC》综合检测(一).docVIP

《QBASIC》综合检测（一） 程序阅读题： READ A，B，C，D X=B+D READ A，B，C，D Y=B+D RESTORE FOR J=1 TO 8 READ A NEXT J X=X+Y+Z PRINT “A=”；A，“X=”；X，“Y=”；Y END DATA 3，6，2，5 DATA 7，-2，8，9 DATA 6，2，-1，8 RUN： FOR A= 1 TO 5 Y=1 FOR B=1 TO 5 FOR C=1 TO 5 Y=Y+1 NEXT C NEXT B NEXT A PRINT “Y=”；Y END RUN： SI=0：SJ=0：SK=0 FOR I=1 TO 3 FOR J=1 TO I FOR K=J TO 3 SK=SK+1 NEXT K NEXT J SI=SI+1 NEXT I PRINT SI，SJ，SK END RUN： DIM A（3，4），B（12） FOR I=1 TO 3 FOR J=1 TO 4 READ A（I，J） N=N+1 B（N）=A（I，J） NEXT J：NEXT I I=1 WHILE IN J=J+1 B（0）=B（J） WHILE B（0）B（J-1） B（J）=B（J-1）：J=J-1 WEND B（J）=B（0）：I=I+1 WEND FOR I=1 TO 3 FOR J=1 TO 4 A（I，J）=B（4*（I-1）+J） X$=LTRIM$（STR$（A（I，J））） IF LEN（X$）=1 THEN PRINT SPACE$（2）+X$ ELSE PRINT SPACE￥（1）+X$ END IF NEXT J PRINT NEXT I DATA 4，2，6，7，9，1，11 DATA 34，51，46，8，5 END RUN： 产生二十个随机正整数，将其中的奇数按升序排列输出，偶数按降序排列输出 DIM A（20） FOR I=1 TO 20 A（I）= NEXT I FOR I=19 TO 1 STEP –1 A=1 FOR J= IF A（J）A(J+1) THEN SWAP A（J），A（J+1）：A=0 NEXT J IF A=1 THEN NEXT I FOR I=1 TO 20 IF THEN PRINT A（I）； NEXT I PRINT FOR I= IF A（I）/2=INT（A（I）/2） THEN PRINT A（I）； NEXT I END 编程题： 有一个数列，第一、二项分别是5、8，从第三项开始，每项的值是前二项之和。请打印该数列的前30 项，并将前30项中的素数的平均值（精确到小数点后二位）求出并打印出来。（要求画程序流程图） 有一个M*N的三维数组，各元素的值均为两位正整数，由随机函数产生。编写程序，完成下列要求： 打印出此数列中所有元素平均值，并把高于平均值所在的行和列打印出来。 将此数组逆时针旋转90度，将结果打印出来。