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

Le 05/09/2011 20:22, VEDEL Patrice a écrit :
> 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                         
Testé sous Ubuntu 10.04 et LO 3.3.3 : aucune occurrence [occurrence avec 
2 c et 2 r] à 1 et aucune occurrence à 0 non plus, même avec 10 millions 
d'occurrences. Et accessoirement, pourquoi utiliser la fonction STR ? On 
obtient le même résultat sans.

--
R. L.


--
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