因为双胞胎的性格还不一样
客观的说有联系,但联系是微乎其微的。 人的性格的形成主要取决于两个方面; 1、家庭环境。主要是小时候 2、社会经历。记事到成年 在一些占卜类的书籍里,对星座、属相与人的性格联系进行大肆渲染。大部分只能当作茶余饭后的消遣。 星座是按照西历的月份划的,不同的星座对应不同的月份。这样看来唯一有联系的就是夏天出生的孩子与冬天出生的孩子可能会有不同。 大家知道星座分十二种,但看一个人的个性时不能以其太阳星,就是一般我们自称自己是什麽星座,而真正分锭一个人个性时还要看其他所有行星,每个行星都有掌管某些特质如下: 太阳:为一切行星光之来源,故影响性格最重要每个星性都受它影响! 月亮:主宰人的情绪为主 金星:主宰人的感情(恋爱者必要知道对方的金星)哦 水星:主要是人的思考倾向表达能力 火星:人的意志表现方式 木星:人的”福气”,精神生活状况! 土星:人的受损方式(如何防御抑制延长等概念) 天王星:影想人的神经 海王星:人的想像力 冥王星:影响人神的部份 上升星:人的命运
我认为是零 十二生肖和人的性格 命运有关吗?一样的道理 中间古时候没有星座 外国也没有十二生肖
有一些准。有一些不准。
两个标签,两个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 = "平时活力十足的你,今天却变得混身没劲!不想让感情只是三分钟热度,就仔细想想该如何经营。偶尔也要培养气质,去买本好书吧!今天没啥冲劲,不妨低调沉潜、伺机而动!" Case "金牛座" s = "会接触不少人,记得放开胸怀,别太闷了!睁大眼睛瞧,新对象或许就出现啰!一个轻松的聚会场合令你破费。工作:今天会和不少人开会,互动频繁。" Case "双子座" s = "无往不利、全力打拼!想让你安定下来,今天是个好时机!平时花钱很随兴的你,突然想作财务规划。今天会做一项重要决策,相信自己准没错!" Case "巨蟹座" s = "别老待在家里,今天是出外走走的好时机。和亲爱的他到户外踏青去!有场聚会将会让你破费。提升自己的竞争力,应接触些平时不懂的业务。" Case "狮子座" s = "收起尖锐的利爪,今天凡事好商量。强势的狮子成了温柔的小猫,只想依偎着心爱的他。会为家人购买一些小礼物!有人找你帮忙处理公务,你不好意思拒绝。" Case "处女座" s = "拓展生活圈,建立新关系的好时机。单身的人将感到特别地孤单,很期盼爱情降临。和朋友共同讨论合资的计划?工作: 要妥善处理合作案的细节? " Case "天秤座" s = "对事情能够屏除偏见,具有客观、冷静判断力的一天。对自己理念的坚持,让你在态度上也强势了起来。之前投资的都有获得回报的迹象。今天你让人感觉成熟稳重,可托付重任的样子!" Case "天蝎座" s = "顺路经过感兴趣的店,不妨进去看看。不要排斥相亲或是朋友介绍,也许会遇到不错的人选唷!适合出门逛街买些秋冬用品。初次相见的人特别值得注目,你从身上可学到不少东西。" Case "射手座" s = "年长的朋友可望对你提出有益的建言。今天是个适合向亲密朋友吐露心事的日子。为了讨好情人,不惜打种脸充胖子。要注意对长辈或年纪较长者,要比平常更客气一点的言词相待。" Case "摩羯座" s = "不论自己心情如何都要隐藏起来,多保持笑容才拉近与他人的关系。即使是亲密的人,还是要尊重对方的自尊心。真心诚意帮助别人,也是为自己开运。为了处理别人的事,自己的事都没做到一天就结束了。" 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
这个。。其实星座也不是很准
可以看一生心路历程。
我们平常说的太阳星座确实比较片面,但实际上星盘中一个人对应了许多星座以及出生时行星的相对位置等,是可以大致概括你的性格特征的
玩星座测试,娱乐为主。 凡事在人为,遇到有感觉的人,还是凭着自己的心意去做就好,不要被一些星座测试干扰了内心。 测试的好,你欢喜,若是测试的不好呢,你要放弃么? 加油吧!情缘这事,不是几个测试就能决定的。
星座只是个大的概况而已,不是具体到哪个人的准确性格;另外,星座是西方人的发明,慢慢引入我国,而我们中国人都讲阴历,没有星座之说。所以参考一下就好了,不要太认真了。我个人还是比较相信中国属相啊等等其他的说法。。。