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