Programación VB Función de escritura divertida La función de la función es: ¿determinar si un número natural es un número primo?
El código es el siguiente:
Función SFZS(A como entero) como cadena
SFZS = "Sí"
Para I = A - 1 a 2 Paso -1
? Si un Mod I = 0 Entonces
?SFZS = "No"
?Salir para
? Finalizar si
Siguiente I
Finalizar función
El resultado de la ejecución es como se muestra en la figura: