![[单项选择题] 下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，下划线处应填( )。 Sub EnSure() Dim year As Integeryear=Val(Inpu](http://www.mshxw.com/aiimages/31/254293.png "[单项选择题] 下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，下划线处应填( )。 Sub EnSure() Dim year As Integeryear=Val(Inpu")
[单项选择题] 下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，下划线处应填( )。
Sub EnSure()
Dim year As Integer
year=Val(InputBox("请输入年份:"))
If(year Mod 4=0 ______ year Mod 100＜＞0) ______ (year Mod 400=0) Then
Print "您输入的是闰年"
Else
Print "不是闰年，是普通年份"
End If
End Sub
A．And And
B．And Or
C．Or Or
D．Or Or
参考答案：
B问题解析:
闰年的判断条件是：年份是4的倍数并且不是100的倍数，或者年份是400的倍数。所以表达式为：(year Mod 4=0 And year Mod 100＜＞0) Or (year Mod 400=0)。
