大家參考一下吧~
高職寫的程式

*** 猜數字１～１００ ****
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 可以看到全部內容