Вывести на печать все числа, включительно до нуля - VBA

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

1 задание.Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа, включительно до нуля. 2 задание. Каждый солнечный день улитка, сидящая на дереве, подни¬мается вверх на 2 см, а каждый пасмурный день опускается вниз на 1 см. В начале наблюдения улитка находилась в A см от земли на B-метровом дереве. Имеется 30-элементный мас¬сив, содержащий сведения о том, был ли соответствующий день наблюдения пасмурным или солнечным. Написать про¬грамму, определяющую местоположение улитки к концу 30-го дня наблюдения. 3 задание.Даны две последовательности a1 []a2 [] ... [] аn и b1 [] b2 [] ... [] bm. Образовать из них новую последовательность чисел так, чтобы она тоже была неубывающей. Дополни¬тельный массив не использовать. 4 задание.Дана действительная квадратная матрица порядка N (N — не¬четное), все элементы которой различны. Найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять его местами с элементом, стоящим на пересечении этих диагоналей.

Решение задачи: «Вывести на печать все числа, включительно до нуля»

textual
                            Листинг программы 
                        
 
                            
                        
Public i As Integer, j As Integer, n As Integer
Public Sub Work1()
Dim a() As Single, answer As Variant
n = InputBox("kol")
ReDim a(1 To n) As Single
answer = ""
For i = 1 To n
a(i) = Int((10) * Rnd - 5)
If a(i) <> 0 Then answer = answer & a(i) & Space(3) Else Exit For
Next i
MsgBox answer
End Sub
 
 
 
Public Sub Work2()
Dim a As Single, b As Single, C(1 To 30) As Single
Randomize
a = InputBox("A")
b = InputBox("B")
For i = 1 To 30
C(i) = Int(2 * Rnd)
Next i
For i = 1 To 30
If a < (b - 2) And a > 0 Then
If C(i) = 1 Then a = a + 2
If C(i) = 0 Then a = a - 1
End If
Next i
MsgBox a
End Sub
 
 
Public Sub Work4()
Dim a() As Single, max As Single, maxI As Byte, maxJ As Byte, temp
Randomize
n = InputBox("N")
ReDim a(1 To n, 1 To n) As Single
For i = 1 To n
For j = 1 To n
a(i, j) = (100) * Rnd - 50
Next j
Next i
max = a(1, 1)
maxI = 1
maxJ = 1
For i = 1 To n
If a(i, i) > max Then max = a(i, i): maxI = i: maxJ = i
If a(i, n - i + 1) > max Then max = a(i, i): maxI = i: maxJ = n - i + 1
Next i
temp = a(n / 2, n / 2)
a(n / 2, n / 2) = a(maxI, maxJ)
a(maxI, maxJ) = temp
End Sub