Programación de texto 3

Dim d es un número entero, s es una cadena

d=Val(Text1. Text)

Imprimir "Método 1 "

Imprime el "dígito de las centenas": d\100

Imprime el "dígito de las decenas": D\10 Mod 10 00 'También puedes usar D mod 100 10.

Imprimir "número de unidad": Día 10

Imprimir

s=Right(Text1. Text, 3);

Imprimir " Método 2"

Imprimir "dígitos de centenas": Izquierda(s, 1)

Imprimir "dígitos de decenas": Medio(s, 2, 1)' también puede ser Izquierda(Derecha) (s, 2), 1) o Derecha (Izquierda (s, 2), 1).

Imprimir "número de unidad": derecha (s, 1)

Conector final

Espero que la respuesta te sea de ayuda.