private sub command1_click() dim a(15) a(1)=1 a(2)=2 for i=3 to 15 a(i)=a(i-1)+a(i-2) next for i=1 to 15 print tab(((i -1) mod 5)*10+1);a(i); nextend sub
