用QBASIC编写冒泡排序随机产生100个数。

CLS DIM a(100) RANDOMIZE TIMER FOR i = 1 TO 100 a(i) = INT(RND * 100) NEXT i

FOR i = 1 TO 99 FOR j = 1 TO 100 - i IF a(j) > a(j + 1) THEN temp = a(j) a(j) = a(j + 1) a(j + 1) = temp END IF NEXT j NEXT i

PRINT "排序后的结果为：" FOR i = 1 TO 100 PRINT a(i); NEXT i END