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

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

A=50 'cm
B=15 'm
B=B*100
for i=1 to 30
  if day(i) = "солнечный" then
    A=A+2
    if A>B then A=B
  else
    A=A-1
    if A<0 then A=0
  end if
next i
msgbox A