写出判断闰年的条件表达式()。(设年份用y表示)
第1题:
设y是整型变量,能判断y为奇数的表达式是
A.Not(y Mod 2<>0)
B.y Mod 2<>0
C.(y-1) Mod 2<>0
D.y Mod 2<>1
第2题:
给定年份,下列程序用来判断该年是否为闰年,请填空。
提示:闰年的条件是年份可以被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
第3题:
设y是int型,请写出y为奇数的关系表达式( )。
第4题:
设x为int型变量,请写出一个关系表达式【 】,用以判断x同时为3和7的倍数时,关系表达式的值为真。
第5题:
设x=4,y=8,z=7以下表达式的值是 x<y And(Not y>z) Or z<x
A.1
B.-1
C.True
D.False
第6题:
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,横线处应填 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
第7题:
设y是整形变量,能判断y为奇数的表达式是
A.Not(y Mod 2<>0)
B.y Mod 2<>0
C.(y-1)Mod 2<>0
D.y Mod 2<>1
第8题:
给定年份,下列程序用来判断该年是否是闰年,请填空。
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
第9题:
表示条件“X+Y大于10 小于100,且X-Y要小于0”的逻辑表达式为( )。
A.10<X+Y<100 And X-Y<0
B.X+Y>10 And X+Y<100 And X-Y<0
C.X+Y>10 And X+Y<100 Or X-Y<O
D.X+Y>10 Or X+Y<100 Or X-Y<0
第10题:
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,下划线处应填( )。 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