用VFP程序解决下列问题

给定年号与月份，编写程序判断该年是否为闰年，并根据给出的月份来判断该月有多少天。提示：闰年的条件是：年号能被4 整除而不能被 100 整除，或能被 400 整除，由此可得出闰年的逻辑表达式。年号与月份由键盘输入。

（y%4=0 AND y%100<>0）OR (y%400=0)

楼上的代码只是判断输入的年份是否为闰年，不符合题目的要求。正确的代码如下：

clear
input "年份：" to y
input "月份：" to m
do case
case m = 1 or m = 3 or m = 5 or m = 7 or m = 8 or m = 10 or m = 12
d = 31
case m = 4 or m = 6 or m = 9 or m = 11
d = 30
case m = 2
if y % 4 = 0 and y % 100 <> 0 or y % 400 = 0 then
d = 29
else
d = 28
endif
endcase
? ltrim(str(y)) + "年" + ltrim(str(m)) + "月有" + ltrim(str(d)) + "天"

Ok=.f. input "年份号：" to N

if mod(n,4)=0 ok=.t. if mod(n,100)=0 ok=.f. if mod(n,400)=0 ok=.t. endif endif endif

if ok ? "闰年2月29天" else ? "非闰年2月28天" endif

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息