1,105,333 Community Members

Fibonacci Sequence

Member Avatar
Jupiter247
Newbie Poster
16 posts since Oct 2006
Reputation Points: 0 [?]
Q&As Helped to Solve: 0 [?]
Skill Endorsements: 0 [?]
 
0
 

Hi Guys,

I am struggling with a small problem and was wondering if anyone would be kind enough to help...

I have to write a program showing (up to 30) of the first Fibonacci numbers in sequence.

Unfortunately, my programming skills are fairly poor - and I am having trouble with the whole thing!!

It has to be done in VB.NET

I have found the formula - but I basically need to incorporate it into my program - and I'm having a bit of trouble...

I would appreciate any help...

Thanks:sad:

Member Avatar
Dukane
Posting Whiz in Training
284 posts since Oct 2006
Reputation Points: 25 [?]
Q&As Helped to Solve: 29 [?]
Skill Endorsements: 0 [?]
 
0
 

Show us your code and what parts of it you are having trouble with. We dont do your homework on this board for you.

Member Avatar
Jupiter247
Newbie Poster
16 posts since Oct 2006
Reputation Points: 0 [?]
Q&As Helped to Solve: 0 [?]
Skill Endorsements: 0 [?]
 
0
 

Show us your code and what parts of it you are having trouble with. We dont do your homework on this board for you.

The idea is to have a textbox and a listbox output the Fibonacci Sequence...

The user enters the number (via textbox) of Fibonacci numbers to be displayed. i.e. If the user enters 3 - then "0,1,1" will show in the listbox.. 5 - then "0,1,1,2,3" will show and so on....

As I have stated - I am a complete novice...:sad:

My code so far is as follows:

Dim Fibonacci() As Integer = {0, 1, 1, 2, 3, 5, 8, 13, 21, 34,55,89,144,233,377,610}
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Repeat As Integer
Repeat = CInt(TextBox1.Text)
ListBox1.DataSource = Fibonacci

I would be extremely grateful for any help! Thanks!


Member Avatar
Dukane
Posting Whiz in Training
284 posts since Oct 2006
Reputation Points: 25 [?]
Q&As Helped to Solve: 29 [?]
Skill Endorsements: 0 [?]
 
0
 

There is a very easy problem. You need to think about what you need to do here. I can give you a hint, you need a loop.

Member Avatar
Jupiter247
Newbie Poster
16 posts since Oct 2006
Reputation Points: 0 [?]
Q&As Helped to Solve: 0 [?]
Skill Endorsements: 0 [?]
 
0
 

There is a very easy problem. You need to think about what you need to do here. I can give you a hint, you need a loop.

Hi Dukane,

I have tried the following code - but to no avail...

Dim Fibonacci() As Integer = {0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610}
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.DataSource = Fibonacci
Dim Repeat As Integer
Repeat = CInt(txtRepeat.Text)

Dim Counter As Integer
For Counter = 1 To Repeat Step 1
Next
Do
Loop Until Counter = Repeat


I am seriously fed up with this!!!

I thought that the "loop" would stop at the correct number!


:eek:

Member Avatar
Jupiter247
Newbie Poster
16 posts since Oct 2006
Reputation Points: 0 [?]
Q&As Helped to Solve: 0 [?]
Skill Endorsements: 0 [?]
 
0
 

Is anything which I have written correct???

Please Help!

Member Avatar
Dukane
Posting Whiz in Training
284 posts since Oct 2006
Reputation Points: 25 [?]
Q&As Helped to Solve: 29 [?]
Skill Endorsements: 0 [?]
 
0
 

Ok, think of the pseudo code for this problem.

Take the input from the user, which is the number of digits in the sequence to print. This number also corresponds to the index of the array + 1. For example, if I enter "5" then you need to print whatever is in the array starting at 0 to 4.

If that doesn't help you, I don't know what will...beside writing the code for you.

I can tell you this...you are using the ListBox.DataSource property wrong. You have two loops, both which have no body. They don't do anything.

Member Avatar
VIDHYAPREM
Newbie Poster
12 posts since Jan 2007
Reputation Points: 0 [?]
Q&As Helped to Solve: 0 [?]
Skill Endorsements: 0 [?]
 
0
 

Hi Guys,

I am struggling with a small problem and was wondering if anyone would be kind enough to help...

I have to write a program showing (up to 30) of the first Fibonacci numbers in sequence.

Unfortunately, my programming skills are fairly poor - and I am having trouble with the whole thing!!

It has to be done in VB.NET

I have found the formula - but I basically need to incorporate it into my program - and I'm having a bit of trouble...

I would appreciate any help...

