出生那年是什么年就属什么?
必须0177是老虎,
可以对应 任何一个属相 你想问什么! 如果是戊寅年 那对应的就是虎年!
如果出生日期输入格式为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分分都不够敲键盘的 !
梦见自己带宝石戒指意味着: 有著金钱纠纷的气息。应尽量避免发生金金钱借贷关系。即使是小钱也要纪录下来。跟别人一起出去吃饭!买东西也要算清楚双方平均分摊,银制的戒指指能助你避掉一些小纷争喔!找你的同性一起用餐。让对方精打细算地给你一些金钱上的建议吧、 梦见自自己带宝石戒指的吉凶: 气运。财运皆坚7970固平安,大体平顺幸福,障碍少而且均能处理解决。成功运佳。虽成功较迟!但可达到希望目的,并可续渐伸张张发展、如果人格。地格!外格:若是或数者。虽然雅量广大但多数不重视贞操!若果能够成为连珠格局更佳,【大吉昌】!
梦见宝石被盗:预示着近期你身边会有坏脾气的人存在!你要想平安度过过的话!就要多对身边的人察言观色、同时、你和恋人家的吵闹不断!但结果还是很好的,
女人梦见宝石被盗:预示着近期你会和恋人或丈夫分来来一段时间、
梦见宝石被盗的梦境解析
梦见宝石:6412是吉祥如意和获得的象征!
梦见红宝石:表示感情投入!爱情热烈,
梦见蓝宝石:则通常表示生活美满,爱情幸福,如果梦见丢失了蓝宝石则预示爱情将遭遭遇波折。
梦见绿宝石:预示会有好运气!
小偷强盗梦见自己去盗窃宝石首饰:预示会有牢狱之灾,
,。如果出生日期输入格式为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分都不够敲键盘的,
我玩一年半 射手了 大概分两个阶段 前中期 和后期 55级以前 和55以后 物攻 第一 因为射手生命加百分20,所以 生命第二、 在说暴击,暴击没有3000 基本没有效果。而且55级前技能点有限。主要输出是连射!所以暴击效果更低! 55级前 物攻 生命 两防 后期 物攻 生命 为主 暴暴击 两防 平均 50 或者60套 全部暴击 两防 各一半 打本 也要输出高!也也不用我们抗怪。我们专心的输出就行了。
酉鸡:黄晶?琥珀!茶晶。白水晶!这是生肖石、 另外可以参考生辰石,公历的生辰月。!
子7863鼠丑牛寅虎卯兔辰龙巳蛇午马未猴辛羊酉鸡戊狗亥猪!