Looping Question

[Buzby]

While..Wend are my loop of choice (probably just being stubborn to be honest).. the replacement is Do While.. Loop

dim LastNumber as integer
dim PreviousNumber as integer
dim CurrentNumber as integer
 
listbox1.clear
listbox1.additem 1
 
lastnumber=1
previousnumber=0
currentnumber=0
 
do while currentnumber<=100
  currentnumber=previousnumber+lastnumber
  listbox1.additem currentnumber
  previousnumber=lastnumber
  lastnumber=currentnumber
loop

or you could do

do
  currentnumber=previousnumber+lastnumber
  listbox1.additem currentnumber
  previousnumber=lastnumber
  lastnumber=currentnumber
loop until currentnumber>100