1. 分解质因数 (得第一条最长的式子)
2. 轮流组合不同的因子,得不同的式子.

第二种办法:
fen 2,12,"="
sub fen(a,b,s$)
for i=a to b
  if b mod i=0 then if b/i=1 then print s$;i else fen i,b/i,s$+str$(i)+"*"
next
end function