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年里面去找，前面一个十二年前去最后一个猪年，那么就是狗年了。。
奇门命生肖表是怎样看
你先要把奇门遁甲盘发上来了 我才能帮你分析哈 没有盘我怎么帮你分析呢 起盘很简单的
奇门命生肖表是怎样看
你先要把奇门遁甲盘发上来了 我才能帮你分析哈 没有盘我怎么帮你分析呢 起盘很简单的
生肖属鸡的年份
1933...1945...1957...1969...1981...1993...2005
结婚几年份 分别对应什么婚 分别有什么含义大神们帮帮忙
1年纸婚50年金婚
2016猴年生肖表
正月（庚）寅生肖，二月（辛）卯生肖，三月（壬）辰生肖，四月（癸）巳生肖，五月（甲）午生肖，六月（乙）未生肖，七月（丙）申生肖，八月（丁）酉生肖，九月（戊）戍生肖，十月（己）亥生肖，十一月（庚）子生肖，十二月（辛）丑生肖。
五行属什么是看生肖还是年份？谢谢
是看年份，因为每个属相都包含五种年份，也就是说，同一个属相，它的五行不一定是一样的。
生肖冲煞是不是所有那个生肖的，不论年份都不好
冲煞只是一个大概范围，不是所有同一生肖都一样 如果是这样的话 那就成了 刻舟求剑 了
谁有十神表？如何对应自己出生年月看
通过八字，把自己的八字排出来。天干地支，根据和日主的关系判断十神
