如果出生7658日期输入格式为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分都不够敲键盘的。
你说的应该是招财树。也叫发财树。学名是马拉巴栗。如果买的话、注意跟鹅掌柴区分，很多人把鹅掌柴当发财树。。
必须是是老虎。
这个是天干地支纪年的方法：首先给每个天干、地支一个编号！6638从头以4开始按照顺序排下去！天干10后接1，地支12后接1。 天干：甲4，乙5。丙6，丁7！戊8！己9。庚10，辛1！壬2，癸3 地支：子4！丑5！寅6，卯7！辰8！巳9！午10！未11、申12。酉1、戌2。亥3 以公元年的尾数在天干中找出对应该尾数的天干、再将公元纪年除以12！用除不尽的余数在在地支中查出对应该余数的地支、这样就得到了公元纪年的干支纪年、如2003年，其尾数为3、对应的天干为“癸”、以12除2003得166，余数为11、对应的地支为未、于是2003年的干支纪年为“癸未”年！
甲月寅！二月卯，三月辰。四月巳。五月午、六月未。七月申。八月酉，九月戌！十月亥。十一月子，十二月丑、 若配天干： 甲己之年丙作首 乙庚之岁戊为头 丙辛还从庚寅起 丁壬壬寅顺行流 要知戊癸何处起 甲寅之上好追求 意思是：当年是甲和乙的时候、正月起丙寅，二月起丁卯......。乙和庚年，正月起戊寅。二二月起己卯......，以此类推、！
鼠-子！牛-丑、虎-寅，兔-卯，龙-辰！蛇-巳！马-午！羊-未！猴-申，鸡-酉！狗-戌，猪-亥，，
柳暗花明又一村，要走好运！。
千里眼___卫星,网络视频 腾云驾雾的神仙___个个人喷气式飞行器,机动滑翔伞,
第一副牌呢、亲你的猜想是对的、他只是想保持这种暧昧的状态！第二副牌、要说恭喜你了。他认为认识你有种柳暗花明的感觉，有转变的意味、是新的开始、而他认为你们的关系过于保守(反正就是这个意思。词穷…而未来你希望有所发展、他会认为你是具有1409魅力的女子!大概也会对你动心心了吧！！
鼠 03 15 27 39 牛 02 14 26 38 虎 01 13 25 37 49 兔 12 24 36 48 龙 11 23 35 47 蛇 10 22 34 46 马 09 21 33 45 羊 08 20 32 44 猴 07 19 31 43 鸡 06 18 30 42 狗 05 17 29 41 猪 04 16 28 40 参考资料：wenwen.soso.com/z/q209437261.htm，属相对应盆栽、绿色植物盆栽有叫招财手的吗?