Programación VB: ingrese un entero positivo de cuatro dígitos, escriba un programa y genere los dígitos de miles, centenas, decenas y unidades de este número.

Subcomando privado1_Click()

Dim num como entero

loo:

num = InputBox("Ingrese un número de 4 dígitos entero ")

Si num < 1000 O num > 9999 Entonces Ir a loo

Imprimir "Miles"; Mid(Trim(Str(num)), 1, 1); ' Cuando al convertir num en una cadena, hay un espacio delante, por lo que Su usa la función Recortar para eliminar el espacio

Imprimir "centenas de dígitos"; Mid(Trim(Str(num)), 2, 1);

Imprimir "dígito de decenas"; Mid(Trim(Str(num)), 3, 1);

Imprimir "un solo dígito"; núm)), 4, 1);

End Sub