单项选择题

下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，下划线处应填( )。
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
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序的执行结果是( )。 Function P(N As Integer) For i=1 To N Sum=Sum+i Next i P=Sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S; End Sub
A．15
B．16
C．20
D．25
单项选择题
在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出( )。
A．6
B．7
C．8
D．9
相关试题