用basic写出冒泡排序

以下是使用 BASIC 语言实现冒泡排序的示例代码：

10 REM Bubble Sort
20 DIM a(10)
30 FOR i = 1 TO 10
40   INPUT a(i)
50 NEXT i
60 FOR i = 1 TO 9
70   FOR j = i + 1 TO 10
80     IF a(i) > a(j) THEN
90       temp = a(i)
100      a(i) = a(j)
110      a(j) = temp
120    END IF
130  NEXT j
140NEXT i
150PRINT "Sorted Array:"
160FOR i = 1 TO 10
170  PRINT a(i);
180NEXT i

这个程序首先要求用户输入要排序的数组，然后使用嵌套循环遍历数组，比较相邻的两个元素，如果它们的顺序不正确，就交换它们的值。最后，程序输出已排序的数组。