VB ingresa arbitrariamente un número de cinco dígitos y la salida inversa le pedirá que vuelva a ingresar si la entrada no es un número de cinco dígitos.

Private Sub Form1_Load()

entrada tenue como cadena,cnum como entero

Hacer

input=inputbox("Por favor, introduzca A número de cinco dígitos:")

if len(input)<>5 entonces

msgbox"Lo siento, ¡el número que ingresaste no es un número de cinco dígitos!"

else

salir do

finalizar si

bucle

atenuar i como entero, atenuar chkN como entero

para i= 1 a len(entrada)

chkN=Asc(Mid(entrada,i,1))

si chkN<30 o chkN>39 entonces

msgbox "¡El contenido que ingresó contiene caracteres no numéricos! La entrada no cumple con los requisitos.":end

end if

siguiente

para i= 1 a len(input)'orden inverso

dim snum como cadena

snum=mid(input,i,1) & snum

siguiente

cnum=val(snum)'Aquí, la cadena numérica de caracteres se convierte en un valor numérico

imprimir cnum

End sub