[fr-users] [Basic] Bug Rnd

Bonsoir

Les fonctions Rnd, Random, ou quel que soit leur nom renvoient normalement un nombre supérieur ou 
égal à 0 et strictement inférieur à 1.
L'aide LibO (comme OOo) précise :

Fonction Rnd [Exécution]
Renvoie un nombre aléatoire entre 0 et 1..../...
La fonction Rnd renvoie uniquement des valeurs comprises
entre 0 et 1. 


Ce qui n'est pas très clair concernant 0 et totalement faux concernant 1 :

Sub TestRnd
Dim i As Long, nb As Long
    For i = 1 To 1000000
        if rnd() = 1 Then nb = nb + 1
    Next i
    msgbox STR(i) & " occurences à 1"
End Sub

Testé en 3.4.2.
La fréquence d'apparition de 1 est hallucinatoire...

Le bug est connu et déjà référencé sur Bugzilla : 
http://openoffice.org/bugzilla/show_bug.cgi?id=116920

Bonne soirée.

NB : le forum où il n'est pas de bon ton d'aller y consacre deux posts ce jour suite à une remontée 
d'utilisateur
                                          
-- 
Envoyez un mail à users+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés