1. Criar um programa que apresente a seqüência de Fibonacci até o numero de termos escolhido pelo usuário. Sendo a seqüência de Fibonacci :: 1 1 2 3 5 8 13 21…

Vamos Resolver essa…

no Visual Basic desenhe um formulario como este:

 

1 – ListBox

1 – TextBox

1 – CommandButton

Dê 2 Cliques no Botão e adicione o Seguinte código:

Private Sub Command1_Click()
Dim i, x, y, z As Long

x = 1
y = 0
i = 1
List1.Clear

Do While (i <= Val(Text1.Text))

i = i + 1
z = x + y
x = y
List1.AddItem z
y = z

Loop

End Sub

No evento Form_Load digite:

 

Private Sub Form_Load()

Text1.Text = ""

End Sub

até a próxima…