准备好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-鼠年、4201对应数组索引0!对应图片 01.jpg End Sub、
问她父母亲、
狗的眼睛最漂亮,很清澈、而且深邃,最难得是那种深邃,不同于猫。猫猫的眼睛是冷峻的!7007狗的眼睛却透着温和、、
0790 好吃懒做的生肖是猪,
门路为前一个。二门指一。三门指二!二门是指一位生肖,
题题目是啥 ............白小姐生肖动物图片,
蛇蛇狗牛龙 特肖 这个六合无绝对,谨慎娱乐 hk6888点坑 能打赢赢就打、打不赢就跑,学会急转弯、学会调头、 回答合意请给采纳谢谢、
十二生肖里面不长毛的生肖只有龙,蛇,
拉布拉拉多犬、
宰相肚子里能撑船!古有相门有有相指的宰相家里出宰相,子承父业、里面的字就是指的十二生肖之首!鼠、所以最宽宏大量2455的就是鼠?谢谢望采纳,
白小姐生肖动物图片、白小姐打什么生肖