VB中怎么给指定的数组排序？？

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 扒派手 *.cls *.print 学号 姓名 VC VB *.print --------------------------------------------- For i = 0 To n - 1 *.print a(i).number, a(i).name, a(i).vc, a(i).vb Print Next iEnd Sub

扩展资料vb数组排序思路：1、冒泡排序法：位置相邻两数进行两两比较，在比较时如果发现前面的数比后面的数大，则进行交换，春嫌都比较完一轮后，把最大一个数放到最后，如此进行下去即可完成冒泡排序。2、比较交换法假设第一个数最小，然后第一个确边假打波圆数依次与后面的每个数都进行比较， 若比较时发现后面的数比第一个数小， 则两数位置进行交换， 全部都比较完算一轮，每一轮比较完后，第一个数是最小的数，如此进行即可完成比较排序。3、选择排序假设第一个数最小，接着记下最小数所在的位置，然后将最小数依次与后面的每一个数都进行比较，若比较时发现后面的数比最小的数还小，则修改最小数所在位置，全部都比较完算一轮。每一轮比较完后，最小数所在的位置是否跟假设的是反友已同一个位置，若不是，则最小数与第一个数进行交换位置，如此进行即可完成选择排序。