I'm‧泥〃

註冊會員
  • 內容數

    5,001
  • 註冊日期

  • 最後上線

論壇聲望

11 Good

關於 I'm‧泥〃

  • 頭銜
    Advanced Member
  • 生日 1992年06月18日

最新名片的訪客

27,795 次 瀏覽數

單篇狀態更新

觀看所有更新由 I'm‧泥〃

  1. Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim INPUT_YEAR As Integer

    INPUT_YEAR = Val(InputBox("今夕是何年?", "閏年判斷程式"))

    If (INPUT_YEAR Mod 100) <> 0 Then

    If (INPUT_YEAR Mod 4) = 0 Then

    MsgBox("閏年")

    Else

    MsgBox("不為閏年")

    End If

    Else

    If (INPUT_YEAR Mod 400) = 0 Then

    MsgBox("閏年")

    Else

    MsgBox("不為閏年")

    End If

    End If

    End Sub

    End Class