问题描述：
有如下数：10,4,53,22,90,34请用VB程序冒泡法和选择排序法的从大到小排列出.
问题解答：
我来补答
Option Base 1
Dim a
Private Sub Form_Load()
a = Array(10, 4, 53, 22, 90, 34)
End Sub
Private Sub Command1_Click() '选择排序法
For i = 1 To 5
For j = i + 1 To 6
If a(j) > a(i) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 6
Print a(i);
Next
Print
End Sub
Private Sub Command2_Click() '冒泡排序法
For i = 1 To 5
For j = 6 To i + 1 Step -1
If a(j - 1) < a(j) Then
t = a(j - 1): a(j - 1) = a(j): a(j) = t
End If
Next j
Next i
For i = 1 To 6
Print a(i);
Next
Print
End Su
