闰年是指 能够被4整除但不能被100整除的年份，或者能够被400整除的年份。这种定义是为了弥补因人为历法规定造成的年度天数与地球实际公转周期的时间差而设立的。
编写程序来判断一个年份是否为闰年，通常涉及以下步骤：
输入年份 ：首先，程序需要接收一个年份作为输入。判断闰年条件
年份能被4整除但不能被100整除。
或者年份能被400整除。
输出结果：
如果年份满足上述任一条件，则输出该年份是闰年；否则，输出该年份不是闰年。
```vb
Private Sub Form_Click（）
For i = 2000 To 2099
If leapYear（i） = True Then
' 输出闰年信息
MsgBox i & " 是闰年"
End If
Next i
End Sub
Function leapYear（year As Integer） As Boolean
If （year Mod 4 = 0 And year Mod 100 <> 0） Or （year Mod 400 = 0） Then
leapYear = True
Else
leapYear = False
End If
End Function
```
在这个示例中，`leapYear`函数用于判断给定的年份是否为闰年，如果是闰年则返回`True`，否则返回`False`。`Form_Click`事件处理程序则遍历2000年到2099年之间的所有年份，并使用`MsgBox`显示每个闰年。
这种程序可以很容易地修改和扩展，以适应不同的编程环境和需求。