I'm‧泥〃

可發文群組
 瀏覽名片  觀看他們的動態

  • 內容數

    5001

  • 註冊日期

  • 最後上線

  • Days Won

    1

I'm‧泥〃 last won the day on June 3 2016

I'm‧泥〃 had the most liked content!

論壇聲望

11 Good

關於 I'm‧泥〃

  • 頭銜
    Advanced Member
  • 生日 06/18/1992

最新名片的訪客

121905 次 瀏覽數

單篇狀態更新

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

  1. vip3268

    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