|
Conversion de chiffres à mots peuvent sembler contre-intuitif , mais en fait toutes les lettres, chiffres et signes de ponctuation sont stockées comme des nombres par l'ordinateur interne. Cela signifie que vous pouvez convertir des nombres normaux comme "41" dans leurs équivalents de lettres ( 41 est le numéro utilisé pour stocker la lettre "A") . Visual Basic 6 fournit une fonction simple " CHR" pour convertir les nombres en leurs équivalents de lettres , ce qui le rend facile à traiter des listes de nombres en mots. Instructions
1 Prenez la série de chiffres qu'on vous donne, et d'organiser ensuite dans un tableau. Par exemple, si vous avez les numéros 66 , 111 , 123, 125 , 101 , 114, 0 , 42, 101 , 123, 111 , 103 , alors vous feriez écrire au sommet de votre fonction de conversion :
Dim numéros () que
numéros de Variant = Array (66 , 111, 123, 125 , 101 , 114, 0 , 42, 101 , 123, 111 , 103)
2 copie et coller le code suivant après le code ci-dessus pour créer une nouvelle chaîne :
Dim secretMessage comme string = ""
For i = 0 To numbers.Count
secretMessage = secretMessage & Chr ( numéros ( i))
Suivant
3 Copiez et collez le code suivant dans une fonction d'événements pour voir le message secret " Visual Basic & rdquo ; pop up :
MsgBox secretMessage
|
