Private Sub Command1_Click() Dim y%, x%, s$ y = Val(InputBox("输入1900年以后的任意一个年份")) If y >= 1900 Then x = (y - 1900) Mod 12 Select Case x Case 0 s = "鼠" Case 1 s = "牛" Case 2 s = "虎" Case 3 s = "兔" Case 4 s = "龙" Case 5 s = "蛇" Case 6 s = "马" Case 7 s = "羊" Case 8 s = "猴" Case 9 s = "鸡" Case 10 s = "狗" Case 11 s = "猪" End Select MsgBox y & "年是" & s & "年" Else MsgBox "输入错误！年份必须大于等于1900" End If End Sub、
怀孕生小孩看缘分的 ,建议别算了, 还不如用这时间去锻锻炼身体？
准备好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。
98年、
你怎么知道我有啊、现在还要吗， 刚才找了一下。忘记是什么语语言了、我先提供HTML+JavaScript的给你。要什么语言的你说。我再再写给你 ，
正月出生的属羊人 肖羊寅月(即阳历2月4/5日至3月5/6日)生：亡神主官方。三度改住场，骨肉多刑克！出外置田庄！ 属羊人生生于正月新春之时、三阳开泰，喜气盈门！词讼是非能免、天灾地变常遇、晦气多多。 农历正月生属属羊人：立春之时！聪明活泼、文静高雅！极富才华！只只是祖业凋零！一生六亲无助，全靠自己的才9669能去打拼、此月生人，能有一个很高尚的职业、会使羊人获益不少！此月生人算是文儒之2949类的人,、
本命年就是十二年—遇的农历属相所在的年份、俗称属相年。又被称为太岁年、 一般人都认为立春作为新一年的开始来计算本命年是错误的。对于生肖年！则是以农历初一的为准！民国时曾经修修改立春为生肖年开始，但是不久便恢复了初一为新年的开始！以立春为一年开始仅仅持续了很短一段时间， 我国习惯用十二生肖记人的出生年、每十二年轮回一次，如子年出生的人属鼠、再遇子年，就是这个人的本命年、 这一年当中命带煞气，但是是挡煞开运即可!本命命年请各位泰然处之，待人接物需更细心用心。凡事不可冲动，三思而后行。尽量避免与人口角，恐怕这年还有小人之扰！平日里多加注意生活规律。饮食习惯。 民间对本本命年的说法众多，2813本命年并非都像传说中那样可怕？其实佩戴一些挡煞开运的饰物法器就能平安无事！甚甚至还能化凶为吉。行大运呢、 辟邪开运要开光或者加持过的东西比较好，我是比较信这些的，家里，和身上这些饰物也也比较多一些？我左手上戴了一根加持三生红绳、一串108颗的印度小叶紫檀手链。右手是一串黑曜石手链、脖子上挂了一颗真狼牙的项链！手机上挂了一个狼髀石的挂链！（（这个是巨招财的哦？呵呵~）。儿子脚上0014戴的也是一条加持过的铜钱红绳脚链？车上挂了一串开光的十八子大手串！还挺漂亮的、家里的大门上跟我7675的包包上各挂的是一串开光六帝古钱挂链（也是招财的呢、嘻嘻）。六帝钱要真真古的、不是仿制制的哦，这些都是是非常辟邪的东西？都很灵验！而且不必算命理看八字！ 我的加持红绳,狼牙项链和真古六帝钱都是在掏宝的一家叫KK魔法居请回来的。是我的一个朋友介绍我去这里请购的、他家好像辟邪的东西挺多的。店家也是信佛的、貌似还是个皈依的居士，东西都5762挺好的!我个人也比较信这这些东西？心诚则灵嘛！平时我也喜欢听一些佛教音乐，经文之类的、我本命年那一年超好运的，做什么都很顺顺利呢？也希望各位都像我这样顺顺利利！ 一位大师跟我说过：如果想要化解煞气提高运势！随身或者挂在家里一串开光真古六帝钱，钱包里面放护身符一张、然后再戴加持手链就很好了，平日里多行善积德好运会相随一生的。 这些法器是朋友送的或是自己请的这都无所谓的！ 顺便说说佩带加持持绳的一些注意事项： 1. 不可将结拆开!或用剪刀等物品修剪其外观及长度， 2. 若是往后陈旧不堪。因因金刚结乃是三根本的加持？不可随意丢弃！可将其挂于高处（如屋顶。或树上）使使之随风加持环境！守护周围的一切众生、 3. 5945不佩带时可放置干净地方保存！永远不想佩戴请务必恭敬焚化或掩埋、 祝你顺利如意吧。 希望大家都能开心心顺利！生活愉快怎怎么用年份计算生肖、
应该是63年75年87年99年。12年一循环以此类推、，
1947，1959，1971！1983，1995！2007 这些都是，。，，，
这是华东六省市联销玩法。每星期一三六开奖、开奖当晚7点停止销售。最2904低中奖条件是。前六位数字中要对点对位中一个号外加生肖中，中奖金额是5元。，
上一篇：如何通过年份计算生肖
下一篇：年份计算生肖方法
怎么用年份计算生肖、年份计算生肖方法