Ayuda programacion VBA

Paula
03 de Febrero del 2006
Se trata de programar una funcion que me determine si dos numeros (introducidos por algun usuario) son Coprimos(distintos y su Maximo Comun Divisor es 1),
devolviendo resultado como VERDADERO o FALSO.
Los numeros seran introducidos en la hoja de EXCEL .
Mañana tengo que entregar este trabajo al profe.
HAY ALGUIEN QUE ME AYUDE?

mvallejos
03 de Febrero del 2006
Al ser numero primo, es divisible por si mismo y la unidad, con lo que eso de maximo comùn divisor, es siempre 1.
Ahora, determinar si un numero es primo, eso es otra cosa.
Generalmente se resuelve on un bucle, desde 2 hasta la mitad del numero, si ese numero es divisible por algunos de los iteradores del bucle, ya no es primo.

Function EsPrimo(Nro) as Boolean
dim i as Integer
dim Tope as Integer
Tope = Nro / 2
For i = 2 To Tope
If Nro / 2 = Fix(Nro/2) Then
' es divisible, entonces no es primo
Exit Function
End if
Next i
EsPrimo = True
End Function

Saludos