Simple 50 line app to generate 1000 numbers for each of the 3 numbers in the Pick 3. Which ever number, 0-9, is picked the most is set as one of the digits.
#include <GuiConstants.au3>
#include <Array.au3>
HotKeySet("{ESC}", "_exit")
Global $firstPick, $secondPick, $thirdPick, $arr[10]
$gui = GUICreate("Pick 3 Picker", 300, 200)
$goBtn = GUICtrlCreateButton(" Generate ", 100, 25, 100)
$first = GUICtrlCreateLabel("1 - ", 25, 80)
$second = GUICtrlCreateLabel("2 - ", 25, 120)
$third = GUICtrlCreateLabel("3 - ", 25, 160)
GUISetState(@SW_SHOW, $gui)
While 1
$gMsg = GUIGetMsg()
Switch $gMsg
Case $GUI_EVENT_CLOSE
_exit()
Case $goBtn
$firstPick = genDigits()
$secondPick = genDigits()
$thirdPick = genDigits()
_updateCtrls()
EndSwitch
WEnd
Func genDigits()
For $x = 1 To 1000 Step 1
$temp = Random(0, 9, 1)
$arr[$temp] = $arr[$temp] + 1
Next
$y = _ArrayMaxIndex($arr)
Global $arr[10]
Return $y
EndFunc
Func _updateCtrls()
GUICtrlSetData($first, "1 - " & $firstPick)
GUICtrlSetData($second, "2 - " & $secondPick)
GUICtrlSetData($third, "3 - " & $thirdPick)
EndFunc
Func _exit()
exit
EndFunc