VB函數 春夏秋冬

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

        Dim M As Integer

        M = Val(TextBox1.Text)

        If M <= 3 Then

            MsgBox("春天")

        ElseIf M <= 6 Then

            MsgBox("夏天")

        ElseIf M <= 9 Then

            MsgBox("秋天")

        ElseIf M <= 12 Then

            MsgBox("冬天")

        Else

            MsgBox("無解")

            '當我輸入值為1-3時，產生答案為春天

            '當我輸入值為4-6時，產生答案為夏天

            '當我輸入值為7-9時，產生答案為秋天

            '當我輸入值為10-12時，產生答案為冬天

            '因為一年只有12個月份，當我輸入值超過13(含)時，產生答案為無解

        End If

    End Sub