11 lines
148 B
VB.net
11 lines
148 B
VB.net
|
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
|