Ir para o conteúdo

Publicidade

 Estatísticas do Fórum

  • 0 Usuários ativos

    0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

Foto:

função vba

  • Por favor, faça o login para responder
1 resposta neste tópico

#1 Kairo Gabriel

Kairo Gabriel
  • Membros
  • 9 posts

Postado 08 maio 2012 - 13:19

elabore uma funçao que entre com 2 numeros e retorna a soma de todos numeros primos q existem entre eles

to com maior duvida nao estou conseguindo se alguem poder me dar alguma dica agradeço
vlw deste ja

ai tom com maior dificuldade se alguem tiver uma dica pra me ajudar agradeço vlw


olha o q eu fiço mais a soma nao esta certa


Public Function primo(a As Double, b As Double) As Double
Dim cont As Double
cont = 0

For i = a To b

If (i Mod 2 <> 0) Then
cont = cont + i
End If
Next i
primo = cont

End Function

Editado por Mário Monteiro, 08 maio 2012 - 14:12 .

  • 0

#2 KhaosDoctor

KhaosDoctor

    Coding 4 life!

  • Moderadores
  • 2.345 posts

Postado 09 maio 2012 - 13:46

If (i Mod 2 <> 0) Then
cont = cont + i
End If

Essa função testa se é par ou impar, nesse caso, impar.

Você tem que fazer uma função diferente, experimente essa que encontrei em um tópico aqui no imasters sobre isso e adaptei para o vb:


For i=a to b

  For j=i to 1 step -1
 
if (i % j = 0) then

divisores = divisores +1 //Adiciona no numero de divisores

end if

next

if (divisores = 2) then

cont = cont +1

end if

next

Divisores é um anova variavel integer que armazena os valores de divisores.

O "j" no For é outro contador, nomeie-o como quiser





Veja mais explicações aqui:

http://blog.teocrono...ca-criptografi/

Abraços

Editado por KhaosDoctor, 09 maio 2012 - 14:32 .

  • 0