题目
A.1890年、2000年
B.1900年、2000年
C.1972年、2008年
D.1998年、2002年
E.2000年、2100年
第7题
第8题
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,横线处应填 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
第9题
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,横线处应填()。
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
第10题
给定年份,下列程序用来判断该年是否为闰年,请填空。
提示:闰年的条件是年份可以被4整除但不能被100整除,或者能被400整除。
Private Sub Comand6_Click()
Dim y As Integer
y=InputBox("请输入年份")
If(y Mod 4=0______y Mod 100<>0)or(y Mod 400=0)Then
Print"是闰年"
Else
Print"是普通年份"
End If
End Sub
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!