RE: [fr-users] [Basic] Bug Rnd

Erreur :

Libo ne reproduit pas

Et      msgbox STR(nb) & " occurences à 1" serait plus adapté...

;)


> From: patvedel@hotmail.com
> To: users@fr.libreoffice.org
> Subject: [fr-users] [Basic] Bug Rnd
> Date: Mon, 5 Sep 2011 18:17:58 +0000
>
>
> 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
                                          
-- 
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