输入一年份,判断它是否为闰年,判断闰年的条件是：年份能被4整除但不能被100整除,或者能被400整除.

题目

输入一年份,判断它是否为闰年,判断闰年的条件是：年份能被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
我想知道答案啊.求救!

答案

(year mod 4=0) and (year mod 100 0 )|| year mod 400=0