|
 |
 |
 |
| |
 Lettre aléatoire
Public Function LettreAleatoire(MIN As String, Max As String) As String
Randomize
LettreAleatoire = Chr$(Int((Asc(Max) - Asc(MIN) + 1) * Rnd + Asc(MIN)))
End Function
Il suffit de faire :
msgbox LettreAleatoire ("A","N")
ce qui permet d'afficher une lettre aléatoire entre A et N.
|
|
 |
 |
 |
|