Vb查詢星座

在Visual Basic (VB) 中，你可以編寫一個簡單的程式來查詢星座。以下是一個示例代碼，它根據用戶輸入的月份和日期來確定對應的星座：

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

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

        Console.WriteLine("請輸入日期：")
        day = Integer.Parse(Console.ReadLine())

        Dim zodiacSign As String = GetZodiacSign(month, day)
        Console.WriteLine("你的星座是：" & zodiacSign)
        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函式：根據輸入的月份和日期，使用Select Case語句來確定對應的星座。
3. 輸出星座：程式最後輸出用戶的星座。

使用方法：

• 運行程式後，輸入月份和日期，程式將返回對應的星座。

注意：

• 這個程式假設輸入的日期是有效的，並且不考慮閏年等情況。