Leren programmeren: dobbelstenen

In dit programma gooien we tien keer met twee dobbelstenen. We tonen telkens het totaal van de worp, en berekenen op het einde het totaal en het gemiddelde.

Dim som As Integer
Dim dobbelsteen1 As Integer
Dim dobbelsteen2 As Integer
Dim keer As Integer
Dim worp As Integer
Private Sub cmdStart_Click()
For keer = 1 To 10
Randomize
dobbelsteen1 = Rnd * 6 + 1
dobbelsteen2 = Rnd * 6 + 1
worp = dobbelsteen1 + dobbelsteen2
lblResultaat.Caption = lblResultaat.Caption & "worp" & keer & " : " & worp & vbCrLf
som = som + worp
Next keer
lblResultaat.Caption = lblResultaat.Caption & "Het totaal is " & som & vbCrLf
lblResultaat.Caption = lblResultaat.Caption & "Het gemiddelde is " & som / 10
End Sub