代码如下:'arr()为你给定的目标数组,n为你指定的前n个最大值,调用例子:'
Dim arr() As Variant'
arr = Array(1, 4, 5, 6, 2, 6, 8, 4, 6, 7) '
PrintPreN arr, 10Private Sub PrintPreN(arr() As Variant, n As Long)
Dim Brr() As Variant'排序后的数组
dim Crr() As Variant'用来存储下标
Brr = arr
Dim i, j, tmp, tmp1 As Long
ReDim Cr |