驴友阁 >风水知识 >生肖运势

vb程序:用inputBox输入的生日,通过MsgBox输出其对应的年龄,出生季节和属相

  如果出生日期输入格式为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分都不够敲键盘的、

vb程式:用inputBox输入的生日,通过MsgBox输出其对应的年龄,出生季节和属相

如果出生日期输入格式为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叫五更亮答案应该是鸡,

双色球16个蓝球所对应的生肖

  凭我10几年的购彩经验、这根本没用的。是你自己心理作用 !你要用生肖的话!建议你买东方6+1(生肖)。  3889   生肖只有12个。蓝球16个!怎么对应啊,

水果篮子中12生肖各对应的人物是哪些?

  十二生肖所有人的资料     草摩由希 (子)     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按农历来的哈   ?


展开全文