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: