Sub Zad2()
Dim ujemne As Integer
Dim dodatnie As Integer
Dim zero As Integer
Dim liczba As Integer

ujemne = 0
dodatnie = 0
Do
liczba = InputBox("Wprowadz liczbę")
If liczba > 0 Then
dodatnie = dodatnie + 1
ElseIf liczba < 0 Then
ujemne = ujemne + 1
End If
Loop While liczba <> 0
'<> to oznacza, że będzie się zapętlać dopóki się wprowadz liczbę różną'
'od zera, jeśli ktoś wprowadzi 0, to się zakończy'
MsgBox ("Liczby dodatnie =" & dodatnie)
MsgBox ("Liczby ujemne =" & ujemne)
'& to znaczy, że pokazuje wynik zliczania'

End Sub