All pastes #281540 Raw Edit

Mine

public text v1 · immutable
#281540 ·published 2006-12-16 21:59 UTC
rendered paste body
Private Sub Command1_Click()
For i = 1 To 1000000
a = Int(Rnd * 7) + 5
b = Int(Rnd * 7) + 5
c = Int(Rnd * 7) + 5
If a + b + c > 23 Then
s = s + 1
End If
Next i
Print "tn ="; s / 1000000 * 100; "%"
End Sub