用vb編寫壹個程序，判斷某年是不是閏年

Function IsLeapYearA(ByVal yr As Integer) As Boolean

If ((yr Mod 4) = 0) Then

IsLeapYearA = ((yr Mod 100) > 0) Or ((yr Mod 400) = 0)

End If

End Function

Private Sub Command1_Click()

If IsLeapYearA(Val(Text1.Text)) Then

Print Text1.Text & "年是閏年"

Else

Print Text1.Text & "年不是閏年"

End If

End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

上一篇:以前虎牙的貓小貓現在在哪直播

下一篇:解決問題：1.在第29屆奧運會上,中國體育代表團***獲得獎牌100枚，其中51枚金牌，21枚銀牌，28枚銅牌。