运行效果：

程序代码：

Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean

   MonthToLeapYear = Day(DateSerial(Yea, 2, 29)) = 29

End Function

Private Sub Command1_Click()

   If Len(Text1.Text) <= 4 Then

       If MonthToLeapYear(Text1.Text) = True Then

           Print Text1.Text & "年是闰年"

       Else

           Print Text1.Text & "年是平年"

       End If

   Else

      Print "错误：请输入正确的年份！"

   End If

End Sub

学习总结：

DateSerial返回包含指定的年、月、日的 Variant (Date)。

语法 DateSerial(year, month, day)