A very simple program that I wrote using Microsoft Visual Basic 6 to accept a number from our user and generate a series of Fibonacci Numbers based on the given number by our user. The code is very simple and easy to understand.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
Sample Program Output
Program Listing
'Fibonacci Numbers in Visual Basic 6
'Date : September 2, 2017
' Written By: Mr. Jake R. Pomperada, MAED-IT
' Mandaluyong City, Metro Manila Philippines
Private Sub Command1_Click()
Dim a, b, c, input_values As Integer
Picture1.Cls
input_values = Val(Text1.Text)
a = 1
For x = 1 To input_values
If x > 2 Then
c = a + b
a = b
b = c
Picture1.Print c & Space(2);
Else
Picture1.Print a & Space(2);
b = a
End If
Next x
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Picture1.Cls
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
