Private Sub Command4_Click()
Dim t As clerk, i%, j%
For i = 0 To n - 1
For j = i To n - 2
If a(i).vc > a(j + 1).vc Then
t = a(i): a(i) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
Picture2.Cls
Picture2.Print "学号 姓名 VC VB"
Picture2.Print "---------------------------------------------"
For i = 0 To n - 1
Picture2.Print a(i).number, a(i).name, a(i).vc, a(i).vb
Next i
End Sub
扩展资料
vb数组排序思路：
1、冒泡排序法：
位置相邻两数进行两两比较，在比较时如果发现前面的数比后面的数大，则进行交换，都比较完一轮后，把最大一个数放到最后，如此进行下去即可完成冒泡排序。
2、比较交换法
假设第一个数最小，然后第一个数依次与后面的每个数都进行比较， 若比较时发现后面的数比第一个数小， 则两数位置进行交换， 全部都比较完算一轮，每一轮比较完后，第一个数是最小的数，如此进行即可完成比较排序。
3、选择排序
假设第一个数最小，接着记下最小数所在的位置，然后将最小数依次与后面的每一个数都进行比较，若比较时发现后面的数比最小的数还小，则修改最小数所在位置，全部都比较完算一轮。
每一轮比较完后，最小数所在的位置是否跟假设的是同一个位置，若不是，则最小数与第一个数进行交换位置，如此进行即可完成选择排序。
Private Sub rank(n As Integer, a() As Long)
For i = 1 To n - 1
For j = i + 1 To n
If a(j) > a(i) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
End Sub
优化后的程序：
Private Sub rank(n As Integer, a() As Long)
For i = 1 To n - 1
tmax = i
For j = i + 1 To n
If a(j) > a(tmax) Then tmax = j
Next j
If tmax <> i Then t = a(i): a(i) = a(tmax): a(tmax) = t
Next i
End Sub
（二）冒泡排序法(升序为例)
Private Sub rank(n As Integer, a() As Long)
For i = 1 To n - 1
For j = n 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
End Sub
优化后的程序：
Private Sub rank(n As Integer, a() As Long)
For i = 1 To n - 1
flag = 0
For j = n To i + 1 Step -1
If a(j - 1) > a(j) Then
t = a(j - 1): a(j - 1) = a(j): a(j) = t: flag = 1
End If
Next j
If flag = 0 Then Exit For
Next i
End Sub本回答被提问者采纳
a = Array(1, 3, 9, 2, 7, 5, 6)
For i = 0 To UBound(a)
For j = i To UBound(a)
If a(j) < a(i) Then '升序，降序改为大于号
t = a(j)
a(j) = a(i)
a(i) = t
End If
Next
Next
For i = 0 To UBound(a)
Print a(i)
Next
End Sub