测星座的软体
什么软体可以测夫妻像多少!好评!
www.duote.com/soft/133074.html ?
测风水的软体哪个是免费的?准的,叫什么软体?
这东西西都是蒙傻子的,哪有准的、 。
为什么用了几个软体测上升星座,结果会不一样呢?
上升星座两小时就变换了, 别说你了,任何人没有准确的出生时间,都不可能算准他的上升星座.上升星座即是你出生时、东东方地平线与黄道交界处升起的第一个星座,上升星座是我们的的外在表现!是外界所觉知到到的你?因因此由上升星座也可得知你表达自我的方式!通常一个人的太阳及上升星座都不会一样,而这就是我们之所以称上升星座为我们的“人格面具”,大部分时候!我们的太阳是隐藏在上升星座背后的!在为期二十四小时的每一天中、十二二星座依序从地平面升起,因此我3054们可得知、每个上升星座更替的时间约为两个小时。另外,你的太阳星座就是你出生当天日出时升起的星座。也就是说。唯有日出时分出生的人方是太阳星座与上升星座相同的幸运儿!这种人的外在表现与内在本质是相符合的。 测星座的软体。
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 = "平时活力十足的你、今天却变得混身没劲、不想让感情只是三分钟热度,就仔细想想该如何经营。偶尔也要培养气质!去买本好书吧。今天没啥冲劲,0548不妨低调沉潜!伺机而动。" Case "金牛座" s = "会接触不少人!记得放开胸怀,别太闷了。睁大眼睛瞧。新对象或许就出现啰!一个轻松的聚会场合令你破费,工作:今天会和不少人开会。互动频繁," Case "双子座" s = "无往不利!全力打拼!想让让你安定下来,今天是个好时机,平时花钱很随兴的你。突然想作作财务规划。今天会做一项重要决策,相信自己准没错、" Case "巨蟹座" s = "别老待在家里!今天是出外走走的好时机,和2893亲爱的他到户外踏青去,有场聚会将会让你破费,提升自己的竞争力,应接触些7248平时不懂的业务。" Case "狮子座" s = "收起尖锐的利爪,今天凡事好商量、强势的狮子成了温柔的小猫,只想依偎着心爱的他,会为家人购买一些小礼物!0938有人找你帮忙处理公务。你不不好意思拒绝。" Case "处女座" s = "拓展生活圈!建立新关系的好时机!单身的人将感到特别地孤单、很期盼爱情降临、和朋友共同讨论合资的计划?工作: 要妥善处理合作案的细节? " Case "天秤座" s = "对事情能够屏除偏见、具有客观,冷静判断力的一天、对对自己理念的坚持!让你在态度上也强势了起来!之之前投资的都有获得回报的迹象,今天天你让人感觉成熟稳重!可托付重任的样子、" Case "天蝎座" s = "顺路经过感兴趣的店、不妨进去看看、不要排斥相亲或是朋友介绍。也许许会遇到不错的人选唷?适合合出门逛街买些秋冬用品?初次次相见的人特别值得注目,你从身上1831可学到不少东西!" Case "射手座" s = "年长的朋友可望对你提出有益的建言。今天是个适合向亲密朋友吐露心事的日子、为了讨好情人。不惜打种脸脸充胖子,要注意对长辈或年纪较长者!要比平常更客气一点的言词相待," Case "摩羯座" s = "不论自己己心情如何都要隐藏起来,多多保持笑容才拉近与他人的关系!即即使是亲密的人?还是要尊重对方的自尊心。真心诚意帮助别人。1036也是为自己开运。为了处处理别人的事,自己的事都没做到一天天就结束了。" Case "水瓶座" s = "是个不能一心二用的日子,顾顾得了东就顾不了西、力量宜集中在一件事物上。看人不能只看外表、小心有跌破眼镜镜的时候?一感感到苗头不对,就要有修正计划的应变措施。心急的要求成果,反而越搞越乱,其实实慢慢做的话,倒是还能蛮顺利就解决了。" Case "双鱼座" 3172 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,
iPad上哪个天文学习软体比较好,不要太多星座的
您好!我用的的也是ipad?推荐几款pad上面非常合适用的的: 1、虚拟天文馆:能看到每晚的整个星空的每一颗星的资料,在电脑脑上非常适合, 2!天文3D+:专门为ipad打造的一款全自动的软体(强烈推荐)!随着ipad的移动!萤萤幕上的行星也在随着实际位置移动、 就这两款我用的最好!您可以挑一款。保证让您满意! 望采纳!谢谢~ 。
有什么软体可以在电脑桌面上显示每日星座运势
直接下载个简单百宝箱就行了。里面有很多实用的小工具、像桌面天气!便籤,简单启动栏这一类的。为你的生活带来很大程度上的便利、另外!还能带给你苹苹果机般的页面设定? 直接百度啊简单百宝箱就行了,记得去官网础面下载最9217新版本的! !
十二星座星象图锁屏图案软体大全下载
你可以到uc浏览器去查 很方便的但是就是不了解你是要下载图片还是大体的一个 影象轮廓 回答不容易,希望能帮到您,满意请帮忙采纳一下!谢谢 。
求助一款用手机对着天空就能找见星座的软体,
“星图图”或“找星星”都不错 ?
怎么测星座
按生日来分!魔羯座 (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,
有没有什么软体看12星座的,每天更新的
没每这种的 ,
测星座的软体、测星座的软体是什么
上一篇:测星座的软体哪个最好
下一篇:测星座的软体是什么