chistes

Páginas: 2 (476 palabras) Publicado: 4 de marzo de 2014
codigos de una sucesion fibonacci

Public Class Form1
Dim primero As Integer = 0
Dim segundo As Integer = 1
Dim suma As Integer

Private Sub Button1_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = 1 Then
TextBox2.Text = 0
Exit Sub

End If
If Val(TextBox1.Text) <1 Then
TextBox2.Clear()
Exit Sub
End If

Dim cadenas As String = primero.ToString + "," + segundo.ToString
For i = 1 To Val(TextBox1.Text) - 2suma = primero + segundo
cadenas += "," + suma.ToString
primero = segundo
segundo = suma

Next

TextBox2.Text = cadenasreinciarVariable()

End Sub
Private Sub limpiarvariables()
primero = 0
segundo = 1
suma = 0


End Sub

Private Sub reinciarVariable()

End SubPrivate Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

comite,algo
y me caipero no fue gran cosaate,agolpiate
no mucho fue en un opllito solo el pie y me gualletu sab algo normal

ok

yudy,ta,alla,verda
Sii eso te iva ha decir y se lo mande 2 veces a ekalijaajjajaja

jajajaja
y tu enk estas tia

aqui,k,me,boy,a,bañar

y,buret,en,k,estas
en la compu de la escuela

ok
ja jajaja
Lunes 7:32

hola.negro.como.tu.estas
bn y tupor k no vienes

aqui.bien.cansada
haaak malestaban,trabajando,hoy,tambien
elva iva ha hacer unos espaguetisk mal

y.termine.explota
hay hombe

y,ya,estaba,tarde,para,yo,cojer.para.alla

y,je,k,ha,hecho
elba iva ha hacer unoespagueti y no lo va hacer

y,pork
por k se killo

jajaja.y.conquien.
con todospor k se bebien una leche y el refresco

ok
ya jajaj

y,tu,como,ha,pasado,el,dia
bngrazx a Dios

k,bueno,
y tu...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Chistes
  • Chistes
  • Chistes
  • Chistes
  • Chistes
  • chistes
  • chistes
  • chistes

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS