閏年、平年を判定

閏年


＊サンプル＊
#N88BASIC
'閏年
Dim year As Long
for year = 1950 to 2006
If year Mod 4 = 0 Then
If year Mod 100 = 0 Then
If year Mod 400 <> 0 Then
Print year;"平年"
Else
Print year;"閏年"
End If
Else
Print year;"閏年"
End If

Else
Print year;"平年"
End If
Next