Cómo convertir de dígitos a Word en Visual Basic 6.0

La conversión de cifras de palabras puede parecer contrario a la intuición, pero en realidad todas las letras, números y puntuacion se almacenan como números por el equipo interno. Eso significa que usted puede convertir los números normales como "41" en sus equivalentes de letras (41 es el número que se utiliza para almacenar la letra "A"). Visual Basic 6 proporciona una simple función de "Crónicas" para convertir los números a sus equivalentes de letras, lo que hace que sea fácil de procesar listas de números en palabras.

Instrucciones

1 Tomar la serie de números que le den, y organizar a continuación en una matriz. Por ejemplo, si tiene los números 66, 111, 123, 125, 101, 114, 0, 42, 101, 123, 111, 103, entonces volvería a escribir en la parte superior de su función de conversión:

números Dim () como variante

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

2 Copia y pega el código siguiente después del código anterior para crear una nueva cadena:

Dim secretMessage como String = ""

Para i = 0 Para numbers.Count

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

Siguiente

3 Copia y pega el siguiente código en una función de evento para ver el mensaje secreto "Visual Basic" pop-up:

MsgBox secretMessage

Consejos y advertencias

• Si desea utilizar toda la gama de caracteres en lugar del estándar de 0 a 255, utilice la función ChrW.