星座配對軟體?
星座配對測試愛情打分下載軟體
我記得在手機上下載過，叫星座配對，挺好用的
用vb編一個星座配對的程式程式碼
簡單是相對的，如果要求程式碼少而精，可能可讀性與結構性就差，反之，要求可讀性與結構性比較好，可能程式碼會增多。就目前發展來說，由於計算機的速度和儲存空間的極大提升，程式（演算法）的可讀性與結構性是主流要求。我曾經說過，解決一個問題用一行程式碼和用一千行程式碼（例子舉得比較極端），對計算機執行來說人們的感覺沒有什麼區別。你的這個問題，有多種多樣的解決方法，想當然的方法，會用到陣列和比較複雜的If語句。我現在用一個方法，請你看看是否覺得簡單呢？在窗體新增2個組合框，Combo1和Combo2，一個 按鈕和一個文字框Text1:程式碼如下：
Option ExplicitPrivate XZ As StringPrivate Sub Command1_Click()Dim M As StringDim D As StringDim d1 As DateDim d2 As DateDim L As IntegerM = Combo1.TextD = Combo2.TextL = InStr(XZ, M)If D <= Mid(XZ, L + 3, 3) Then Text1.Text = "你的星座是：" & Mid(XZ, L - 3, 3)Else Text1.Text = "你的星座是：" & Mid(XZ, L + 6, 3)End IfEnd SubPrivate Sub Form_Load()Dim i As IntegerCombo1.ClearFor i = 1 To 12 If i < 10 Then Combo1.AddItem "0" & CStr(i) & "月" Else Combo1.AddItem CStr(i) & "月" End IfNext iCombo1.Text = Combo1.List(0)Combo2.ClearFor i = 1 To 31 If i < 10 Then Combo2.AddItem "0" & CStr(i) & "日" Else Combo2.AddItem CStr(i) & "日" End IfNext iCombo2.Text = Combo2.List(0)XZ = "魔羯座01月20日水瓶座02月19日雙魚座03月20日白羊座04月20日金牛座05月21日雙子座06月21日巨蟹座" & _ "07月22日獅子座08月23日處女座09月23日天秤座10月23日天蠍座11月22日射手座12月21日魔羯座"End Sub我這個程式，沒有用陣列和複雜的If語句，但是，用了Instr()函式，可讀性就相對差一些了。 同時2月份,還沒有考慮閏年問題以及大月小月問題.
求一款安卓的星座軟體名字,記得裡面有配對打分,追求祕笈,性愛喜好...去年在騰訊應用寶下載的,後來換了手機 100分
你試試去91助手下載吧。
搜尋關鍵詞星座、配對什麼的。，應該能找到。
星座日期劃分
後面的點表示月 1.21~2.20水平座 2.21~3.20雙魚座 3.21~4.20白羊座 4.21~5.20金牛座 5.21~6.20雙子座 6.21~7.20巨蟹座 7.21~8.20獅子座 8.21~9.20處女座 9.21~10.20天秤弧 10.21~11.20天蠍座 11.21~12.20射手座