求做两道VB题，需要详细过程

Private Sub Command1_Click()
Dim a As Integer
a = InputBox("请输入一年份; ")
If a Mod 4 = 0 And a Mod 100 <> 0 Or a Mod 400 = 0 Then
Print a & "年是闰年."
Else
Print a & "年是平年."
End If
End Sub

Private Sub Command2_Click()
Dim s(12) As String
s(1) = "鼠"
s(2) = "牛"
s(3) = "虎"
s(4) = "兔"
s(5) = "龙"
s(6) = "蛇"
s(7) = "马"
s(8) = "羊"
s(9) = "猴"
s(10) = "鸡"
s(11) = "狗"
s(12) = "猪"
Dim a As String
a = InputBox("请输入你的生日: ")
Dim b As Integer
b = Val(a)
Print "你的属相是: " & s(12 - (2007 - b) Mod 12)
End Sub

第一个可以设定2007年为猪年
然后把输入的年份跟2007比较
差值mod 12，可以算出来
第二个

dim y as Integer
Private Sub command1_Click()
y = Text1.Text
If y Mod 4 = 0 And y