如果出生日期输入格格式为19861212这种格式的话,以1-3月为春季、4-6月为夏季、7-9月为秋季,10-12月为冬季!用以下代码: Private Sub Form_Load() Dim birth As String Dim year As Integer Dim month As Integer Dim day As String Dim old As Integer Dim season As String Dim sx As Integer Dim fx As String birth = Trim(Str(InputBox("请输入您的生日?格式为19741212"))) year = Val(Left(birth, 4)) month = Val(Mid(birth, 5, 2)) day = Right(birth, 2) old = 2015 - year Select Case month Case Is <= 3 season = "春季" Case Is <= 6 season = "夏季" Case Is <= 9 season = "秋季" Case Is <= 12 season = "冬季" End Select sx = (year - 2016) Mod 12 If sx < 0 Then sx = sx + 12 End If Select Case sx Case 0 fx = "猴" Case 1 fx = "鸡" Case 2 fx = "狗" Case 3 fx = "猪" Case 4 fx = "鼠" Case 5 fx = "牛" Case 6 fx = "虎" Case 7 fx = "兔" Case 8 fx = "龙" Case 9 fx = "蛇" Case 10 fx = "马" Case 11 fx = "羊" End Select MsgBox "您的年龄为:" & old & vbCrLf & "您的出生季节为:" & season & vbCrLf & "您的属相为:" & fx End Sub 我也就是闲着无聊!给这5分都不够敲键盘的、
如果出生日期输入格式为19861212这种格式的话。以1-3月为春季!4-6月为夏季!7-9月为秋季!10-12月为冬季、用以下程式码: Private Sub Form_Load() Dim birth As String Dim year As Integer Dim month As Integer Dim day As String Dim old As Integer Dim season As String Dim sx As Integer Dim fx As String birth = Trim(Str(InputBox("请输入您的生日?格式为19741212"))) year = Val(Left(birth, 4)) month = Val(Mid(birth, 5, 2)) day = Right(birth, 2) old = 2015 - year Select Case month Case Is <= 3 season = "春季" Case Is <= 6 season = "夏季" Case Is <= 9 season = "秋季" Case Is <= 12 season = "冬季" End Select sx = (year - 2016) Mod 12 If sx < 0 Then sx = sx + 12 End If Select Case sx Case 0 fx = "猴" Case 1 fx = "鸡" Case 2 fx = "狗" Case 3 fx = "猪" Case 4 fx = "鼠" Case 5 fx = "牛" Case 6 fx = "虎" Case 7 fx = "兔" Case 8 fx = "龙" Case 9 fx = "蛇" Case 10 fx = "马" Case 11 fx = "羊" End Select MsgBox "您的年龄为:" & old & vbCrLf & "您的出生季节为:" & season & vbCrLf & "您的属相为:" & fx End Sub 我也就是閒着无聊、给这5分都不够敲键盘的 、
完整的是梅傲冬雪独自艳,三遍啼0495叫五更亮答案应该是鸡,
凭我10几年的购彩经验、这根本没用的。是你自自己心理作用 !你要用生肖的话!建议你买东方6+1(生肖)。 3889 生肖只有12个。蓝球16个!怎么对应啊,
十二生肖所有人的资料 草摩由希 (子) Sohma Yuki 职业:都立海原高校2年级生 4915年龄:16 星座:处女座 血型:A型 身高:168.7cm 体重:55kg 匿称: 王子(by王子同好会) 家族:父母、兄1人(绫女) 亲戚: 表哥草摩紫吴 喜欢的事物:家庭菜园 喜欢的人:透 讨厌的事:打领带, 扣钮,被误认为女生,阿夹的挑战,十二生肖的宿命 讨厌的人:草摩慊人,草摩夹(前者是害怕和憎恶,后者则是性格不合, 但绝对不是憎恨)猫,绫女 附身:老鼠 草摩紫吴 (戌) Sohma Shigure 6581 职业:小说家 星座:天蝎座 血型:AB型 身高:178cm 体重:68.5kg 年龄:27岁 匿称: 阿吴(by 绫绫), 捞师(by 小美), 罪孽深重的作家(by 利津) 亲戚: 表弟草摩由希, 绫女 兴趣:作弄小美(编辑), 制造作战计划,偷懒 喜欢的事物: 作词,拖稿 喜欢的人:草摩绫女, 慊人, 波鸟 附身:狗 草摩乐罗 (亥) Sohma kagura 职业:私立女子短大1年级生 年龄:18 星座:巨蟹座 血型:B型 身高:160.5cm 体重:51kg 喜欢的事物:夹 家庭成员:母亲,依玲(母亲收养的) 喜欢的人:夹 附身:猪 草摩红叶 (卯) Sohma momiji 职业:都立海原高校1年级生 年龄:15 星座:双鱼座 血型:O型 身高:155.8cm 体重:47.5kg 匿称: 兔子 (by 灯路) 家族:父母,妹1人 (桃子) 兴趣:吃糖果,唱歌,玩耍 喜欢的人:父母亲,妹妹,本田透 讨厌的事:小透被欺负 附身:兔子 草摩 泼春 (丑) Sohma Hatsuharu 职业:都立海原高校1年级生 年龄: 15 星座:巨蟹座 血型:O型 身高:170.2cm 体重:57.5kg 兴趣:格斗技 喜欢的人:由希(初恋)草摩依铃(分手后又和好) 亲戚: 表哥草摩由希 附身:牛 草摩波鸟 (辰) Sohma Hatori 职业:草摩家的主治医生 年龄:27岁 星座:巨蟹座 血型:A型 身高:182cm 体重:69kg 特殊能力:记忆隐蔽 附身:龙(海马) 草摩杞纱 (寅) Sohma Kisa 职业:中学1年级生 家族:父母 星座:双鱼座 血型:A型 身高:145cm 体重:32kg 喜欢的人: 透。灯路 喜欢的事:看电视、与小透。灯路在一起玩 附身:老虎 草摩灯路 (未) Sohma hiro 职业:小学6年级生 年龄:11 星座:狮子座 血型:AB型 身高:150cm 体重:38kg 喜欢的事物: 杞纱。长篇大论 讨厌的事物:透(情敌),大人 附身:羊 草摩绫女 (巳) Sohma Ayame 职业:服装店AYAME的店长 家族:父母,弟1人(由希) 年龄:27岁 星座:射手座 血型:A型 身高:175cm 体重:63kg 喜欢的事物: 喝茶 讨厌的事物:被人忽视 喜欢的人:草摩紫吴。草摩波鸟、弟弟由希 附身:蛇 草摩利津 (申) Sohma Ritsu 职业:私立大学三年级 年龄:20 星座:山羊座 血型:AB型 身高:174.3cm 体重:59kg 家族:父母(母亲是经营温泉旅馆的梅休) 喜欢的事物:格斗技 喜欢的人:母亲、本田透 ......余下全文文>>?
是不不是蛇,,
未雨绸缪对应什么生肖———答案:龙、有备无患yǒu bèi wú huàn【解释】患:祸患、灾难,事先有准备!就可以避免祸患!【出处】《尚书·说命中》:“惟事事!乃其有备,有备无患,”《左传·襄公十一年》:“居安思危,思则有备!有备无患、”【结构】联合式、【用法】多用来劝勉人事前要有准备以2290避免祸患!一般用谓语。宾语、【正音】患!不能读作“ɡǔ”,【辨形】备、不能写作“惫”!【近义词】未雨绸缪。防患未然、有恃无恐【反义词】措手不及!临阵磨枪,临渴0572掘井【辨析】~和“有恃无恐”!都含有“有所倚仗而没顾虑虑”的意思!但~偏重在“有准备”!是为了避免免祸患!“有恃无恐”偏重在“有依靠”便无所畏惧或毫不顾忌。表示“有特殊势力撑腰而放开胆量行事,近乎嚣张”的意思。【例句】春季来临!我们要作好山林禁火。以便~。!
答:属龙【五行生克制化宜忌】水旺得土, 方成池沼。水能生木。 木多水缩、 强水得木。 方泄其势。水能克火! 火多水干! 火弱遇水, 必不熄灭,水赖金生! 金多水浊, 金能生水! 水多金沉。
不应当有这种分别。菩萨普度三界六道一切有情众生。不分生肖什么的、你如果最喜欢观音音菩萨!就代表你与观音菩萨最有缘,那么就去拜这位菩萨就可以了、不要被什么么本命佛的说法所迷惑!!
属相是我们中国的,是1516按农历来的哈 ?