Red de conocimiento informático - Conocimiento del nombre de dominio - Ejemplos de subprogramación

Ejemplos de subprogramación

Agregue un control de cuadro de texto (texto1) y un botón de comando (comando1).

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, -