QBASIC冒泡排序实例：随机生成100个数并排序

本示例演示如何使用QBASIC编写冒泡排序算法，对随机生成的100个数进行排序。

代码实现

CLS
DIM a(100)
RANDOMIZE TIMER

' 生成100个随机数
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

代码说明

1. DIM a(100) 声明一个包含100个元素的数组 a，用于存储随机数。
2. RANDOMIZE TIMER 初始化随机数生成器。
3. 第一个 FOR 循环生成100个随机数并存储到数组 a 中。
4. 嵌套的 FOR 循环实现冒泡排序算法，比较相邻元素并交换位置，直到数组排序完成。
5. 最后一个 FOR 循环输出排序后的数组元素。

总结

本示例简单易懂地展示了使用QBASIC实现冒泡排序的方法，并提供了详细的代码说明，希望对您学习QBASIC编程有所帮助。