Printable View
hey guys.
i have been trying to display a 25 term pattern displaying the sequence of fibonacci's. for example ... 0, 1, 1, 2,3, 5 ... i can't seem to get it and i was wondering if anyone could help me out with maybe some ideas or just some sort a hint as to how to get it started, thanks.
Here's how I wrote it in JavaScript. I doubt it's too hard to convert to VB:
Code:<html>
<head>
<title>Fibbionacci Sequence</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<script>
var a=0
var b=1
var c=0
for (i=0; i<25; i++)
{
c=a+b
document.write(c+",")
b=a
a=c
}
</script>
</body>
</html>
OK, here's the VB code for it:
the downloadable form was good, but i dont need it to ask me how many i want .. like the text box does, but rather to just display 25 automaticaly .. if that is possible?
in that case, remove the button and textbox. Make the code run onLoad as opposed to onClick, and change the for loop to:
for i=0 to 25
...
Private Sub cmdPattern8_Click()
Dim inth As Double
Dim inti As Double
Dim intk As Double
Dim intl As Double
lstDisplay.Clear
For inth = 0 To 25
intk = inth + inti
lstDisplay.AddItem intk
Next inth
End Sub
what's wrong with that? am i just ****ing stupid?
Whole code:
VB Code:
Where the list is calles lstSeq
i'm really new at this and trying to learn, but i really dont understand, i know that i need to use inth, and intk, and that inti is not needed. i only need inth, intk, n intI, and that inth and intk have the correct values, but it's hte intI that is messing me up.
okay i got it to work! i just need it to start at 0, so make it -1 to 24?
using my code:
VB Code:
a is set to 0 and b set to 1
It then loops through the loop 25 times, each time making c=a+b which it then adds to the list. Then b=a and a=c. This is so that one the next loop, then will add up to being the next term.
All the i does is to make sure the loop runs through 25 times.
i finally understand what is happening, but i dont understand how to get 0 to be the first number, i tried different methods that resulted in all 0's and all negatives ...
nevermind! got it! thanks so much for everything.
the only way I can think of is forcing it to be so. Make the first item always 0.
ie, before the loop, at 0 to the list (make sure to run the loop one time less in order to still get 25 terms)
haha what i did was before the loop began, i made a lstdisplay.additem=a , and then the loop began, i have to do 2 more of these patterns now ... one with this pattern ... 1,3,6,10,5 .. like 1+2=3+3=6+4=10 ... so that each one has the next number added to it, i think i have an idea of what to do nad then the second one is i have to make it add all the digits between 1 and 100 together .... i'm goign to try and do this, if i can't get it, you think you might be able to help me out? i really am learning, that is why i love these forums becuase you just dont give it away, you make people learn .. thanks ...
well, if you need help, just post.:D
for the first of the two, i tried this ....
Private Sub cmdPattern9_Click()
Dim q As Double
Dim l As Double
Dim k As Double
Dim q As Double
lstDisplay.Clear
q = 0
l = 1
For k = 0 To 24
d = q + l
lstDisplay.AddItem d
l = q + 1
q = d
Next k
End Sub
and it didnt work, i mena i think it looks good, but obviously it's not, what is wrong?
ah, nevermind, holy ****! i got it my own!