Monty Hall Simulation

[bplus]

Yeah I just ran a sim again either the First Picker wins or the Switcher wins. If the First Picker wins 1/3 then the Switcher wins 2/3 the time! Man 2/3 the time is a shocker! I thought it only improved odds by 1/6th to 50/50 but no, I was wrong,

Here is my sim that I used to prove to myself:

Code: (Select All)

Option _Explicit
Dim As Long trials, t, i, grandPrize, pick1, doorOpen, doorSwitch, OnePicker, Switcher
trials = 100
For t = 1 To trials
    grandPrize = Int(Rnd * 3) + 1 ' door 1 to 3
    pick1 = Int(Rnd * 3) + 1
    For i = 1 To 3
        If i <> grandPrize And i <> pick1 Then doorOpen = i: Exit For
    Next
    For i = 1 To 3 ' find doorSwitch
        If i <> pick1 And i <> doorOpen Then doorSwitch = i: Exit For
    Next
    If grandPrize = pick1 Then OnePicker = OnePicker + 1
    If grandPrize = doorSwitch Then Switcher = Switcher + 1
Next
Print "One picker wins ="; OnePicker
Print "Switcher wins = "; Switcher