求VB函数：已知一维字符数组，要求从大到小排序

求VB函数：已知一维字符数组，要求从大到小排序

Sub mySort(ByRef
a() As String, n As Integer)

Dim i, j As
Integer

Dim c As String

For i = 1 To n

    For j = i + 1 To n

    If a(i) < a(j) Then

    c = a(i)

    a(i) = a(j)

    a(j) = c

    End If

    Next

Next

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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！