然后分情况，如果不被100整除，那么执行是否能被4整除，进行判断后输出。
如果被100整除，那么执行是否能被400整除，判断并输出。
所以：编程如下：
Private Sub Command1_Click()
Dim Year As Integer
Text1. Text= Year
If Year Mod 100=0 Then
If Year Mod 400=0 Then MsgBox ("闰年")
Else If Year Mod 4=0
Then MsgBox ("闰年")
Else
MsgBox(“平年”)
End If
在任何历法里，都有闰年的说法。
闰年(Leap Year)是为了弥补因人为历法规定造成的年度天数与地球实际公转周期的时间差而设立的。
一、公历（阳历）。
地球绕太阳运行周期为365天5小时48分46秒（合365.24219天）即一回归年（tropical year）。公历的平年只有365日，比回归年短约0.2422 日，所余下的时间约为每四年累计一天，故第四年要在2月末加1天，使当年的历年长度为366日，这一年就为闰年。阳历里每400年有97个闰年。按照每四年一个闰年计算，平均每年就要多算出0.0078天，这样经过四百年就会多算出大约3天来。因此每四百年中要减少三个闰年。所以公历规定：年份是整百数时，必须是400的倍数才是闰年；不是400的倍数的世纪年，即使是4的倍数也不是闰年。
这就是通常所说的：四年一闰，百年不闰，四百年再闰。 例如，2000年是闰年，2100年则是平年。
二、农历（阴历）。
中国旧历农历作为阴阳历的一种，每月的天数依照月亏而定，大月30天，小月29天，一年的时间以12个月为基准，这样定出来的年，比一回归年少约11天。为了合上地球围绕太阳运行周期即回归年，所余的时间每隔2到4年，增加一个月，增加的这个月为闰月。闰月加到哪个月，以农历历法规则推断，主要依照与农历的二十四节气相符合来确定。
在加有闰月的那一年有13个月，历年长度为383至385日，这一年也称为闰年。如1984年鼠年，有两个十月，通常称为十月和闰十月。农历闰年闰月的推算，3年一闰，5年二闰，19年七闰；农历基本上19年为一周期对应于公历同一时间。如公历的2001年5月27日、1982年5月27日和1963年5月27日这个日子，都是闰四月初五。最长的农历闰月年份的天数可长达385天，这样的农历闰月年份是很罕见的，如1925年、1944年和2006年。
<html><head>
<meta http-equiv="content-type" content="text/htmlcharset=gb2312">
<title>判断闰年</title>
<script type="text/javascript" languge="javascript">
//能被4整除且不能被100整除
//或
//能被100整除且能被400整除
function isLeapYear(){
var pYear=window.myForm.theYear.value
if(!isNaN(parseInt(pYear))){
if((pYear%4==0 &&pYear%100!=0)||(pYear%100==0 &&pYear%400==0)){
window.alert(pYear+"是闰年！")
}else{
window.alert(pYear+"不是闰年！")
}
}else{
window.alert("请输入正确年份！")
}
}
</script>
</head>
<body>
<form action="#" name="myForm" method="post">
<p>请输入要判断闰年的年份：<p/>
<input name="theYear" type="text">
<input name="select" type="button" value="计算" onClick="isLeapYear()">
</form>
</body>
</html>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312" />
<title>无标题文档</title>
<script type="text/javascript">
function leapyear()
{
var year=document.getElementById("year").value
if(!/^\d{4}$/.test(year)) alert("您输入的时间有误")
else if(year%4!=0) alert("不是闰年")
else alert("是闰年")
}
window.onload=function()
{
document.getElementById("button").onclick=leapyear
}
</script>
</head>
<body>
请输入一个四位数的年份：<input type="text" value="" id="year"/>
<input type="button" value="闰年判断" id="button"/>
</body>
</html>
