[填空題] 給定年份,下列程序用來(lái)判斷該年是否是閏年,請(qǐng)?zhí)羁?。Sub YN( ) Dim X AS Integer x=Input Box("請(qǐng)輸入年號(hào)") I
2021-07-20
[填空題] 給定年份,下列程序用來(lái)判斷該年是否是閏年,請(qǐng)?zhí)羁铡?br>Sub YN( )
Dim X AS Integer
x=Input Box("請(qǐng)輸入年號(hào)")
If( x Mod 4=0 【10】 x Mod l000) 【11】 (x Mod 400=0)Then
Print"是閏年"
Else
Print"不是閏年,是普通年份"
End If
End Sub
【10】And
參考解析:【11】Or解析:此題主要考查了閏年的條件,并把條件用邏輯關(guān)系式表示出來(lái)。閏年的條件是能被四整除不能被100整除的是閏年,或者是能被400整除,所以由此可以寫出邏輯關(guān)系式:(x Mod 4=0 And x Mod l00 0 ) Or (x Mod 400=0)。
詞條內(nèi)容僅供參考,如果您需要解決具體問(wèn)題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。