Написать операторы, которые посчитают и просуммируют четные числа на интервале от 45 до 3.

Sub z()
For i = 44 To 3 step -2
        k=k+1
        s=s+i
Next i
Print k;"; ";s
End Sub