8-3.txt

来自「超市进销存管理系统 学生学籍管理系统 1、把源代码解压到适当的目录下（教材讲」· 文本 代码 · 共 11 行

【例8.3】 建立程序EXAM8-3.PRG，功能是判断某年是不是闰年。闰年的条件是：年份能被400整除，或者年份能被4整除但不能同时被100整除。
*功能说明：IF…ELSE…ENDIF分支结构程序举例
SET TALK OFF
INPUT "请输入年份:" TO nYear
IF MOD (nYear,4)=0 .AND. MOD(nYear,100)<>0 .OR. MOD(nYear,400)=0
?nYear,"年是闰年"
ELSE
?nYear,"年不是闰年"
ENDIF
SET TALK ON