题 目:
判断一个年份是闰年还是平年;
闰年条件:
1.可以被400整除;
2.可以被4整除,但是不可以被100整除。
附 件:
点击下载此附件
截 图:
代 码:
Private Sub 查询_Click() If Me.年份 Mod 4 = 0 And Me.年份 Mod 100 <> 0 or Me.年份 Mod 400 = 0 Then MsgBox Me.年份 & "为闰年!" Else MsgBox Me.年份 & "为平年!" End If End Sub