子,丑,寅,卯,辰,巳,午,未,申,酉,戌,亥。
1900年是鼠年抚十二年一轮。用年份除十二,余数减三,得数为十二生肖的排位。(鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪)如2011年,用2011除以12余7,7再减三等于4即为兔年。
蛇年:金蛇剑 模型:狂花乱舞 马尿:驹马斧 模型:狂风斧
蛇年:金蛇剑 模型:狂花乱舞 马尿:驹马斧 模型:狂风斧
(2008-1979)÷12,=29÷12,=2…5,所以2008年是鼠年.答:2008年是鼠年.
2016年是猴年;是按:猴、鸡、狗、猪、鼠、牛、虎、兔、龙、蛇、马、羊
准备好12个图片,取名sx01.jpg-sx12.jpg,放在当前文件夹。comboBox 只显示年份,添加一个按钮Command1 Dim strSxName Private Sub Command1_Click() Dim dd As Long '计算选择的年份和标准年份的差值 dd = (dateDiff("yyyy", #1/1/2020#, DateSerial(Combo1.Text, 1, 1)) Mod 12 + 12) Mod 12 Text1.Text = strSxName(dd) '载入对应的图片 Image1.Picture = LoadPicture(App.Path & "\" & Format(dd+1, "00") & ".jpg") End Sub Private Sub Form_Load() '初始化数组 strSxName = Array("鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊", "猴", "鸡", "狗", "猪") '找到一个已知生肖的年份作为标准年份:2020-鼠年,对应数组索引0,对应图片 01.jpg End Sub
子丑寅卯,辰巳午未,申酉戍亥 对应:鼠牛虎兔,龙蛇马羊,猴鸡狗猪 手打,望采纳
1981,1993,2005,2017,2029尾数单数
98年