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

admin2010-09-11  33

问题 下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,下划线处应填(    )。 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 IfEnd 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)。
转载请注明原文地址:https://jikaoti.com/ti/zDg0FFFM
0

最新回复(0)