Zadanie o progi podatkowe:

sub podatek()

dim dochod, prog1, proc1, proc2 podatek as Double

dochod= Sheets("arkusz1"), Cells(1,1) Value

prog1= Sheets("arkusz1"), Cells(2,1) Value

proc1= Sheets("arkusz1"), Cells(3,1) Value

proc2= Sheets("arkusz1"), Cells(4,1) Value

If dochod< prog1

then podatek= dochod* proc1

else

podatek= prog1* proc1 +( dochod- prog1)* proc2

endif

Sheets("arkusz1"), Cells(5,1) Value= podatek

endsub

Napisz program, który zliczy wszystkie liczby dodatnie, które pojawiają się przed pierwszą liczbą ujemną

sub gg()

dim i as integer

i=1

Do while Sheets("arkusz1"), Cells(i,1) Value >=0

i=i+1

loop

msgbox "liczba= " i-1

endsub

Napisz program, który zliczy wszystkie liczby dodatnie, które pojawiają się przed pierwszą liczbą ujemną

sub gg()

dim i as integer

i=1

Do while Sheets("arkusz1"), Cells(i,1) Value >=0

i=i+1

loop

msgbox "liczba= " i-1

endsub

I ten co miałem na egzaminie:

W pierwszych 10 wierszach pierwszej kolumny wpisano liczby rzeczywiste. Oblicz sumę i ilość liczb mniejszych niż 3.

sub xx()

dim suma, ilosc as Variant

suma=0

ilosc= 0

For i=1 to 10

If Sheets("arkusz1"), Cells(i,1) Value< 3

then suma= suma+ Sheets("arkusz1"), Cells(i,1) Value

endif

If Sheets("arkusz1"), Cells(i,1) Value< 3

then ilosc=ilosc+1

endif

Next

Msgbox suma, ilosc

endsub