função vba

[Kairo Gabriel 0]

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

[KhaosDoctor 242]

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