按照給定的年份計算出是否為潤年 潤年的條件為,是4的倍數,而不是100的倍數的年份,但400倍數的仍然是潤年,如果是1000的倍數仍然不是潤年
Private Sub CmdEnter1_Click()
If R Mod 4 <> 0 Then
MsgBox ("不是潤年")
Else
If R Mod 100 <> 0 Then
MsgBox ("是潤年")
Else
If R Mod 400 = 0 And R Mod 1000 <> 0 Then
MsgBox ("是潤年")
Else
MsgBox ("不是潤年")
End If
End If
End If
End Sub
請問 R 是什麼?
還有...這個程式碼有哪裡需要修改
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(6) 人氣()