急需急需
&& 闰年函数。 prg clea hs=1 ls1=10 ls2=25 js=0 for nf=1000 to 2016 ?if MOD(nf,4)=0 AND MOD(nf,100)50 ? ? ? WAIT "" ? ? ? hs=1 ? ? ? CLEAR ? ENDIF ENDFOR wait"请输入年份" windows CLEAR nf=0 @5,10 say "请输入年份:" get nf READ IF MOD(nf,4)=0 AND MOD(nf,100)<>0 OR MOD(nf,4)=0 AND MOD(nf,400)=0 ? ?...全部
&& 闰年函数。
prg clea hs=1 ls1=10 ls2=25 js=0 for nf=1000 to 2016 ?if MOD(nf,4)=0 AND MOD(nf,100)50 ? ? ? WAIT "" ? ? ? hs=1 ? ? ? CLEAR ? ENDIF ENDFOR wait"请输入年份" windows CLEAR nf=0 @5,10 say "请输入年份:" get nf READ IF MOD(nf,4)=0 AND MOD(nf,100)<>0 OR MOD(nf,4)=0 AND MOD(nf,400)=0 ? ? @5,ls1 say STR(nf,4,0) "年是闰年" ? ? ? ?ELSE ? ? @5,ls1 say STR(nf,4,0) "年是平年" ENDIF。收起