Option Explicit
Function IsLeapYear(y As Integer) As Boolean '是否州并御为闰年
IsLeapYear = ((y Mod 4 = 0) And (y Mod 100 <>蔽散 0)) Or (y Mod 400 = 0)
End Function
Private Sub Command1_Click()
MsgBox Text1.Text & IIf(IsLeapYear(CInt(Text1.Text)), "册岩是", "不是") & "闰年。"
End Sub
不知道
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024