[單項選擇題] 下列程序要求用戶輸入一個年份，并能夠判斷用戶輸入的年份是否是閏年，下劃線處應(yīng)填( )。 Sub EnSure() Dim year As
2021-07-20
[單項選擇題] 下列程序要求用戶輸入一個年份，并能夠判斷用戶輸入的年份是否是閏年，下劃線處應(yīng)填( )。
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
正確答案：B
參考解析：閏年的判斷條件是：年份是4的倍數(shù)并且不是100的倍數(shù)，或者年份是400的倍數(shù)。所以表達式為：(year Mod 4=0 And year Mod 100＜＞0) Or (year Mod 400=0)。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。