vb星座程式

以下是使用 VB 語言編寫的一個簡單的星座程式示例：

```vb

Option Explicit

Dim starNames() As String = {"水瓶座", "雙魚座", "牡羊座", "金牛座", "雙子座", "巨蟹座", "獅子座", "處女座", "天秤座", "天蠍座", "射手座"}

Dim constellation As String = InputBox("請輸入您的星座:")

If starNames(ConstVal(constellation)) = "" Then

MsgBox "輸入錯誤，請重新輸入！"

Else

MsgBox "您的星座是：" & starNames(ConstVal(constellation)) & "。"

End If

```

該程式首先定義了一個星座名稱數組 `starNames`，包含了十二星座的名稱。然後使用 `InputBox` 函式提示用戶輸入自己的星座，並將其存儲在變數 `constellation` 中。接下來，程式使用 `ConstVal` 函式從數組中獲取用戶輸入的星座名稱，並檢查該名稱是否在數組中。如果該名稱不在數組中，則彈出錯誤訊息；否則，彈出一條訊息，顯示用戶輸入的星座名稱。

請注意，這只是一個簡單的示例程式，可以根據需要進行修改和擴展。例如，您可以使用循環和條件語句來動態生成星座符號、星象分析等更多內容。