A.维多利亚湖
B.鄱阳湖
C.苏必利尔湖
D.贝加尔湖
第1题
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,横线处应填 Sub EnSure() Dim year As Integer Year=Val(InputBox("请输入年份:")) If(year Mod 4=0_____yaer Mod 100<>0)______(yaer Mod 400=0)Then Print"您输入的是闰年" Else Print"不是闰年,是普通年份" End If End SubA.And And B.And Or C.Or Or D.Or Or
第2题
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,下划线处应填()。 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
第3题
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,下划线处应填()。 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
第8题
第9题
给定年份,下列程序用来判断该年是否是闰年,请填空。
Sub YN()
Dim x As Integer
x=InputBox("请输入年号")
If (x Mod 4=0 【10】 x Mod 100 <> 0) 【11】 (x Mod 400=0) Then
Print "是闰年"
Else
Print "不是闰年,是普通年份"
End If
End Sub
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!