vb代码，选择年份，然后出现对应的生肖，以及动物图片。计算生肖
准备好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
年份对应生肖
可能是公元001年的生肖属性正好是鸡年而不是鼠年，生肖属性的年份应该是从公元前就开始了，毕竟公元是西方的叫法。。 这是为什么减三 加十二是因为十二年一轮，把年份除以十二，就是把每十二年分成一个阶段，比如余数是2，按照上面说的原因要减去3，发现变成了-1，那么就意味着要去前一个12年里面去找，前面一个十二年前去最后一个猪年，那么就是狗年了。。
生肖冲煞是不是所有那个生肖的，不论年份都不好
冲煞只是一个大概范围，不是所有同一生肖都一样 如果是这样的话 那就成了 刻舟求剑 了
生肖冲煞是不是所有那个生肖的，不论年份都不好
冲煞只是一个大概范围，不是所有同一生肖都一样 如果是这样的话 那就成了 刻舟求剑 了
属相是按照年份还是按照时辰来算的.生肖又是按照时辰还是年份算的?
属相不是按公历或者阴历年份来计算的，是按中国传统的干支纪年来算的。比我今年是龙年，但实际要到今年立春以后出生的宝宝才是真正的龙宝宝。
一八七七年属什么生肖年份
1977年是[清]德宗 爱新觉罗载湉 ，光绪3年，是 农历丁丑年，是生肖属牛【牛年】年份。
九二年女的，要和什么年份生肖配对？才合适
1992年是属猴的 根据古代算命术中的说法。（月份都是农历）。 属猴（申7月）与虎（寅1月），是（寅申）相冲，是为（六冲） 属猴（申7月）与猪（亥10月），是（亥申）相害，是为（六害） 所以属猴的与虎、猪是相冲相害的，宜避开。 根据古代算命术中的说法。（月份都是农历）。 属猴（申7月）与蛇（巳4月），是（巳申）相合，是为（六合）， 属猴（申7月）与鼠（子11月）、龙（辰3月）相合，是为（申子辰）三合。 所以属猴的与蛇年、鼠年、龙年是最相配，是最好的。
生肖鸡的年份有那些？你发现了什么？
1981，1993，2005，2017，2029尾数单数
鸡的生肖年份
1921年辛酉鸡年92岁，1933年癸酉鸡年80岁，1945年乙酉鸡年68岁，1957年丁酉鸡年56岁，1969己酉鸡年44岁，1981年辛酉鸡年32岁，1993年癸酉鸡年20岁，2005年乙酉鸡年8岁。
生肖对应号码是固定的吗？
固定的
