Question

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

题目描述：一个正整数有可能可以被表示为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

当然能了，建立一个文本框，一个编辑框，一个命令按钮。
主要程序代码为：
p=thisform.text1.Value && text1为数值型数据
if p<=0
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
s=ALLTRIM(STR(i))
FOR m=1 to j
s=s+SPACE(1)+ALLTRIM(STR(i+m))
ENDFOR
thisform.edit1.Value=thisform.edit1.value+s+CHR(13)
ENDIF
ENDFOR
ENDFOR
if empty(thisform.edit1.value)
thisform.edit1.value="NONE"
endif