I haven't bothered cleaning the solution here, but this is the other solution that I thought up to get around the rounding problems:
Code: Select all
0 dim i$(100):i$(0)="0.00":i$(100)="1.00":c=1
1 for i=0.01 to 1.00 step 0.0100009999
2 i$(c)="0"+mid$(str$(i),2,3):c=c+1
3 next i
4 for i=0 to 100:print i$(i):next i
Takes a little while to populate the array, and of course if you wanted to use the numeric values, you'd have to use the val() keyword.
I don't know if there are any benefits other than strings being easier to deal with when printing.
Regards,
Shaun.