Odpowiedź:
sub PoleProstokata()
dim a as integer
dim b as integer
a=inputbox ("podaj dł. pierwszego boku")
if a <=0 then a=inputbox ("podaj dł. pierwszego boku. dł powinna być większ od zera! ")
b=inputbox ("podaj dł. drugiego boku")
if b<=0 then b=inputbox ("podaj dł. drugiego boku. dł powinna być większ od zera! ")
msgbox "Pole prostokąta wynosi " & a*b
end sub
Wyjaśnienie:
Pisałem z głowy więc jak będzie gdzieś błąd daj znać.
