Задан массив, содержащий несколько нулевых элементов. Сжать его, выбросив эти элементы

Private Sub Command1_Click()
Dim i&, j&
'Создание и вывод массива
ReDim a(0 To 9) As Long
Print "Массив до:"
For i = 0 To 9
    a(i) = -2 + Int(Rnd() * 5)
    Print a(i);
Next
'удаление нулевых
For i = 0 To 9
    If a(i) <> 0 Then a(j) = a(i): j = j + 1
Next
ReDim Preserve a(j - 1)
'вывод массива
Print vbLf; "Массив после:"
For i = 0 To j - 1
    Print a(i);
Next
Print
End Sub

Private Sub Command1_Click()
Dim i&, j&
'Ñîçäàíèå è âûâîä ìàññèâà
ReDim a(0 To 9) As Long
Print "Ìàññèâ äî:"
For i = 0 To 9
 a(i) = InputBox("Ââåäèòå ÷èñëà")
 Print a(i);
Next
'óäàëåíèå íóëåâûõ
For i = 0 To 9
    If a(i) <> 0 Then a(j) = a(i): j = j + 1
Next
ReDim Preserve a(j - 1)
'âûâîä ìàññèâà
Print vbLf; "Ìàññèâ ïîñëå:"
For i = 0 To j - 1
    Print a(i);
Next
Print
End Sub

7:  a(i) = InputBox("a(" & i & ") = ") 'и вводите числа ПО ОДНОМУ!

Private Sub Command1_Click()
Dim i&, j&
'создание и вывод массива
ReDim a(0 To 9) As Long
Randomize
Print vbLf; "Массив до:"
For i = 0 To 9
a(i) = Rnd * 2
  Print a(i);
Next
'замена нулевых значений
ReDim Preserve a(i)
j = Val(InputBox("На какое число будем менять нулевые значения ?", "Ввод данных"))
For i = 0 To 9
If a(i) = 0 Then a(i) = j
Next i
 
 
'Вывод массива
Print vbLf; "Массив после:"
For i = 0 To 9
Print a(i);
Next
Print
End Sub