【VBA编程】03.判断输入年份是否是闰年

通过输入月份，判断是否是闰年

【代码区域】

Sub 判断闰年()

 Dim year As Integer '用于保存输入的年份

 year = CInt(InputBox("请输入需要判断的年份：", "判断闰年")) '输入年份

 If year Mod  =  And year Mod  <>  Then

  MsgBox "" & "是一个闰年", vbOKOnly, "判断闰年"

 Else

    If year Mod  =  And year Mod  =  Then

        MsgBox "" & "是一个闰年", vbOKOnly, "判断闰年"

    Else

        MsgBox "" & "不是一个闰年", vbOKOnly, "判断闰年"

    End If

 End If

End Sub

【代码解析】

第2行声明了一个用于保存年份的变量，第3行用于输入一个年份，第4~12行是判断逻辑，并输出结果。

【结果展示】

输入值为：2018