defint a-z
dim a(100)
a(0) = 1
a(1) = 1
jh a(), 1
for i = 1 to 100
    print a(i);
next

sub adds (a(), x)
   y = x
   for i = 1 to a(0)
       if y < a(i) then swap y, a(i)
   next
   if i <= 100 then
      a(0) = a(0) + 1
      a(a(0)) = y
   end if
   if x < 32767 then jh a(), x
end sub

sub jh (a(), s)
adds a(), 2 * s + 1
adds a(), 4 * s + 5
end sub

MOZ是否可以讲一下思路?? 我不会[em8]