vba：从键盘接收一个年份值，判断它是闰年还是平年，并输出结果

在VBA中，你可以创建一个简单的函数来判断一个年份是否为闰年。根据公历规则，闰年的条件通常包括：
- 能够被4整除但不能被100整除的年份通常是闰年；
- 但是能被400整除的年份也是闰年。

下面是一个简单的VBA函数示例，它接收用户输入的年份作为参数：

Function IsLeapYear(year As Integer) As String
    If year Mod 4 <> 0 Then
        IsLeapYear = "这是平年"
    ElseIf year Mod 100 <> 0 Then
        IsLeapYear = "这是闰年"
    ElseIf year Mod 400 = 0 Then
        IsLeapYear = "这也是闰年"
    Else ' 这种情况不会出现，因为前两个条件已经排除了100的倍数但不是400的倍数的情况
        IsLeapYear = "计算错误，这不是闰年"
    End If
End Function

Sub CheckLeapYear()
    Dim inputYear As Integer
    inputYear = InputBox("请输入一个年份:")
    Debug.Print IsLeapYear(inputYear)
End Sub

在这个示例里，`CheckLeapYear` 子程序会弹出一个提示框让用户输入年份，然后调用 `IsLeapYear` 函数判断并打印结果。