Удаление последнего элемента из массива

        Dim n, o As Integer
        n = 0
        For i = 0 To UBound(K) - 1
                ReDim Preserve K(o)
                K(n) = K(i)
                n = n + 1
        Next
    End Sub

Sub propusk()
            Dim q As Integer
            For j = 0 To UBound(K) - 1
                l = F(j)
                F(j) = F(j + 1)
                F(j + 1) = l
            Next j
            For j = 0 To UBound(K) - 1
                q = K(j)
                K(j) = K(j + 1)
                K(j + 1) = q
        Next j
            For i = 0 To UBound(K)
                If K(i) = 0 Then
                    F(i).Show()
                    Exit For
                End If
            Next i
    End Sub

 Sub propusk()
        Dim q As Integer
        If K(0) = 1 Then
            G = G + 1
            For j = 0 To UBound(K) - 1
                l = F(j)
                F(j) = F(j + 1)
                F(j + 1) = l
            Next j
            For j = 0 To UBound(K) - 1
                q = K(j)
                K(j) = K(j + 1)
                K(j + 1) = q
            Next j
        Else
            For j = 0 To UBound(K) - (1 + G)
                l = F(j)
                F(j) = F(j + 1)
                F(j + 1) = l
            Next
            For j = 0 To UBound(K) - (1 + G)
                q = K(j)
                K(j) = K(j + 1)
                K(j + 1) = q
            Next j
        End If
        For i = 0 To UBound(K)
            If K(i) = 0 Then
                F(i).Show()
                Exit For
            End If
        Next i
    End Sub

       n%=Ubound(A,1)-1
       Redim Preserve A(1 to n%) As Integer

Sub PopBack(Arr() As Integer)
    On Error Resume Next
    If (Not Arr) = -1 Then Exit Sub
    If UBound(Arr) = 0 Then Erase Arr Else ReDim Preserve Arr(UBound(Arr) - 1)
End Sub