闰年vb
2025-11-28 11:42:53
永节芜贱买断之之耻
在Visual Basic（VB）中，你可以编写一个函数来判断给定的年份是否是闰年。以下是一个简单的VB函数示例：
```vb
Function IsLeapYear(year As Integer) As Boolean
' 如果年份能被4整除且不能被100整除，或者能被400整除，则是闰年
If (year Mod 4 = 0 And year Mod 100 <> 0) Or (year Mod 400 = 0) Then
IsLeapYear = True
Else
IsLeapYear = False
End If
End Function
' 使用示例
Dim yearToCheck As Integer = 2024
If IsLeapYear(yearToCheck) Then
Console.WriteLine(yearToCheck & " 是闰年。")
Else
Console.WriteLine(yearToCheck & " 不是闰年。")
End If
```
这段代码定义了一个名为`IsLeapYear`的函数，它接受一个整数参数`year`，并返回一个布尔值，表示该年份是否是闰年。然后，代码中有一个示例，用于检查2024年是否是闰年，并输出相应的信息。