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