下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,横线处应填( )。 Sub EnSure() Dim year As Integer year=Val(InputBox("请输入年份:")) If(year Mod 4=0_____

admin2010-11-20  27

问题 下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,横线处应填(    )。
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    Of

答案B

解析 闰年的判断条件是:年份是4的倍数并且不是100的倍数,或者年份是400的倍数。所以表达式为:(year Mod 4=0 And year Mod 100<>0) Or (year Mod 400=0)。
转载请注明原文地址:https://kaotiyun.com/show/gYmp777K
0

最新回复(0)