如何用编程将1个数分解为不重复6个数（1到30之间）之和，该理论是能够有结果的。 终于弄出来了：用VB写的，估计你看得懂，都是basicPrivate Sub Command1_Click()Dim xt As LongDim xtt As LongDim xts As Longxtt=Val(Text1.Text)xts=xtt-21List1.Clearxt=0For i6=xts \\ 6 To Min(24，xts)For i5=0 To Min(25，xts-i6)If i5For i4=0 To Min(26，xts-i6-i5)If i4For i3=0 To Min(27，xts-i6-i5-i4)If i3For i2=0 To Min(28，xts-i6-i5-i4-i3)If i2For i1=0 To Min(29，xts-i6-i5-i4-i3-i2)If i1(i1+i2+i3+i4+i5+i6)=xts ThenList1.AddItem CStr(i1+1)+\"+\"+CStr(i2+2)+\"+\"+CStr(i3+3)+\"+\"+CStr(i4+4)+\"+\"+CStr(i5+5)+\"+\"+CStr(i6+6)+\"=\"+CStr(i1+i2+i3+i4+i5+i6+21)xt=xt+1End IfNext i1End IfNext i2End IfNext i3End IfNext i4End IfNext i5Next i6List1.AddItem xtEnd SubPrivate Function Min(x，y)If x>；y ThenMin=yElseMin=xEnd IfEnd Function下面分解30：2+3+4+6+7+8=301+3+5+6+7+8=302+3+4+5+7+9=301+3+4+6+7+9=301+2+5+6+7+9=301+3+4+5+8+9=301+2+4+6+8+9=301+2+3+7+8+9=302+3+4+5+6+10=301+3+4+5+7+10=301+2+4+6+7+10=301+2+4+5+8+10=301+2+3+6+8+10=301+2+3+5+9+10=301+3+4+5+6+11=30。
请教循环数的因式分解方法？ 简单来说可以这样总结：ababab=ab×10101三句话来总结：ab代表重复单元；“1”的数目代表重复单元重复的次数；“0”位于两个“1”之间，每个间隔0的个数等于重复单元位数-1。
任何一个数都能分解为若干质数的和吗 1，6都不可以
