Programmeren in BASIC/Oefeningen 3/Oplossing

Hieronder zie je een mogelijke oplossing, maar alles wat werkt en geen al te grote omwegen maakt is goed.

CLS
Dim sngHoeLang as single
input "Hoe lang breng je dagelijks op wikibooks door", sngHoeLang
' Ik heb in dit voorbeeldje gedaan alsof ik 2 uur per dag op wikibooks doorbreng
select case x
case is < 2
 print HoeLang; " uren, dan zit ik er langer op"
' Als het over een vast getal gaat moet je geen is en geen = gebruiken
case 2 
 print HoeLang; " uren, dat is even lang als ik"
' Als laatste pak je best altijd case else, dat wil zeggen dat aan geen van voorgaande voorwaarden is voldaan
case else
 print HoeLang; " uren, dat is langer als ik"
end select
end