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