急急！！用vbs做一个判断平年和闰年的程序
答案:2 悬赏:20
解决时间 2021-12-31 16:25
- 提问者网友：情系雨樱花
- 2021-12-31 08:02
越精简越好！！
最佳答案
- 二级知识专家网友：偏爱自由
- 2021-12-31 08:53
dim year
year = inputbox("请输入年份！")
if (year mod 400) = 0 then
msgbox(year&"年是世纪闰年！")
else if (year mod 4) = 0 then
if(year mod 100)<>0 then
msgbox(year&"年是普通闰年！")
end if
else
msgbox(year&"年是平年！")
end if
end if
year = inputbox("请输入年份！")
if (year mod 400) = 0 then
msgbox(year&"年是世纪闰年！")
else if (year mod 4) = 0 then
if(year mod 100)<>0 then
msgbox(year&"年是普通闰年！")
end if
else
msgbox(year&"年是平年！")
end if
end if
全部回答
- 1楼网友：两不相欠
- 2021-12-31 09:38
year1=inputbox("请输入那份")
if year1<>"" then
if (int(year1) mod 4=0) and (int(year1) mod 100=0) or (int(year1) mod 400=0) then
msgbox year1 & "是闰年"
else
msgbox year1 & "是平年"
end if
end if
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