level 1
我家孩子的一道BASIC题,我也是初学,看不出错在哪里。
目的:用随机函数产生10个100以内的随机数存入到数组X()中,用过程排序,按从大到小的顺序输出
CLS
DECLARE SUB SORT(X(),N)
DIM X(10)
RANDOMIZE TIMER
PRINT “随机数输出”
FOR I=1 TO 10
X(I)=INT(RND*100)
PRINT X(I)
NEXT I
PRINT
SORT X(),10
PRINT “排序后由大到小输出”
FOR I=1 TO 10
PRINT X(I)
NEXT I
PRINT
END
SUB SORT(S(),N)STATIC
FOR I=1 TO N-1
FOR J=I+1 TO N
IF X(I)〈 X(J) THEN SWAP X(I),X(J)
NEXT J,I
END SUB
这其实就是书上的原句,可我打完以后,就是不执行,提示:
COMMON AND DECLARE MUST PRECEDE EXECUTABLE STATEMENTS
2009年10月21日 15点10分
1
目的:用随机函数产生10个100以内的随机数存入到数组X()中,用过程排序,按从大到小的顺序输出
CLS
DECLARE SUB SORT(X(),N)
DIM X(10)
RANDOMIZE TIMER
PRINT “随机数输出”
FOR I=1 TO 10
X(I)=INT(RND*100)
PRINT X(I)
NEXT I
SORT X(),10
PRINT “排序后由大到小输出”
FOR I=1 TO 10
PRINT X(I)
NEXT I
END
SUB SORT(S(),N)STATIC
FOR I=1 TO N-1
FOR J=I+1 TO N
IF X(I)〈 X(J) THEN SWAP X(I),X(J)
NEXT J,I
END SUB
这其实就是书上的原句,可我打完以后,就是不执行,提示:
COMMON AND DECLARE MUST PRECEDE EXECUTABLE STATEMENTS