Come convertire Digit di Word in Visual Basic 6.0

Conversione di cifre a parole possono sembrare contro intuitivo , ma in realtà tutte le lettere , numeri e segni di punteggiatura vengono memorizzate come numeri dal computer internamente. Ciò significa che è possibile convertire i numeri normali come " 41" nei loro equivalenti lettere ( 41 è il numero utilizzato per memorizzare la lettera "A" ) . Visual Basic 6 offre una semplice funzione " Chr " per convertire i numeri ai loro equivalenti lettera , che lo rende facile per elaborare liste di numeri in parole. Istruzioni
1

Prendere la serie di numeri si è dato , e disporre quindi in un array . Per esempio se avete i numeri 66 , 111, 123 , 125, 101 , 114, 0 , 42 , 101, 123 , 111, 103 , allora devi scrivere nella parte superiore del vostro funzione di conversione :

Dim numeri () As Variant
numeri

= Array ( 66 , 111 , 123 , 125 , 101 , 114 , 0 , 42 , 101 , 123 , 111 , 103 ) economici 2

Copia e incollare il seguente codice dopo il codice qui sopra per creare una nuova stringa :

Dim secretMessage as String = " "

For i = 0 To numbers.Count

secretMessage = secretMessage & Chr ( numeri ( i) ) per

Successivo
3

Copia e incolla il seguente codice in una funzione di evento per vedere il messaggio segreto " Visual Basic & rdquo , pop up :

MsgBox secretMessage