Dans une grille de 100 labels (10X10)numérotées de
0 à 100 > Ca fait 101 labels

Tu peut utiliser la fonction Rnd()
Dans ta boucle
For xi = 0 to 99
TonLabel.Caption = Chr(Rnd("ValeurMaxAscii"))
next xi
Par contre tu doit vérifier que la valeur renvoyée par le Rnd() est bien comprise dans l'intervalle ASCII pour utiliser la fonction Chr()
Rnd, fonction
Renvoie une valeur de type Single contenant un nombre aléatoire.
Syntaxe
Rnd[(number)]
L'
argument number est facultatif. Il peut contenir une valeur de type
Single ou toute
expression numérique valide.
Valeurs renvoyées
| Argument number |
Nombre généré par la fonction Rnd |
| Inférieur à zéro |
Même nombre à chaque fois, en utilisant l'argument number comme
valeur initiale. |
| Supérieur à zéro |
Nombre aléatoire suivant dans la série. |
| Égal à zéro |
Dernier nombre aléatoire généré. |
| Omis |
Nombre aléatoire suivant dans la série. |
Remarques
La fonction Rnd renvoie une valeur inférieure à 1 mais supérieure ou égale à zéro.
La valeur de l'argument number définit le mode de génération adopté par Rnd :
Quelle que soit la valeur initiale indiquée, la même série de nombres aléatoires est générée à chaque appel de la fonction Rnd, car cette dernière réutilise le nombre aléatoire précédent comme valeur initiale pour le calcul du nombre suivant.
Avant d'appeler Rnd, utilisez l'instruction Randomize sans argument pour initialiser le générateur de nombres aléatoires à partir d'une valeur initiale tirée de l'horloge système.
Pour générer des entiers aléatoires dans une plage donnée, utilisez la formule ci-dessous :
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Dans cette formule, upperbound désigne la limite supérieure de la plage et lowerbound la limite inférieure.
Note Pour obtenir plusieurs fois les mêmes séries de nombres aléatoires, appelez Rnd avec un argument négatif juste avant d'utiliser Randomize avec un argument numérique. L'utilisation de Randomize en répétant pour l'argument number la valeur précédente ne permet pas de reproduire une série de nombres.