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

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

2024-11-08 00:08:23

有1个网友回答

网友（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