用visual foxpro编写猜数字游戏～求程序

游戏内容：任意输入一个0~100的数字作为谜底，再进行猜数字游戏。输入0~100数字，若比谜底大或者小，则提示大了或者小了，直至猜对数字为止。猜完后，猜四个数字以内猜对，显示鼓励话语，猜五至八个猜对，显合格话语，猜八个以上正确，显示还需努力话语。

*游戏内容：任意输入一个0~100的数字作为谜底，再进行猜数字游戏。
*输入0~100数字，若比谜底大或者小，则提示大了或者小了，直至猜对数字为止。
*猜完后，猜四个数字以内猜对，显示鼓励话语，猜五至八个猜对，显合格话语，猜八个以上正确，显示还需努力话语。
SET TALK OFF
CLEAR
DO WHILE .T.
mds=ROUND(RAND()*100,0)
?mds &&谜底，演示用，用于猜谜时，取消本条
?'谜底已出（数字0-100），请输入您猜的数字（输入-1，退出本谜；输入-2，退出游戏）：'
n=1
DO WHILE .T.
INPUT TO cms
IF cms=-2
EXIT
ENDIF
IF cms=-1
EXIT
n=n-1
ENDIF
IF cms=mds
EXIT
ENDIF
n=n+1
ENDDO
IF cms=-2
EXIT
ENDIF
DO CASE
CASE n<=4 and cms=mds
?'鼓励话语'
CASE n<=8 and cms=mds
?'合格话语'
CASE n>8 and cms=mds
?'还需努力话语'
OTHERWISE
?'没有猜对话语'
ENDCASE
ENDDO
?'已退出游戏'
SET TALK ON
RETURN