VBA excel

[Demear]

Задан одномерный массив. Все его элементы, не равные нулю, переписать (сохраняя их порядок) в начало массива, а нулевые элементы – в конец массива. Новый массив вывести

[Aleksandr H.]

Вспомогательный массив использовать?

[Demear]

Сообщение от Aleksandr H.

Вспомогательный массив использовать?

Можете показать решение с ним и без?

[Aleksandr H.]

Сообщение от Demear

Можете показать решение с ним

Sub v1()
    Dim ar(10) As Integer, ar1() As Integer
    Dim i As Integer, ptr As Byte
    Dim s As String
    ReDim ar1(UBound(ar))
    For i = LBound(ar) To UBound(ar)
        ar(i) = Int(19 * Rnd) - 10
        s = s & CStr(ar(i)) + ", "
    Next i
    ptr = LBound(ar)
    For i = LBound(ar) To UBound(ar)
        If ar(i) <> 0 Then
            ar1(ptr) = ar(i)
            ptr = ptr + 1
        End If
    Next i
    
    For i = LBound(ar1) To UBound(ar1)
        If i < ptr Then
            ar(i) = ar1(i)
        Else
            ar(i) = 0
        End If
    Next i
    s = s & vbNewLine
    For i = LBound(ar) To UBound(ar)
        s = s + CStr(ar(i)) + ", "
    Next i
    MsgBox s
End Sub

и без

Sub v2()
    Dim ar(10) As Integer
    Dim i As Integer, j As Integer, k As Integer
    Dim s As String
    Randomize
    s = ""
    For i = LBound(ar) To UBound(ar)
        ar(i) = Int(19 * Rnd) - 10
          s = s + CStr(ar(i)) + ",   "
    Next i
    i = LBound(ar)
    Do While i <= UBound(ar)
        If ar(i) = 0 Then
            For j = i To UBound(ar) - 1
                k = ar(j)
                ar(j) = ar(j + 1)
                ar(j + 1) = k
            Next j
        End If
        i = i + 1
    Loop
    s = s + Chr(13)
    For i = LBound(ar) To UBound(ar)
        s = s + CStr(ar(i)) + ",   "
    Next i
    MsgBox s
End Sub