Erreur : Libo ne reproduit pas
Et msgbox STR(nb) & " occurences à 1" serait plus adapté... ;) > From: [email protected] > To: [email protected] > 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 à [email protected] 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 à [email protected] 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
