Leren programmeren: hoger/lager

We laten het programma een getal tussen 1 en 10 raden, vragen een poging aan de gebruiker en vergelijken dat getal met het te raden getal.

We voorzien een knop om (een nieuwe ronde van) het spel te starten, en een label om het resultaat te tonen. De code ziet er zo uit:

Private Sub cmdStartspel_Click()
Randomize
Dim teraden As Integer
teraden = Rnd * 10 + 1
Dim geraden As Integer
geraden = InputBox("Geef een getal tussen 1 en 10")
If geraden = teraden Then lblResultaat.Caption = "Geraden! Het was " & teraden
If geraden < teraden Then lblResultaat.Caption = "Hoger! Het was " & teraden
If geraden > teraden Then lblResultaat.Caption = "Lager! Het was " & teraden
End Sub

Zie ook: deze uitwerking in VB Script.