КАК упорядочить? - VB

Формулировка задачи:

Как провести заданное упорядочение каждого второго значения X по убыванию ,а остальные по возростанию?

Private Sub Command1_Click()
Dim A(1 To 100, 1 To 100) As Double
Dim x(1 To 100)
Dim i, j As Integer
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To n
A(i, j) = (1.4 * i + 2.2) ^ 2 / Sqr(i + 2 * j)
Picture1.Print Format(A(i, j), "#0.##"),
Next j
Picture1.Print
Next i
For j = 1 To n
s = 0
For i = 1 To n
p = Cos(A(i, j) * A(i, n + 1 - j))
s = s + p
Next i
x(j) = s
Picture2.Print Format(x(j), "#0.##")
Next j

End Sub
 
Private Sub Command2_Click()
Picture1.Cls
Picture2.Cls
End Sub

Решение задачи: «КАК упорядочить?»

textual
                            Листинг программы 
                        

                            Sub Sort(ByRef a() As Double)
Dim q As Integer, i As Integer, n As Integer, tmp As Double
    n = UBound(a, 1)
    Do
       q = 0
       For i = 1 To n - 2
          If i Mod 2 = 0 Then
                If a(i + 2) > a(i) Then
                   q = -1
                   tmp = a(i)
                   a(i) = a(i + 2)
                   a(i + 2) = tmp
                End If
            Else
                If a(i + 2) < a(i) Then
                   q = -1
                   tmp = a(i)
                   a(i) = a(i + 2)
                   a(i + 2) = tmp
                End If
            End If
       Next i
       If q = 0 Then Exit Do
    Loop
End Sub
                        