Ejemplos de subprogramación
comando1? Agregue el siguiente código a continuación:
Lo siguiente se implementa mediante un bucle for:
¿Privado? ¿Sub? Command1_Click()
¿Atenuar? uno,? ¿I? ¿Como? ¿Respuesta larga?
¿Respuesta? =?Val(Text1.Text)
¿Yo? =?2
¿Para qué? ¿I? =?2?¿Adónde ir? ¿respuesta? -?1
¿Y si? (¿Un? Mod? ¿Yo)? =?0?Entonces
¿Imprimir? ¿respuesta? ¿amperio? "Este no es un número primo."
¿Salir? ¿Para
El otro? ¿I? =?¿Respuesta? -?1?Entonces
¿Imprimir? ¿respuesta? ¿amperio? "Este es un número primo."
¿Fin? ¿Y si
Siguiente? Yo
¿Terminar? Submarino
Esto se logra mediante el uso de un bucle while:
¿Privado? ¿Sub? Command1_Click()
¿Atenuar? uno,? ¿I? ¿Como? Entero
¿Respuesta? =?Val(Text1.Text)
¿Yo? =?2
¿Cuándo? 2?lt=?Yo? Entonces qué. ¿I? lt=?¿Respuesta? -?1
¿Y si? (¿un? mod? ¿yo)? =?0?Entonces
¿Imprimir? ¿respuesta? ¿amperio? "Este no es un número primo."
¿Salir? Submarino
¿Elsef? ¿I? =?¿Respuesta? -?1?Entonces
¿Imprimir? ¿respuesta? ¿amperio? "Este es un número primo."
¿Fin? ¿Y si
yo? =?Yo? ?Fin de la línea 1
? Submarino
Espero poder ayudarte, -