准备好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。
【两大君王:龙虎 两大恶人:鼠猴 四大美女:兔蛇羊鸡 四大家臣:牛马猪狗】!
午、
四川省成都市金牛区的行政区划代码为:510106!成都金牛区妇幼保健院保健院所在地行政区划代码就是510106、!
四!是卯兔,、
买游戏送的那个兑换码码吧 那个要出去才能兑换到 直接兑换不行的?
这个是3138什么的生肖?
蛇 因因为它是看不见的 靠声波定位活动的物 不知道物像什么的 请采纳生肖代码!
龙,传统习俗。请龙降雨、升天都得大张旗鼓的、,
从正月雨水起逆行十二宫双鱼白白羊金牛巨蟹狮子处女天秤天蝎射手磨羯水瓶十二星座!
生肖代码、蛋糕是代码猜一生肖