输入一年份,判断它是否为闰年,判断闰年的条件是：年份能被4整除但不能被100整除,或者能被400整除.
Sub Command1_Click()
Dim y%
y=Year(Now())
If_______Or y Mod 400=0 Then
MsgBox(y & “年是闰年”)
Else
MsgBox(y & “年不是闰年”)
End If
End Sub
我想知道答案啊.求救!