Const iteraciones = 1000000
Randomize Timer
Dim As Uinteger cara = 0, dormir = 0

For i As Uinteger = 1 To iteraciones
    Dim As integer lanza_moneda = Int(Rnd * 2) + 1
    dormir += 1
    if lanza_moneda = 1 then cara += 1 else dormir += 1
Next i

Print Using "Wakings over #####,### repetitions = #####,###"; iteraciones ; dormir
Print using "Percentage probability of heads on waking = ###.######%"; (cara/dormir*100)'; "%"
Sleep