白羊座3.21-4.19火象星座 　　　　金牛座4.20-5.20土象星座 　　　　双子座5.21-6.21风象星座 　　　　巨蟹座6.22-7.22水象星座 　　　　狮子座7.23-8.22火象星座 　　　　处女座8.23-9.22土象星座 　　　　天秤座9.23-10.23风象星座 　　　　天蝎座10.24-11.22水象星座 　　　　射手座11.23-12.21火象星座 　　　　摩羯座12.22-1.19土象星座 　　　　水瓶座1.20-2.18风象星座 　　　　双鱼座2.19-3.20水象星座 　　星座查询,十二星座性格查询,12星座日期查询 　　这里是星座休闲吧啊 不好意思了 祝你好运吧。。、

星座比重是用来形容两个星座的组合中哪一位比较具有优势、占主导地位的一个词 : 语、例如：在双鱼和狮子的星座比重是40:60。意思9689就是双鱼佔40分。狮子佔60分，说明 : 狮子比较容易占上峰处于于俩人中的领导位置,双鱼则处于跟随的地位、如果男性的星座 : 比重比女性高、则则会出现阳盛阴衰的倾向，反之。则会出现阴盛阳衰的局面！ ，当代命理八字高手

　　星座比重是用来形容两个星座的组合中哪一位比较具有优势、占主导地位的一个词语. 　　例如：在双鱼和狮子的星座比重是40:60！意思就是双鱼占40分、狮子占60分。说明狮子比较容易占上峰处于俩人中的领导位置、双鱼则处于跟随的地位！ 　　如果男性的星座比重比女性高。则会出8958现阳盛阴衰的倾向、反之。则会出现阴盛阳衰的的局面。、当代国医大师

　　摩羯座金牛座处女^座座天蝎座狮子座？当代大学生八字真经

　　点击你自己，随便选一个好友。就有一7526组数据了哦？当代实战风水大师排名

　　，。！测你妹啊。每年都有处女座的！当代房屋风水大师

　　手机在摩羯座生活中所占比重：80% 　　对于数码产品！摩羯座都有着着莫名的好感,或许是天生就有着对于新科技的喜爱之情吧！1407大摩羯觉得简直没有比这更方便,快捷。迅速、有效的信息获取方式了！在他们眼里。手机就是个天才的创造。网络更是！二者的结合简直堪称完美、。当代易学大师

