Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
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