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
生肖分别对应的年份从1990年起的
1990年马 1991年羊 1992年猴 1993年鸡 1994年狗 1995猪 1996鼠 1997牛 1998虎 1999兔2000龙 2001蛇 之后又从马开始轮回 02年马 03年羊 04年猴 05年鸡 06年狗 07猪 08鼠 09牛 10虎 11兔 12龙 13蛇 14马 15羊
十二生肖里对应的是哪个生肖
天干地支简称“干支”，十天干：甲（jiǎ）、乙( yǐ)、丙(bǐng)、丁(dīng)、戊(wù)、己(jǐ)、庚(gēng)、辛(xīn)、壬(rén)、癸(guǐ) ；十二地支：子(zǐ)、丑(chǒu)、寅(yín)、卯(mǎo)、辰(chén)、巳(sì)、午(wǔ)、未(wèi)、申(shēn)、酉(yǒu)、戌(xū)、亥(hài)（注：十二地支对应十二生肖——子：鼠；丑：牛；寅：虎；卯：兔；辰：龙；巳：蛇； 午：马；未：羊；申：猴；酉：鸡；戌：狗；亥：猪。）。十干和十二支依次相配，组成六十个基本单位，古人以此作为年、月、日、时的序号，叫“干支纪法”。
十二生肖里对应的是哪个生肖
天干地支简称“干支”，十天干：甲（jiǎ）、乙( yǐ)、丙(bǐng)、丁(dīng)、戊(wù)、己(jǐ)、庚(gēng)、辛(xīn)、壬(rén)、癸(guǐ) ；十二地支：子(zǐ)、丑(chǒu)、寅(yín)、卯(mǎo)、辰(chén)、巳(sì)、午(wǔ)、未(wèi)、申(shēn)、酉(yǒu)、戌(xū)、亥(hài)（注：十二地支对应十二生肖——子：鼠；丑：牛；寅：虎；卯：兔；辰：龙；巳：蛇； 午：马；未：羊；申：猴；酉：鸡；戌：狗；亥：猪。）。十干和十二支依次相配，组成六十个基本单位，古人以此作为年、月、日、时的序号，叫“干支纪法”。
生肖是按公历年份还是农历年份呢？
当然是按公历！但农村一般按农历，我个人觉得不准。要是生到润月怎么办？例如润五月，好多年才有一次润五月，你不可能每年按六月或是五月来过吧？要是按农历五月来过，假如你有一远房哥，他是五月二号的，你是润五月一号的，你不可能每年比你哥还早过生日吧？
怎么计算12生肖的年份
一轮十二年，一个甲子六十年！
12生肖排列，年份
鼠牛虎兔龙蛇马羊猴鸡狗猪，年份？
一八七七年属什么生肖年份
1977年是[清]德宗 爱新觉罗载湉 ，光绪3年，是 农历丁丑年，是生肖属牛【牛年】年份。
出水芙蓉对应什么生肖
芙蓉是指荷花。指牛肖但不一定是大牛，小心五行水上面的牛啊。
12生肖对应的月份
正月寅；二月卯；三月辰；四月巳；五月午；六月未；七月申；八月酉；九月戌；十月亥；十一月子；十二月丑。
