面试题：Visual Basic复杂逻辑控制结构的实现

Question

编写一个Visual Basic程序，要求用户输入一个年份。使用逻辑控制结构判断该年份是否为闰年。闰年的判断条件为：能被4整除但不能被100整除，或者能被400整除。根据判断结果在消息框中显示'该年份是闰年'或'该年份不是闰年'。

Answer 1

Dim year As Integer
year = CInt(InputBox("请输入一个年份"))
If (year Mod 4 = 0 And year Mod 100 <> 0) Or (year Mod 400 = 0) Then
    MsgBox "该年份是闰年"
Else
    MsgBox "该年份不是闰年"
End If