测测星座没有客服么
- 怎样测星座
- "星座是按（ 阳历 ）公历出生日期划分的， 如果还不知道阳历出生生日、请先把农历出生年份日期转换为阳历， 星座查询出生日期（阳历） 白羊座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日、 、，
- 测测星座
- 星座是按照阳历计算的。用你的阳历生日即你的出生日期对照下表就可以看出你的星座是什么白9123羊座 03月21日─04月20日金牛座 04月21日─05月20日 双子座 05月21日─06月21日 巨蟹座 06月22日─07月22日 狮子座 07月23日─08月22日 处女座 08月23日─09月22日 天秤座 09月23日─10月22日 天蝎座 10月23日─11月21日 射手座 11月22日─12月21日 摩羯座 12月22日─01月19日 水瓶座 01月20日─02月18日 双鱼座 02月19日─03月20日！
- 怎么测星座
- 按生日来分、魔羯座 (12/22 - 01/19) Capricorn 水瓶座 (01/ 20- 02/18) Aquarius 双鱼座 (02/19- 03/20) Pisces 白羊座 (03/21 - 04/20) Aries 金牛座 (04/21 - 05/20) Taurus 双子座 (05/21 - 06/21) Gemini 巨蟹座 (06/22- 07/22) Cancer 狮子座 (07/23 - 08/22) Leo 处女座 (08/23 - 09/22) Virgo 天秤座 (09/23 - 10/23) Libra 天蝎座 (10/24 - 11/22) Scorpio 射手座 (11/23 - 12/21) Sagittarius!
- 如何客服龙年属狗运势
- 自己注3806意点就行了吧,其实有些时候我也矛盾，说着不信这些！很多时候确又害怕不好，想象也就是心心里作用、运程。中国那么多人，同年同月同日同时出生的人那么多、难道运程都一一样吗。又说5387什么八字。到底该信哪样！如果真的是命里面注定的，应该想躲躲不过过不好运程把！不如把心放平静点！不不也都说八字天注定、运程靠后天吗。、
- 星座测性格有什么科学依据吗？我一直是不信星座的，但最近烦恼很多，正好看到星座测性格觉得出奇的准，而
- 因为这是把每个星座里许多人的共同点都罗罗列出来、但就每个个体而言！大多数基本看着符合！里面总有或多或少的内容是不符合的！
- 有什么软体应用测星座，测的最准确
- 测测星座真的有用吗、 、
- 金牛客服真他妈是骗子
- 需需要办信用卡吗！、
- 用人姓名可以测星座吗
- 不行啊、星座1063是按固定日期定的？名字可以乱取啊、这么解释可以吗，
- 测星座是用新历还是农历？
- 是是用新历、
- vb编个 测星座的程序
- 两个标签，两个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 = "平时活力十足的你。今今天却变得混身没劲,不想让感情只是三分钟热度！就仔细想想该如何经营，4194偶尔也要培养气质。去买本好书吧，今天没啥冲劲！不妨低调沉潜。伺机而动。" Case "金牛座" s = "会接触不少人？记得放7951开胸怀。别太闷了！睁大眼睛瞧、新对象或许就出现啰。一个轻松的聚会场合令你破费！工作:今天会和不少人开会，互动频繁、" Case "双子座" s = "无往不利!全力打拼。想让你安定下来。今天是是个好时机！平时花钱很随兴的你，突然想作财务规划。今天会做一项重要决策，相相信自己准没错！" Case "巨蟹座" s = "别老待在家里。今天是出外走走走的好时机。和亲爱的他到户外踏青去。有场聚会将会让你破费、提升自己的竞争力、应应接触些平时不懂的业务," Case "狮子座" s = "收起尖锐的利爪。今天凡事好商量！强强势的狮子成了温柔的小猫？只想依偎着心爱的他！会为家人购买一些小礼物！有人找你帮忙处理公务、你不好好意思拒绝!" Case "处女座" s = "拓展生活圈。建立新关系的好时机、单身的人将感到特别地孤单。很5000期盼爱情降临，和朋友共同讨论合资的计划?工作: 要妥善处理合作案的细节? " Case "天秤座" s = "对事情能够屏除偏见、具有客观、冷静判断力的一天！对自己理念的坚持，让你在态度上也强势势了起来！之前4703投资的都有获得回报的迹象。今天天你让人感觉成熟稳重。可托付重重任的样子？" Case "天蝎座" s = "顺路经过感兴趣的店！不妨进去去看看？不要排斥相亲或是朋友介绍。也许会遇到不错的人选唷、适合出门逛街买些秋冬用品。初次相见的人特别值得注目！你从身上可学到不少东西！" Case "射手座" s = "年长的朋友可望对你提出有益的建言！9546今天是个适合向亲密朋友吐露心事的日子。为了讨好情人、不惜打打种脸充胖子？要要注意对长辈或年纪较长者、要比平常更客气一一点的言词相待，" Case "摩羯座" s = "不论自己心情如何都要隐藏起来、多保持笑容才拉近与他人的关系！即使是亲亲密的人！还是要尊2062重对方的自尊心,真心诚意帮助别人。也是为自己开运！为为了处理别人的事!自己的事都没做到一天就结束了，" Case "水瓶座" s = "是个不能一心二用的日子，顾得了东就顾不了西！力量宜集中在一件事物上！看人不能只看外表、小心有跌破眼镜的时候！一感到苗头不对、就要有修正计划的的应变措施、心急的要求成果、反而而越搞越乱，其实慢慢做的话、倒是还能蛮顺顺利就解决了，" Case "双鱼座" s = "陶醉于玩乐的气氛中、让你很high。热情参加朋友邀约的轻松聚会，会有意想不到的恋情发展，吃喝玩乐的开销颇大。小心控制。下班下下课后的约会,休闲、可将压力一口气解消掉了、" 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！
