12生肖` 鼠.牛.虎.兔.龙.蛇.马.羊.猴.鸡.狗.猪. 现在是2008年.猪年.自己往下数或者上推`每个生肖12年轮一次
1鸡2017年/2猴2018年/3羊2019年/4马2020年/5蛇2021年/6龙2022年/7兔2023年/8虎2024年/9牛2025年/10鼠2026年/11猪2027年/12狗2028年
准备好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
发射导弹底单
月黑风高狗
正月寅;二月卯;三月辰;四月巳;五月午;六月未;七月申;八月酉;九月戌;十月亥;十一月子;十二月丑。
美国对婚龄的说法:1年一纸婚;2年一布婚;3年一皮婚;4年一丝婚;5年一木婚;6年一铁婚;7年一铜婚;8年一电婚;9年一陶婚;10年一锡婚;11年一钢婚;12年一亚麻婚;13年一花边婚;14年一象牙婚;15年一水晶婚;20年一瓷婚;25年一银婚;30年一珍珠婚;35年一玉婚;40年一红宝石婚;45年一蓝宝石婚;50年一金婚;60年一钻石婚。 法国对婚龄的说法:1年一棉婚;2年一皮婚;3年一麦婚;4年一蜡婚;5年一木婚;6年一铜婚;7年一羊毛婚;8年一虞美人婚39年一陶婚;10年一锡婚;11年一珊瑚婚;12年一丝婚;13年一铃兰婚;14年一铅婚;15年一水晶婚;16年一蓝宝石婚;17年一玫瑰婚;18年一绿松石婚;19年一印花婚;20年一瓷婚;21年一乳白石婚;22年一青铜婚;23年一绿玉婚;24年一萨丁婚;25年一银婚;26年一玉婚;27年一桃花心木婚;28年一镍婚;29年一绒婚;30年一珍珠婚;31年一羊皮婚;32年一紫铜婚;33年一斑岩婚;34年一琥珀婚;36年一梅斯林婚;37年一纸婚;38年一水银婚;39年一绉纱婚;40年一祖母绿婚;41年一铁婚;42年一珠质婚;43年一法兰绒婚;44年一黄玉婚;45年一朱红婚;46年一薰衣草婚;47年一开斯米婚;48年一紫晶婚;49年一雪松婚;50年一金婚;60年一钻石婚;70年一白金婚;75年一白石婚;80年一橡树婚。 英国对婚龄的说法:1年一纸婚;5年一木婚;10年一锡婚;12年一皮革婚;20年一瓷婚;25年一银婚;30年一象牙婚;40年一绒毛婚;45年一丝绸婚;50年一金婚;75年一钻石婚。 俄罗斯对婚龄的说法:1年一花布婚;5年一木婚;6年一锌婚;7年一铜婚;8年一白木婚;40年一银婚;50年一金婚;60年一钻石婚;67年一石婚;70年一福婚;75年一王冠婚。 日本对婚龄的说法:2年一纸婚;5年一木婚;10年一锡婚;15年一水晶婚;20年一陶婚325年一银婚;30年一珍珠婚;35年一珊瑚婚;40年一红玉婚;50年一金婚;75年一金刚石婚。 另外在朝鲜,夫妻结婚60周年称为“四婚”
刘三姐是唱山歌的,十二生肖谁唱歌最好听啊。 鸡
中央戊己杏黄旗----土, 东方青莲宝色旗----木穿 南方离地焰光旗----火 西方素色云界旗----金 北方玄元控水旗----水
好象是七窍对吧我就说八卦五行对应人体吧可以吗乾卦金五行对应大肠、首兑卦金五行对应肺、口离卦火五行对应心、目震卦木对应肝、足巽卦木对应胆、股坎卦水对应肾、耳艮卦土对应胃、手坤卦土对应脾、腹