Vb星座程式

以下是一個簡單的VB.NET星座判斷程式示例。用戶輸入出生日期後，程式會根據日期判斷並輸出對應的星座。

Module Module1
    Sub Main()
        Dim month As Integer
        Dim day As Integer

        Console.WriteLine("請輸入您的出生月份（1-12）：")
        month = Integer.Parse(Console.ReadLine())

        Console.WriteLine("請輸入您的出生日期（1-31）：")
        day = Integer.Parse(Console.ReadLine())

        Dim zodiac As String = GetZodiacSign(month, day)
        Console.WriteLine("您的星座是：" & zodiac)
        Console.ReadLine()
    End Sub

    Function GetZodiacSign(ByVal month As Integer, ByVal day As Integer) As String
        Select Case month
            Case 1
                If day <= 19 Then
                    Return "摩羯座"
                Else
                    Return "水瓶座"
                End If
            Case 2
                If day <= 18 Then
                    Return "水瓶座"
                Else
                    Return "雙魚座"
                End If
            Case 3
                If day <= 20 Then
                    Return "雙魚座"
                Else
                    Return "牡羊座"
                End If
            Case 4
                If day <= 19 Then
                    Return "牡羊座"
                Else
                    Return "金牛座"
                End If
            Case 5
                If day <= 20 Then
                    Return "金牛座"
                Else
                    Return "雙子座"
                End If
            Case 6
                If day <= 21 Then
                    Return "雙子座"
                Else
                    Return "巨蟹座"
                End If
            Case 7
                If day <= 22 Then
                    Return "巨蟹座"
                Else
                    Return "獅子座"
                End If
            Case 8
                If day <= 22 Then
                    Return "獅子座"
                Else
                    Return "處女座"
                End If
            Case 9
                If day <= 22 Then
                    Return "處女座"
                Else
                    Return "天秤座"
                End If
            Case 10
                If day <= 23 Then
                    Return "天秤座"
                Else
                    Return "天蠍座"
                End If
            Case 11
                If day <= 21 Then
                    Return "天蠍座"
                Else
                    Return "射手座"
                End If
            Case 12
                If day <= 21 Then
                    Return "射手座"
                Else
                    Return "摩羯座"
                End If
            Case Else
                Return "無效的日期"
        End Select
    End Function
End Module

程式說明：

1. 用戶輸入出生月份和日期。
2. 程式通過GetZodiacSign函式判斷星座。
3. 根據輸入的日期範圍，返回對應的星座名稱。
4. 程式輸出用戶的星座。

使用方法：

1. 將代碼複製到VB.NET開發環境中（如Visual Studio）。
2. 運行程式，輸入月份和日期。
3. 程式會輸出對應的星座。

希望這個示例對你有幫助！