Programación en Vb para ingresar cuatro números enteros

¿Atenuar? ¿respuesta? ¿Como? Entero,? ¿b? ¿Como? Entero,? ¿do? ¿Como? Entero,? ¿d? ¿Como? Entero

¿Atenuado? ¿incógnita? ¿Como? ¿Entero

x? =?1

¿Para qué? ¿respuesta? =?1?¿Adónde ir? 4? Ciclo de mil dígitos

¿Para qué? ¿b? =?1?¿Adónde ir? 4? Bucle de centenas de dígitos

¿Y si? ¿b? =?¿Respuesta? ¿Entonces qué? ¿Ir a? s 'Si una milésima y una centésima son iguales, sal del ciclo por centésima vez.

¿Para qué? ¿do? =?1?¿Adónde ir? 4 Bucle de decenas

¿Y si? ¿do? =?b? ¿aún? ¿do? =?¿Respuesta? ¿Entonces qué? ¿Ir a? ¿pag? Si los dígitos de las decenas y las centenas son iguales, o si los dígitos de las decenas y los millares son iguales, salga del ciclo de las decenas.

¿Para qué? ¿d? =?1?¿Adónde ir? 4?Periodo de un dígito

¿Y si? ¿d? =?¿Respuesta? ¿aún? ¿d? =?b? ¿aún? ¿d? =?c? ¿Entonces qué? Si el dígito de un solo dígito y el de las decenas, o el de un solo dígito y las centenas, o el de un solo dígito y el de las millares son iguales, salga del ciclo de un solo dígito.

¿Ir a? K

Otros

Texto1. ¿Palabra? =?Texto1. ¿Palabra? y amplificador? CStr(A?*?1000?+?b?*?100?+?c?*?10?+?d)? y amplificador? "?"

¿Y si? ¿incógnita? Mod? ¿10? =? 0? ¿Y luego qué? Texto 1. ¿Palabra? =?Texto1. ¿Palabra? y amplificador? vbCrLf

x? =?x? +?1

¿Fin? Si

k:

¿Siguiente? D

p:

¿Siguiente? C

Estudiante:

¿Siguiente? B

¿Siguiente? R

El problema a tener en cuenta aquí es que después de que la declaración de juicio sale del ciclo, el siguiente ciclo todavía se está ejecutando, en lugar de salir del ciclo completo. !

¿Fin? Submarino