Расположить четные элементы последовательности в порядке возрастания

Sub Sort()
Dim A(0 To 1) As Double
Randomize
 For i = 1 To 25
 A(i) = Rnd()
      n1 = LBound(A, 1)
      n2 = UBound(A, 1)
      For i = n1 To n2 - 1
           For j = n1 + 1 To n2
                If (i Mod 2) = 0 And (j Mod 2) = 0 And (A(i) > A(j)) Then
                   Tmp = A(i)
                   A(i) = A(j)
                   A(j) = Tmp
                End If
           Next j
      Next i
      MsgBox (A(1) & A(2) & A(3))
End Sub

Sub Sort()
    Dim A(1 To 25) As Integer
    Dim i As Integer, j As Integer, n1 As Integer, n2 As Integer, tmp As Integer, s As String
    
    Randomize
    
    For i = 1 To 25
        A(i) = Int(Rnd() * 100)
    Next
    
    n1 = LBound(A)
    n2 = UBound(A)
    For i = n1 To n2 - 1
        For j = i + 1 To n2
            If (A(i) Mod 2) = 0 And (A(j) Mod 2) = 0 And (A(i) > A(j)) Then
                tmp = A(i)
                A(i) = A(j)
                A(j) = tmp
            End If
        Next j
    Next i
    
    s = ""
    For i = n1 To n2
        s = s & A(i) & "; "
    Next
    
    MsgBox s
End Sub

Sub Sort()
    Dim A(1 To 25) As Double, tmp As Double
    Dim i As Integer, j As Integer, n1 As Integer, n2 As Integer, s As String
    
    Randomize
    
    n1 = LBound(A)
    n2 = UBound(A)
    
    For i = 1 To 25
        A(i) = Rnd()
    Next
    
    For i = n1 To n2 - 1
        For j = i + 1 To n2
            If (i Mod 2) = 0 And (j Mod 2) = 0 And (A(i) > A(j)) Then
                tmp = A(i)
                A(i) = A(j)
                A(j) = tmp
            End If
        Next j
    Next i
    
    s = ""
    For i = n1 To n2
        s = s & Format(A(i), "0.0000") & "; "
    Next
    
    MsgBox s
End Sub

Sub SortEven(X() as integer)
      n1%=Lbound(X,1)
      n2%=Ubound(X,1)
      For i%=n1% to n2%-1
           For j%=i%+1 to n2%
                If (X(i%) mod 2)=0 And _
                   (X(j%) mod 2)=0 And _
                   (X(i%) > X(j%)) Then
                   tmp%=X(i%)
                   X(i%)=X(j%)
                   X(j%)=tmp%
                End if
            Next j%
      Next i%
End Sub

Sub Sort()
    Dim A(1 To 25) As Integer
    Dim i As Integer, j As Integer, n1 As Integer, n2 As Integer, tmp As Integer, s As String
    
    Randomize
    
    For i = 1 To 25
        A(i) = Int(Rnd() * 100)
    Next
    
    n1 = LBound(A)
    n2 = UBound(A)
    For i = n1 To n2 - 1
        For j = i + 1 To n2
            If (A(i) Mod 2) = 0 And (A(j) Mod 2) = 0 And (A(i) > A(j)) Then
                tmp = A(i)
                A(i) = A(j)
                A(j) = tmp
            End If
        Next j
    Next i
    
    s = ""
    For i = 2 To n2 Step 2
        s = s & A(i) & "; "
    Next
    
    MsgBox "элементы с четным индексом после сортировки:" & s
End Sub

Sub Sort()
    Dim A(1 To 25) As Integer, s As String, s1 as String, s2 as String
    Dim i As Integer, j As Integer, n1 As Integer, n2 As Integer, tmp As Integer
    
    Randomize
    
    For i = 1 To 25
        A(i) = Int(Rnd() * 100)
    Next
    
    s1 = ""
    For i = n1 To n2
        s1 = s1 & Format(A(i), "0.000") & "; "
    Next
    
    n1 = LBound(A)
    n2 = UBound(A)
    For i = n1 To n2 - 1
        For j = i + 1 To n2
            If (A(i) Mod 2) = 0 And (A(j) Mod 2) = 0 And (A(i) > A(j)) Then
                tmp = A(i)
                A(i) = A(j)
                A(j) = tmp
            End If
        Next j
    Next i
    
    s2 = ""
    For i = n1 To n2
        s2 = s2 & Format(A(i), "0.000") & "; "
    Next
    
    s = ""
    For i = 2 To n2 Step 2
        s = s & Format(A(i), "0.000") & "; "
    Next
    
    MsgBox "массив случайных элементов" & s1 & vbCrLf & _
        "массив, где элементы с четными индексами отсортированы" & s2 & _
        vbCrLf & "элементы с четным индексом (без нечетных):" & s
End Sub

Sub Sort()
    Dim A(1 To 25) As Integer, s As String, s1 As String, s2 As String
    Dim i As Integer, j As Integer, n1 As Integer, n2 As Integer, tmp As Integer
    
    Randomize
    
    n1 = LBound(A)
    n2 = UBound(A)
    
    For i = n1 To n2
        A(i) = Int(Rnd() * 100)
    Next
    
    s1 = ""
    For i = n1 To n2
        s1 = s1 & Format(A(i), "0.000") & "; "
    Next
    
    For i = n1 To n2 - 1
        For j = i + 1 To n2
            If (A(i) Mod 2) = 0 And (A(j) Mod 2) = 0 And (A(i) > A(j)) Then
                tmp = A(i)
                A(i) = A(j)
                A(j) = tmp
            End If
        Next j
    Next i
    
    s2 = ""
    For i = n1 To n2
        s2 = s2 & Format(A(i), "0.000") & "; "
    Next
    
    s = ""
    For i = 2 To n2 Step 2
        s = s & Format(A(i), "0.000") & "; "
    Next
    
    MsgBox "массив случайных элементов" & s1 & vbCrLf & vbCrLf & _
        "массив, где элементы с четными индексами отсортированы" & s2 & _
        vbCrLf & vbCrLf & "элементы с четным индексом (без нечетных):" & s
End Sub