Bridge Points Count Probabilities (original error found)

[TempodiBasic]

Hi guys
in what manner do you combine the combination https://en.wikipedia.org/wiki/Combination#Example_of_counting_combinations (that has its mathematical weight) with the empiric simulation and probabilities on this limited set of hands?

as you can see at Example of counting combinations paragraph of the above  wikipage the question of probabilities of a score in 13 cards in single hand is the same for each score because each card is a single indipendent event with no duplication (you cannot have the same card twice in the same hand of the game of bridge)....

52!/ 13!*39!  = 52*51*50*.....41*40* 39!/13! * 39! =  52*51*50*.....41*40 / 13!

and here the code starts to configure a probability calculator of statistical combination  of indipendent events (13 cards of an hand) of a set of events (52 cards to 4 players)

Code: QB64: [Select]

1. _TITLE "calcolo di eventi indipendenti autoesclusivi"
2. SCREEN 0
3. CLS , 3
4. COLOR 4, 3
5. PRINT "We must know how much is the chance of an indipendent event in combining with other indipendent events of the same nature"
6. INPUT "Please enter the total number of cases (52 cards?) ", NumTotalPossible%
7. INPUT "Please enter the total number of cases to be to get goal (how cards need to have event?)", NumCasesUseful%
8. DIM chance AS _UNSIGNED _INTEGER64, chance2 AS _UNSIGNED _INTEGER64
9. chance = 1
10. chance2 = 1
11. FOR i% = 0 TO NumCasesUseful% - 1 STEP 1
12.     chance = chance * (NumTotalPossible% - i%)
13.     chance2 = chance2 * (i% + 1)
14.     LOCATE , 2
15.     PRINT i%, chance, chance2
16.     _DELAY .1
17. NEXT
18. LOCATE , 2
19. PRINT "press a key to continue"
20. SLEEP
21. CLS
22. LOCATE 16, 1
23. PRINT " For total events "; NumTotalPossible%; " and Useful events "; NumCasesUseful%
24. PRINT " you have number of events:", chance
25. PRINT "chance to get this combination:", chance / chance2
26. chance = chance / chance2
27. FOR i% = 1 TO NumCasesUseful% + 1 STEP 1
28.     IF chance < 0 THEN chance = chance * 10
29. NEXT
30. PRINT "this means that you must put "; STR$(i%); "zero after 0. to write this number"
31. PRINT "like here..."
32. PRINT "0."; STRING$(i%, "0"); "1"
33. END
34.  

In the statistical world the events are infinite and each single event is equal in amount of presence as we talk about indipendent events.
 In what manner can your probabilities, got on a large (at our eyes) but little champion of events,  be useful in the choice of strategy of the game?
Thanks for feedback