Encontrar números Primos (UDF)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Encontrar números Primos (UDF)

Mensagem por alexandrevba em Sab Fev 01, 2014 7:41 am

Bom dia!!
Como encontrar números Primos, entre valor inicial e final.
Função Definida Pelo Usuário.
Código:
Private Function PRIMOALEVBA(St, En As Long)
'Para usar a função
'Syntax =PRIMOALEVBA(Númor Inicial, Número Final)

'----Encontrar números Primos, entre valor inicial e final----
Dim Ans As String
For x = St To En
    For y = 2 To x - 1
        If x Mod y = 0 Then GoTo 20:
    Next y
    Ans = Ans & x & ","
20:
Next x
PRIMOALEVBA = Ans
End Function
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum