Experimenting with Rnd

Private Sub spin(amount As Integer, result As Integer)

result = Int(amount * Rnd(1))

End Sub

Private Sub Form_Click()

Call experiment

End Sub

Private Sub experiment()

Dim roll As Integer

Dim outcome0 As String

Dim outcome1 As String

Dim outcome2 As String

Dim outcome3 As String

Dim reps As Integer

Dim result As String

reps = 0

outcome0 = "0: "

outcome1 = "1: "

outcome2 = "2: "

outcome3 = "3: "

Do While reps < 100

Call spin(4, roll)

If roll = 0 Then

outcome0 = outcome0 & "*"

ElseIf roll = 1 Then

outcome1 = outcome1 & "*"

ElseIf roll = 2 Then

outcome2 = outcome2 & "*"

Else

outcome3 = outcome3 & "*"

End If

reps = reps + 1

Loop

lblBar0.Caption = outcome0

lblBar1.Caption = outcome1

lblBar2.Caption = outcome2

lblBar3.Caption = outcome3

End Sub

Previous slide

Next slide

Back to first slide

View graphic version