大家参考一下吧~
高职写的程式

*** 猜数字１～１００ ****
SET TALK OFF
A1=VAL(RIGHT(TIME(),2))
A=MOD(37*A1,100)+1
T=0
DO WHILE .T.
T=T+1
INPUT '请猜１～１００数字？' TO N
DO CASE
CASE N>A
? '太大'
CASE N<A
? '太小' ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容