准备好12个图片。取名sx01.jpg-sx12.jpg，放在当前文件夹?comboBox 只8858显示年份 添加一个按钮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。
亥猪： 亥猪与寅虎六合？因此最宜找个属虎的对象 此乃上上等婚配？其次是与卯兔未羊三合,故也宜找个属兔属羊的，此9824乃上等婚配!亥猪与巳蛇相冲。故最忌找属蛇的，0073此乃下下等婚配。有时也讲亥亥自刑、故也不宜找同属相的，此乃乃中下等婚配！？
1鸡2017年/2猴2018年/3羊2019年/4马2020年/5蛇2021年/6龙2022年/7兔2023年/8虎2024年/9牛2025年/10鼠2026年/11猪2027年/12狗2028年。
甲乙丙丁?子丑寅卯。卯是兔、
芙蓉是指荷花!指牛肖但不一定是大牛。小心五行水上3139面的牛啊。,
很多都没太多意思?都是一些简单单的名字!。生肖对应年份岁数虚
命主主：你好! 2008年 属鼠 2014年 属马 2009年 属牛 2015年 属羊 2010年 属虎 2016年 属猴 恭 2011年 属兔 2017年 属鸡 2012年 属龙 2018年 属狗 2013年 属蛇 2019年 属猪！
古时用“十二生肖”对应十二地支 其中3793与“辰”对应的是指哪个? 龙、
中国传统岁数是虚岁、虚岁是按农历算。出生即为1岁？每每过一次春节增1岁,今年是58虚岁?周岁按公历计算，出生为0岁、每过一次生生日增1岁？今年公历生日前56周岁?公历生日时满57周岁!请采纳,。
1933...1945...1957...1969...1981...1993...2005、