Convertendo dígitos a palavras podem parecer contra-intuitivo , mas na verdade todas as letras , números e sinais de pontuação são armazenados como números pelo computador internamente. Isso significa que você pode converter números normais, como " 41" em seus equivalentes carta (41 é o número usado para armazenar a letra " A"). Visual Basic 6 oferece uma função simples " Chr " para converter os números para seus equivalentes da letra, o que o torna fácil de processar listas de números em palavras. Instruções
1

Tome a série de números que se recebe, e organizar , em seguida, em uma matriz . Por exemplo, se você tem os números 66 , 111, 123, 125 , 101, 114, 0 , 42, 101 , 123, 111, 103 , então você escreveria no topo da sua função de conversão :

Dim números ( ) As Variant

números = Array (66 , 111, 123, 125 , 101, 114, 0 , 42, 101 , 123, 111, 103)
2

Copiar e cole o seguinte código após o código acima para criar uma nova seqüência :

Dim secretMessage como string = " "

For i = 0 To numbers.Count

secretMessage = secretMessage & Chr ( números (i) )

Próxima
3

Copie e cole o seguinte código em uma função de evento para ver a mensagem secreta "Visual Basic & rdquo ; aparecer :

MsgBox secretMessage