就目前的發展來看，由於計算機速度和存儲空間的大幅提升，程序(算法)的可讀性和結構性是主流要求。
我曾經說過，用壹行代碼解決壹個問題，用1000行代碼(例子很極端)，對人在計算機運行時的感受沒有任何影響。
妳的問題有多種解決方法。當然，會用到數組和復雜的If語句。
我現在用的是壹種方法。請妳看看它是否簡單？
將兩個組合框Combo1和Combo2、壹個按鈕和壹個文本框Text1添加到表單中:
代碼如下:
選項？明確的
私人？XZ？作為？線
私人？Sub？Command1_Click()
暗淡？m？作為？線
暗淡？d？作為？線
暗淡？d1？作為？日期
暗淡？d2？作為？日期
暗淡？l？作為？整數
m？=?Combo1。文本
d？=?組合2。文本
l？=?儀器(XZ，m)
如果？d？& lt=?Mid(XZ，？l？+?3,?3)?然後
Text1。文字？=?妳是什麽星座的？& amp？Mid(XZ，？l？-?3,?3)
其他
Text1。文字？=?妳是什麽星座的？& amp？Mid(XZ，？l？+?6,?3)
結束？如果
結束？潛水艇
私人？Sub？Form_Load()
暗淡？我？作為？整數
Combo1。清楚的
為了什麽？我？=?1?去哪？12
如果？我？& lt？10?然後
Combo1。AddItem？"0"?& amp？CStr(壹)？& amp？“月亮”
其他
Combo1。AddItem？CStr(壹)？& amp？“月亮”
結束？如果
下壹個？我
Combo1。文字？=?Combo1。列表(0)
組合2。清楚的
為了什麽？我？=?1?去哪？31
如果？我？& lt？10?然後
組合2。AddItem？"0"?& amp？CStr(壹)？& amp？“日”
其他
組合2。AddItem？CStr(壹)？& amp？“日”
結束？如果
下壹個？iCombo2。Text = Combo2。列表(0)
XZ = "摩羯座065438+10月20日水瓶座2月19雙魚座3月20日白羊座4月20日金牛座5月21雙子座6月21巨蟹" &；_
“7月22日獅子座8月23日處女座9月23日天秤座65438+10月23日天蠍座65438+10月22日射手座65438+2月21摩羯座”
末端接頭
我在這個程序中沒有使用數組和復雜的If語句，但是用了Instr()函數，可讀性相對較差。
同時，二月還沒有考慮閏年和大月小月。