判断闰年vba

创建一个启用宏的Excel文件。在第1个工作表（Sheet1）中创建一个ActiveX控件，名称为“CommandButton1”，功能是单击该按钮，能够判断输入的年份是否是闰年。要求及提示如下。
（1）在“A1”单元格中输入年份，单击“判断闰年”按钮后，在“A2”单元格中输出“某年是闰年”或“某年不是闰年”，例如输入“2015”，输出“2015年不是闰年”。
（2）判断是否是闰年请参阅教材“
（3）本题效果如图所示。

'y Mod 400=0的时候，y Mod 100怎么可能不等于零？应该改为：
Sub CommandButton1_Click()
Dim y,s
y = [a1]
If ( y Mod 400 = 0) Or (y Mod 4 = 0 And y Mod 100 <> 0) Then
s= "闰年"
Else
s= "平年"
End If
[a2]=y &"年是"& s
End Sub

Sub CommandButton1_Click() Dim y,s y = [a1] If (y Mod 4 = 0 Or y Mod 400 = 0) And y Mod 100 <> 0 Then s= "闰年" Else s= "平年" End If [a2]=y &"年是"& s End Sub

sub commandbutton1_click() dim y,s y = [a1] if (y mod 4 = 0 or y mod 400 = 0) and y mod 100 <> 0 then s= "闰年" else s= "平年" end if [a2]=y &"年是"& s end sub