Question

vfp编程:要求用分别用DO WHILE和 IF语句在同一程序中编写1+3+5+...+99和2+4+6+...+100

Answer 1

看到你的题目有点困惑，希望我没有理解错你的题意：
LOCAL liI as Integer, liResult as Integer

liResult = 0
liI = 1

DO WHILE .T.
liResult = liResult + liI
liI = liI + 2
IF liI > 99
EXIT
ENDIF
ENDDO

MESSAGEBOX( "结果为:" + ALLTRIM(STR(liResult)) )

liResult = 0
liI = 2

DO WHILE .T.
liResult = liResult + liI
liI = liI + 2
IF liI > 100
EXIT
ENDIF
ENDDO

MESSAGEBOX( "结果为:" + ALLTRIM(STR(liResult)) )

Answer 2

1+3+5+...+99
-------------------------
X=1
Y=1
DO WHILE .T.
IF X<99
X=X+2
Y=Y+X
ELSE
EXIT
ENDIF
ENDDO
? Y
-------------------
2+4+6+...+100
-------------------
X=0
Y=0
DO WHILE .T.
IF X<100
X=X+2
Y=Y+X
ELSE
EXIT
ENDIF
ENDDO
? Y