Задача по VBA

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

Помогите пожалуйста с решением задачи.
Условие:
Задана последовательность чисел a, b, c, d. Определить количество (Х) положительных и (Y) отрицательных чисел, содержащихся в этой последовательности.Заранее спасибо.

Решение задачи: «Задача по VBA»

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

                            x=<font color="darkblue"><b>0</b></font>
y=<font color="darkblue"><b>0</b></font>
<font color="blue">if</font> a><font color="darkblue"><b>0</b></font> <font color="blue">then</font> x=x+<font color="darkblue"><b>1</b></font> <font color="blue">else</font> y=y+<font color="darkblue"><b>1</b></font>
<font color="blue">if</font> b><font color="darkblue"><b>0</b></font> <font color="blue">then</font> x=x+<font color="darkblue"><b>1</b></font> <font color="blue">else</font> y=y+<font color="darkblue"><b>1</b></font>
<font color="blue">if</font> c><font color="darkblue"><b>0</b></font> <font color="blue">then</font> x=x+<font color="darkblue"><b>1</b></font> <font color="blue">else</font> y=y+<font color="darkblue"><b>1</b></font>
<font color="blue">if</font> d><font color="darkblue"><b>0</b></font> <font color="blue">then</font> x=x+<font color="darkblue"><b>1</b></font> <font color="blue">else</font> y=y+<font color="darkblue"><b>1</b></font>
<font color="blue">if</font> a=<font color="darkblue"><b>0</b></font> <font color="blue">then</font> y=y-<font color="darkblue"><b>1</b></font>
<font color="blue">if</font> b=<font color="darkblue"><b>0</b></font> <font color="blue">then</font> y=y-<font color="darkblue"><b>1</b></font>
<font color="blue">if</font> c=<font color="darkblue"><b>0</b></font> <font color="blue">then</font> y=y-<font color="darkblue"><b>1</b></font>
<font color="blue">if</font> d=<font color="darkblue"><b>0</b></font> <font color="blue">then</font> y=y-<font color="darkblue"><b>1</b></font>

debug.<font color="blue">print</font> x
debug.<font color="blue">print</font> y

                        