Encontrar números Primos (UDF)
Página 1 de 1
Encontrar números Primos (UDF)
Bom dia!!
Como encontrar números Primos, entre valor inicial e final.
Função Definida Pelo Usuário.
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
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» NÚMEROS QUE FALTAM EM UMA SEQUÊNCIA ENTRE DOIS NÚMEROS
» Formula maior de numeros iguais
» Contar e Somar Números Ímpares e Pares
» Emparelhar números iguais de colunas adjacentes
» Deletar linha deferente de números (diferente 0 e "vazio")
» Formula maior de numeros iguais
» Contar e Somar Números Ímpares e Pares
» Emparelhar números iguais de colunas adjacentes
» Deletar linha deferente de números (diferente 0 e "vazio")
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|