nesecito un codigo urgente su amigo happy-word

[happy-word]

nesecito el codigo en visual de como sacarlos los numeros primos y los numeros fibonnasis.

si no saben cuales son lso fibonasis son aquellos que son el resultado de los dos numeros anteriores a el

por ejemplo el 5 es el fibonasi de 2 + 3 que son los numeros que le antesedden en fibonasis

otro ejemplos es este

numeros   -----  su fionasi

1              -----      0
2              -----      1
3              -----      1
4              -----      2
5              -----      3
6              -----      5
7              -----      8
8              -----      13




asi por el estylo bieron la suma de los dos anteriores



ayudenme con eso es que no le encuentro la forma de hacerlo.

si pueden ponerme un codigo se los agradecere..

[metroix]

no entendi eso de fibonasis  lo buske en google/wikipedia y no me aparece nada  :S podrias explicar mejor?

[DrakoX]

lo tenia hecho en C++
así q lo pase a VB

Código:

Private Function Fibonacci(Nº As Integer)
Dim x, z, t As Double
x = 1
z = 0
t = 1
For i = o To Nº
    t = x + z
    MsgBox t
    x = t
    z = x - z
Next i
End Function

salu2

[happy-word]

Gracias drakox

les recuerdo que mi antiguo foro esta de nuevo arriba gracias..

bey

[dragonsoftware]

el codigo para sacar numeros primos en vb yo lo tengo es de mi autoria y ps aver si lo respetan soy dragonsftware asi que no se meten conmigo ehhhhhh
dragronsoftwar e el mejor
para el formulario utiliza 2 textbox 2 command y el label para el titulo te recuerdo que es de mi autoria y pertence a los programas que he logrado programar con exito espero y les sirva como a mi me sirvio en un tiempo
un command es para limpiar y otro para ejecutar cabe aclarar
que lo aprovechen den credito por eso

private sub command1 clic ()
dim num as integer
dim nums as string
dim cont as integer
dim I as integer
dim divisor as integer

 cont =0
num =val (tex1.text)
for I=1 to num
divisor=num mod I
if (divisor =0) then
cont=cont+1
end if
next I

if (cont=2) then
nums=str(num)
text2.text="el numero" + nums +"es primo"
else
nums= str(num)
text2.text="el numero"+nums+"no es primo"
end if
end sub
private sub command2 clic ()
text1.text=""
text2.text=""
end sub

[ActiveSheet]

ey chico no me gusta esa actitud al menos la de este post, no busques problemas
ni actues con altanerias

espero que te quede claro, no soy nadie para decirtelo pero quiero este foro y me gustaria mas tranqulidad de tu parte

por sierto alguien lo conose no das facha de mucha fama?
 en fin

saludos a todos los programadores VB y  NET

[crypto136]

  ajajaja.... es como decir hey no toquen mi codigo para sumar  que tonteria son algoritmos que no te los inventaste tu !! eso te lo enseñan en el colegio cuando te dan conceptos de programacion. ajajaja.......