Dim yea As Integer
Dim LeapYear As Boolean
yea = InputBox("请输入年号：")
If ((yea Mod 4) = 0) Then
LeapYear = ((yea Mod 100) > 0) Or ((yea Mod 400) = 0)
End If
If LeapYear Then MsgBox yea & "年是闰年。" Else MsgBox yea & "不是闰年"
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024