Kwartaal berekening

[TrainingVB]

Hoe schrijf een programma dat de 4 kwartalen van een jaar de totale omzet en de totale kosten vraagt. De winst voor 1 kwartaal bedraagt dan via winst = omzet – kosten.
Bereken de totale winst over het volledige jaar en het aantal kwartalen waarin winst werd gemaakt, het aantal kwartalen waarin winst noch verlies werd gemaakt (winst = 0) en het aantal kwartalen waarin verlies werd gemaakt. Ben pas begonnen met VB
Voorbeeld:
Geef de omzet van het kwartaal 1
123455
Geef de kosten voor kwartaal 1
1234555
Geef de omzet van het kwartaal 2
123455
Geef de kosten voor kwartaal 2
1234555
tot en met kwartaal 4
daarna
De totale winst = 000000
Aantal kwartalen winst =000000
Aantal kwartalen winst noch verlies = 0000000
Aantal kwartalen met verlies=000000

 

[That Guy]

uuuuuuuhm... met een computer, toetsenbord, en een VB-versie.

Even serieus, wat bedoel je precies? Zoiets?

dim winst1 as double
dim verlies1 as double
dim kwartaal1 as double

winst1 = 123455
verlies1= 1234555
kwartaal1 = winst1 - verlies1

[COLOR="SeaGreen"]'herhaal voor 3 andere kwartalen[/COLOR]


dim totalewinst as double
totalewinst = kwartaal1 + kwartaal2 + kwartaal3 + kwartaal4




[COLOR="SeaGreen"]'om te kijken welke kwartalen winst hadden, verlies hadden of gelijk stonden:[/COLOR]

if kwartaal1 > 0 then
   msgbox "kwartaal1 had winst!"
else if kwartaal1 = 0 then
   msgbox "kwartaal1 had noch winst noch verlies"
else
   msgbox "kwartaal1 had verlies!"
end if

[COLOR="SeaGreen"]'herhaal voor andere 3 kwartalen?[/COLOR]

ofzo