[单项选择题] 下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,下划线处应填( )。 Sub EnSure() Dim year As Integeryear=Val(Inpu

19 查阅

[单项选择题] 下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,下划线处应填( )。

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)。

计算机考试