下面程序用冒泡法将数组 a 的 10 个整数按升序排列 Option Base 1 Private Sub Command1_Click() Dim a Dim i%, j%, temp% a=Array(666,46,324,529,435,89,765,321,821,8) For i = 1 To For j = If a(i) a(j) Then temp = a(i) a(i) = a(j) a(j) = temp End If Next j Next i For i = 1 To 10 Print a(i); Next i End Sub