用VB编一个程序 要求输入一个年份 判断出是否为闰年（vb判断日期大小的函数）

DimyeaAsIntegerDimLeapYearAsBooleanyea=InputBox("请输入年号："

)If((yeaMod4)=0)ThenLeapYear=((yeaMod100)>0)Or((yeaMod400)=0)EndIfIfLeapYearThenMsgBoxyea&"年是闰年。"ElseMsgBoxyea&"不是闰年"