|
To jde samozřejmě velmi jednoduše (i když postup popisovaný výše je buď zbytečně složitý, nebo popsaný zbytečně složitě). Co třeba toto: - 4 má 50% pravděpodobnost - 3 má 20% pravděpodobnost - 2 má 30% pravděpodobnost
Dim cisla() As Integer = { 4, 4, 4, 4, 4, 3, 3, 2, 2, 2 }
Dim r As New Random()
Public Function GetRandomNumber() As Integer
Return cisla(r.Next(cisla.Length))
End Sub
Tedy samozřejmě pokud předpokládáme, že r.Next má pro každou hodnotu stejnou pravděpodobnost (což by tak dle použitého algoritmu být mělo).
|