RosettaCodeData/Task/Fibonacci-sequence/VBScript/fibonacci-sequence-2.vbscript
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

10 lines
148 B
Text

dim fib
set fib = new generator
dim i
for i = 1 to 100
wscript.stdout.write " " & fib
if fib.overflow then
wscript.echo
exit for
end if
next