星座vb程式碼

以下是一個簡單的星座判斷的VB代碼示例。該代碼根據用戶輸入的月份和日期來判斷對應的星座。

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)
    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. 輸出結果：程式會輸出對應的星座名稱。

使用示例：

• 輸入月份為3，日期為21，輸出結果為牡羊座。
• 輸入月份為12，日期為22，輸出結果為摩羯座。

這個代碼是一個簡單的星座判斷程式，適合初學者學習和使用。