Pregunta: Estoy usando este código Opción explícita Función prima (n como número entero) como booleano Atenuar i como entero primo = Verdadero Si n = 1 entonces primo = falso De lo contrario, si es primo > 2, entonces Para i = 2 Para n - 1 Si n Mod i = 0 Entonces primo = falso Función de salida Terminara si Siguiente yo Terminara si Función final Función countprime(n1

Estoy usando este código

Opción explícita

Función prima (n como número entero) como booleano
Atenuar i como entero
primo = Verdadero
Si n = 1 entonces
primo = falso
De lo contrario, si es primo > 2, entonces
Para i = 2 Para n - 1
Si n Mod i = 0 Entonces
primo = falso
Función de salida
Terminara si
Siguiente yo
Terminara si
Función final

Función countprime(n1 como entero, n2 como entero) como entero
cuentaprime = 0
Atenuar i como entero
Para i = n1 Para n2
Llamar principal
Si es primo (i) entonces
contarprimo = contarprimo + 1
Terminara si
Siguiente yo
Función final
mi pregunta es cómo crear un código VBA (Excel) para contar números primos entre n1 y n2 usando la función prima existente

INSTRUCCIONES: Hay 2 partes para esta tarea.

Parte A: cree una función de VBA llamada prima (n) que genere VERDADERO si n es un número primo y FALSO si n no es un número primo.

Ejemplo:

Parte B: cree una función de VBA llamada countprime(n1,n2) que cuente el número de números primos entre los enteros n1 y n2 (inclusive). Si se hace con prudencia, se debe utilizar la función principal del inciso (a).