好吧问答库 > vfp编程求解1+2+3+……+n的值，其中n用户输入的任意正整数，程序文件以qh为文件名

vfp编程求解1+2+3+……+n的值，其中n用户输入的任意正整数，程序文件以qh为文件名

麻烦各位了~考试在即。。

2024-11-08 02:57:00

有1个网友回答

网友（1）：

*** 你自己把以下语句保存在 qh.prg 中就行了：

CLOSE ALL
CLEAR ALL
CLEAR

DO WHILE .T.
INPUT "请输入一个正整数：" TO nGetNo
IF NOT TYPE([nGetNo]) = "N"
?"数据无效！"
ELSE
IF nGetNo > 0 AND INT(nGetNo) = nGetNo
EXIT
ENDIF
ENDIF
ENDDO

nTotal = 0
FOR nLoop_01 = 1 TO nGetNo
nTotal = nTotal + nLoop_01
NEXT
?nTotal

RETURN