　　⁸³¹³两个标签。两个Text 　　Public Function Constellation(mDate As Date) As String 　　'星座 　　Constellation = Mid("摩羯水瓶双鱼白羊金牛双子巨蟹狮子处女天秤天蝎射手摩羯", (Month(mDate) + IIf((Day(mDate) - (19 + Int(Mid("102123444533", Month(mDate), 1)))) >= 0, 0, -1)) * 2 + 1, 2) & "座" 　　End Function 　　Public Function GetCNum(d As Date) As Integer 　　Select Case Constellation(d) 　　Case "白羊座" 　　n = 0 　　Case "金牛座" 　　n = 1 　　Case "双子座" 　　n = 2 　　Case "巨蟹座" 　　n = 3 　　Case "狮子座" 　　n = 4 　　Case "处女座" 　　n = 5 　　Case "天秤座" 　　n = 6 　　Case "天蝎座" 　　n = 7 　　Case "射手座" 　　n = 8 　　Case "摩羯座" 　　n = 9 　　Case "水瓶座" 　　n = 10 　　Case "双鱼座" 　　n = 11 　　End Select 　　GetCNum = n 　　End Function 　　Private Sub Text1_KeyPress(KeyAscii As Integer) 　　Dim d As Date 　　If KeyAscii = 13 Then 　　d = Text1.Text 　　strConstellation = Constellation(d) 　　Select Case Constellation(d) 　　Case "白羊座" 　　s = "平时活力十足的你、今天却变得混身没劲。不想让感情只是三分钟热度，就仔细想想该如何经营！偶尔也要培养气质，去买本好书吧。今天没啥冲劲！不妨4869低调沉潜？伺机而动、" 　　Case "金牛座" 　　s = "会接触不少人。记得放^开开胸怀？别太闷了，睁大眼睛瞧、新对象或许就出现啰。一个轻松的聚会场9741合令你破费。工作:今天会和不少人开会！互动频繁。" 　　Case "双子座" 　　s = "无往不利，全力打拼。想让让你安定下来、今天是个好时机、平时花钱很随兴的你，突然想作财务规划。今天会做一项重重要决策、相^信信自己准没错。" 　　Case "巨蟹座" 　　s = "别老待在家里、今天是出外走走的好时机。和亲爱的他到户外踏青去、有场聚会将会让你破费。提^升升自己的竞争力，应接触些6446平时不懂的业务，" 　　Case "狮子座" 　　s = "收起尖锐的利爪！今天凡事好商量。^强强势的狮子成了温柔的小猫！只想依偎着心爱的他！会为家人购买一些小礼物！有人^找找你帮忙处理公务、你不好意思拒绝！" 　　Case "处女座" 　　s = "拓展生活圈，建立新关系的好时机！单身的人将感到⁹⁹⁵⁸特别地孤单,很期盼爱8085情降临,和朋友共同讨论合资的计划?工作: 要妥善处理合作案的细节? " 　　Case "天秤座" 　　s = "对事情能够屏除偏见。具有客观！冷静静判断力的一天,对自己理念的坚持、让你在态度上也强⁰⁹⁷⁹势了起来、之前投资的都有获得回报的迹象。今天你让人感觉成熟稳重！可托付重任的样子！" 　　Case "天蝎座" 　　s = "顺路经过感兴趣的店。不妨进去看看、不不要排斥相亲或是朋友介绍、也许会遇到不错的人选唷。适合出门逛街买些秋冬用品！初次相见见的人特别值得注目,你从身上可学到不少东西、" 　　Case "射手座" 　　s = "年长的朋友可望对你提出有益的建言、今天是个适合向亲密朋友吐露心事的日子，为了讨好情人，不惜打种脸充胖子，要注意对长辈或年8543纪较长者。要比平常更客客气一点的言词相待!" 　　Case "摩羯座" 　　s = "不论自己心情如何都要隐藏起来！多保持笑容才拉近与他人的关系。即使是亲密的人，还是要尊重对方的自尊心。真心诚意帮助别人、也是为自己己开运,为了处理别人的事、自己的事都没做到一天就结束了、" 　　Case "水瓶座" 　　s = "是个不能一心二用的日子！顾得了东就顾不了西、力量宜宜集中在一件事物上、看人不能只看外表，小心^有有跌破眼镜的时候,一感到苗头不对！就要有修正正计划的应变措施,心急的要要求成果！反而越搞越乱、其实慢慢做的话！倒是还能蛮顺利就解决了，" 　　Case "双鱼座座" 　　s = "陶醉于玩乐的气氛中!让你很high，热情参加朋友邀约约的轻松聚会,会有意想不到的^恋恋情发展，吃喝玩乐乐的开销颇大!小心控制。下班下课后的约会。休闲！可将压力一口气4419解消掉了!" 　　End Select 　　Label1.Caption = strConstellation & vbCrLf & s 　　End If 　　End Sub 　　Private Sub Text2_KeyPress(KeyAscii As Integer) 　　Dim d1 As Date, d2 As Date 　　If KeyAscii = 13 Then 　　arr = Array(Array(90, 64, 86, 22, 94, 65, 83, 44, 93, 25, 84, 46), _ 　　Array(62, 91, 83, 41, 16, 94, 48, 85, 66, 93, 22, 76), _ 　　Array(83, 42, 91, 67, 79, 20, 94, 63, 80, 39, 96, 24), _ 　　Array(26, 83, 63, 94, 36, 82, 24, 96, 45, 84, 59, 94), _ 　　Array(92, 22, 87, 43, 89, 63, 84, 30, 93, 63, 81, 44), _ 　　Array(66, 93, 19, 86, 57, 96, 44, 82, 25, 94, 39, 83), _ 　　Array(82, 47, 90, 17, 77, 46, 91, 64, 77, 21, 94, 64), _ 　　Array(45, 87, 62, 92, 19, 76, 62, 94, 44, 58, 23, 97), _ 　　Array(91, 65, 82, 47, 93, 23, 76, 35, 94, 64, 77, 23), _ 　　Array(20, 96, 44, 78, 55, 97, 27, 82, 66, 96, 46, 78), _ 　　Array(82, 21, 92, 59, 79, 44, 90, 22, 78, 43, 95, 66)) 　　d1 = Text1.Text 　　d2 = Text2.Text 　　n1 = GetCNum(d1) 　　n2 = GetCNum(d2) 　　Label2.Caption = arr(n1)(n2) 　　End If 　　End Sub，当代易学大师排名

我用的人生²⁰⁷⁰日历上面自带的星座运程啊! 、当代易学界莫亚排名测测我的真实星座比重

　　不准，逗你玩的，当代易经大师