用VBA判断是否闰年

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

我在学校没学过Excel，所以如果是考试，我的答案一定是不标准的，但是结果是对的。

以下是补迹慧充代码：

If n = "" Then MsgBox "请输入正确年份！": Exit Sub

Dim rn(1900 To 2100) As String, i As Long

For i = 1900 To 2100

  姿凳答  If i Mod 4 = 0 Then

        rn(i) = "粗信闰年。"

    Else

        rn(i) = "正常年份。"

    End If

Next

Sub aa()

a = Sheet1.Cells(1, 1)

If a Mod 4 = 0 Then

Sheet1.Cells(1, 2) = 366

Else

Sheet1.Cells(1, 2) = 365

End If

End 简搭迟Sub

整除4是枝亩否为拦李零来判断闰年还是平年。

---