在Visual Basic（VB）中，可以通过以下几种方法来判断一个年份是否为闰年：
方法一：使用条件语句
```vb
Dim year As Integer
year = 2020 ' 输入年份
If （year Mod 4 = 0 And year Mod 100 <> 0） Or （year Mod 400 = 0） Then
MsgBox year & "是闰年"
Else
MsgBox year & "不是闰年"
End If
```
方法二：使用函数
```vb
Public Function IsLeapYear（ByVal year As Integer） As Boolean
IsLeapYear = False
If year Mod 4 = 0 Then
If year Mod 100 = 0 Then
If year Mod 400 = 0 Then
IsLeapYear = True
End If
Else
IsLeapYear = True
End If
End If
End Function
Private Sub Command1_Click（）
Dim year1 As Integer
year1 = 2020 ' 输入年份
If IsLeapYear（year1） Then
MsgBox year1 & "是闰年"
Else
MsgBox year1 & "不是闰年"
End If
End Sub
```
方法三：使用日期函数
```vb
Function IsLeapYear（ByVal year As Integer） As Boolean
IsLeapYear = Day（DateSerial（year, 2, 29）） = 29
End Function
Private Sub Command1_Click（）
Dim year2 As Integer
year2 = 2020 ' 输入年份
If IsLeapYear（year2） Then
MsgBox year2 & "是闰年"
Else
MsgBox year2 & "不是闰年"
End If
End Sub
```
方法四：使用循环遍历
```vb
Private Sub Form_Click（）
For i = 2000 To 2099
If LeapYear（i） = True Then
Print i
End If
Next i
End Sub
Private Function LeapYear（ByVal y As Integer） As Boolean
If （y Mod 4 = 0 And y Mod 100 <> 0） Or （y Mod 400 = 0） Then
LeapYear = True
Else
LeapYear = False
End If
End Function
```
以上是几种在VB中判断闰年的方法，可以根据具体需求选择合适的方法。