Thanks:sad:

hai

myself vidhya,just i am also a beginner i have a small idea about it .

create one form ,in that create one listbox (name it as lstdata) and button(name it as btnfibanocci).
change the text of the button to fibonacci .
double click the button(it mean we are writing the code in button event)
write the following code

private sub btnfibanocci_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfibanocci.Click

' it is used to clear the list box
lstdata.items.clear()

Dim a As integer 'a is a variable used to store the first fib number
Dim b As integer 'b is a variable used to store the 2nd fib number
Dim c As integer
Dim n As integer ' n indidicates the number of fib u need for eg 30

a=0 ' initialise the first fib number
b=1 ' initialise the Second fib number

lstData.Items.Add(a) 'i add 1st fib number in my list
lstData.Items.Add(b) 'i add 2nd fib number in my list

for n=2 to 30

c=a+b ' the third number is got by adding first two number=0+1=1

lstData.Items.Add(c) 'add to the list

b=a 'now the second number is changed to first number
b=c 'now the the third number is changed to 2nd number to be added


next
End Sub
........................................................................
NOW THE PROGRAM IS COMPLETED
IN THAT FORM IF U PRESS THAT FIBANOCCI BUTTON
IN THE NEARBY LIST BOX U CAN SEE THE FIBANOCCI NUMBERS
nearby each staement i give comment of it ok
if it is difficult to understand sorry

Member Avatar
Dukane
Posting Whiz in Training
284 posts since Oct 2006
Reputation Points: 25 [?]
Q&As Helped to Solve: 29 [?]
Skill Endorsements: 0 [?]
 
0
 

VIDHYAPREM,

Next time please read the forum rules before you give someone the answer to a homework problem.

Member Avatar
VIDHYAPREM
Newbie Poster
12 posts since Jan 2007
Reputation Points: 0 [?]
Q&As Helped to Solve: 0 [?]
Skill Endorsements: 0 [?]
 
0
 

VIDHYAPREM,

Next time please read the forum rules before you give someone the answer to a homework problem.

hai ,
just i am new member. i dn't know the forum rules.we should not answer like this or it had any mistake.please tell me.

Member Avatar
jbennet
Moderator
17,127 posts since Apr 2005
Reputation Points: 1,618 [?]
Q&As Helped to Solve: 736 [?]
Skill Endorsements: 38 [?]
Team Colleague
Featured
 
0
 

here is it in VB6 code, should be easialy modifiabkle for VB.NET

Dim x As Integer
Dim y As Integer
Dim z As Integer
x = 1
y = 1
z = 1
For x = 1 To 100
z = x + y
x = y
y = z
MsgBox " " & z + 1
Next x

dont know if its right, made it up right now

Member Avatar
Ancient Dragon
Achieved Level 70
27,636 posts since Aug 2005
Reputation Points: 5,232 [?]
Q&As Helped to Solve: 3,037 [?]
Skill Endorsements: 115 [?]
Team Colleague
Featured
Sponsor
 
0
 

hai ,
just i am new member. i dn't know the forum rules.we should not answer like this or it had any mistake.please tell me.

forum rules do not prohibit you from giving complete solutions, just discourages it. But you should probably take a few minutes to review the rules anyway.

Member Avatar
jbennet
Moderator
17,127 posts since Apr 2005
Reputation Points: 1,618 [?]
Q&As Helped to Solve: 736 [?]
Skill Endorsements: 38 [?]
Team Colleague
Featured
 
0
 

general opinion is that people wont do it for you but will point you in the right direction

Member Avatar
Jupiter247
Newbie Poster
16 posts since Oct 2006
Reputation Points: 0 [?]
Q&As Helped to Solve: 0 [?]
Skill Endorsements: 0 [?]
 
0
 

Thankyou very much for your help - it is much appreciated.

I am sorry about the fact that people discourage others from help, because sometimes the help you recieve can be very cryptic.
Not all people have the skills to jump straight into a program and do well. If I could help someone with a problem, then I would.

Member Avatar
Shahnaz Sheikh
Newbie Poster
1 post since Aug 2007
Reputation Points: 0 [?]
Q&As Helped to Solve: 0 [?]
Skill Endorsements: 0 [?]
 
0
 

My dear Friend Vidhya....
The code which u sent is correct but there is a small mistake........In the end of the program it should like below......

lstData.Items.Add(c) 'add to the list

a = b
b = c

next
End Sub


U have written b=a if we give b=a then it wont increment.....ok.....Thanks for the code....Take care Bye

You
This article has been dead for over three months: Start a new discussion instead
Post:
Start New Discussion
Tags Related to this Article