Sequenza di Fibonacci
Ora creeremo la "sequenza di Fibonacci" in Visual Basic.
Numero | Tipo | Text |
1 | Form | Sequenza di Fibonacci |
1 | Button | Avvia |
1 | Textbox | |
1 | Label | Inserire quanti numeri della sequenza si vuole |
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (TextBox1.Text < 45) Then
Dim n As Integer
Dim n1 As Integer = 1
Dim n2 As Integer = 1
Dim n3 As Integer = 0
Dim conta As Integer = 0
Dim ris(100) As Integer
Dim risultato As String
n = TextBox1.Text
While conta < n
n3 = n2
n2 = n1 + n2
n1 = n3
ris(conta) = n2
conta += 1
End While
For i = 0 To n - 1
risultato += ris(i) & " "
Next
MsgBox(risultato)
Else
MsgBox("inserire un valore inferiore a 45")
End If
End Sub
End Class