下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填( )。 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
A: And And
B: And Or
C: Or Or
D: Or Of
举一反三
- 下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填( )。 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
- 下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填（ ）。 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 0r
- 以下程序的功能是判断输入的年份是否为闰年。year=int(input("请输入年份"))if year%4==0 （__） year%100!=0（__）year%400==0: print("闰年")else: print("平年")
- 下列逻辑表达式能判断是否闰年的是（ ）。 注：year是数值型的年份数据，闰年条件：1、年份是400整数倍；2、年份是4整数倍但不是100整数倍。 A: year mod 400 <> 0or (year mod 4 = 0) or (year mod 100 <> 0) B: year mod 400 = 0and (year mod 4 = 0) and (year mod 100 <> 0) C: (year mod 400 <> 0) or (year mod 4 = 0) and (year mod 100 <> 0) D: (year mod 400 = 0) or ( year mod 4 = 0) and (year mod 100 <> 0)
- 输入一个年份,判断它是否为闰年。判断闰年的条件为:如果某年份能被4整除并且不能被100整除的或者能被400整除的,则该年为闰年。 Private Sub Form_Click() Dim y% y = Val(InputBox("请输入年份", "闰年计算")) If 【1】 Or y Mod 400 = 0 Then Print y, "是闰年" Else Print y, "不是闰年" End If End Sub