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

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

У меня есть массив, он объявлен в модуле и определён( т.е размерность =14 и каждый элемент имеет значение), вопрос в следующем, возможно ли удалить последний элемент массива, не прибегая к созданию новых массивов или тому подобное, просто из этого массива удалить последний элемент, я делал попытку, но в итоге он выдаёт ошибку сразу

        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

Решение задачи: «Удаление последнего элемента из массива»

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

                            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
                        

Оцени полезность:

5 голосов , оценка 4.4 из 5

Похожие ответы