用VF,判断是否为闰年,不是则重新输入,直到为闰年退出循环输入一个年份,编写程序,要求判断出是否为闰年.闰年的条件是能被4整除,但不能被100整除,或者能被4整除又能被400整除（如1992年和200

Question

用VF,判断是否为闰年,不是则重新输入,直到为闰年退出
循环输入一个年份,编写程序,要求判断出是否为闰年.闰年的条件是能被4整除,但不能被100整除,或者能被4整除又能被400整除（如1992年和2000年均为闰年,如果是闰年,就显示“是闰年”,并退出程序,如果不是闰年,就显示“不是闰年”,并继续循环输入年份,判断是否闰年,直到是闰年就退出程序.

Answer 1

do while .t.
input "请输入一个年份：" to y
if (y%4=0 and y%1000) or y%400=0
?"是闰年"
exit
else
?"不是闰年"
endif
enddo