Question

用vfp解决：一个正整数有可能可以被表示为n(n>=2)个连续正整数之和

用vfp解决：一个正整数有可能可以被表示为n(n>=2)个连续正整数之和
100[ 标签：正整数 之和,vfp,正整数 ] 题目描述：一个正整数有可能可以被表示为n(n>=2)个连续正整数之和，如：

15=1+2+3+4+5

15=4+5+6

15=7+8

请编写程序，根据输入的任何一个正整数，找出符合这种要求的所有连续正整数序列。

输出数据：在标准输出上打印出符合题目描述的全部正整数序列，每行一个序列，每个序列都从该序列的最小正整数开始、以从小到大的顺序打印。如果结果有多个序列，按各序列的最小正整数的大小从小到大打印各序列。此外，序列不允许重复，序列内的整数用一个空格分隔。如果没有符合要求的序列，输出“NONE”。

例如，对于15，其输出结果是：

1 2 3 4 5

4 5 6

7 8

对于16，其输出结果是：

NONE

求各位vfp的高手，能用vfp解决这个算法类的问题吗？最好能有具体的代码！

Answer 1

新建个表单，在表单里加一个text1,edit1,command1

command1命令代码：

LOCAL p,t,b

p=thisform.text1.value     &&先设定文本框是数值型

IF p<1

MESSAGEBOX("请输入一个正整数",48,"系统提示")

RETURN

endif

thisform.edit1.Value=""

FOR i=1 to INT(p/2)

   FOR j=1 to INT(p/2)

   t=(j+1)*i+(j+1)*j/2

   IF p==t

  b=ALLTRIM(STR(i))

   FOR m=1 to j

   b=b+SPACE(1)+ALLTRIM(STR(i+m))

   ENDFOR

   thisform.edit1.Value=thisform.edit1.Value+b+CHR(13)

    ENDIF

   ENDFOR

 ENDFOR

 IF EMPTY(ALLTRIM(thisform.edit1.Value))

 thisform.edit1.Value="NONE"

 ENDIF