Sub 判断闰年()
 Dim year As Integer ‘用于保存输入的年份
 year = CInt(InputBox("请输入需要判断的年份：", "判断闰年")) ‘输入年份
 If year Mod 4 = 0 And year Mod 100 <> 0 Then
  MsgBox "" & "是一个闰年", vbOKOnly, "判断闰年"
 Else
    If year Mod 100 = 0 And year Mod 400 = 0 Then
        MsgBox "" & "是一个闰年", vbOKOnly, "判断闰年"
    Else
        MsgBox "" & "不是一个闰年", vbOKOnly, "判断闰年"
    End If
 End If
End Sub