'定义生肖数组 Dim sx '以下两行按需求任选一行使用 sx = Split("鼠,牛,虎,兔,龙,蛇,马,羊,猴,鸡,狗,猪", ",") 'sx = Split("子鼠,丑牛,寅虎,卯兔,辰龙,巳蛇,午马,未羊,申猴,酉鸡,戌狗,亥猪", ",") '在TextBox1中输入年份、 'TextBox1限制输入字数为4(属性MaxLength=4)且只能输入数字(代码) Private Sub TextBox1_KeyPress(ByVal KeyAscii As Integer) If KeyAscii、vbKey9 Then KeyAscii = 0 End Sub ‘使用CommandButton1计算生肖索引、在Label1显示生肖名称。在Image1显示生肖图片 Private Sub CommandButton1_Click() Dim sxIndex As Integer sxIndex = Abs(inYear - 1900) Mod 12 '计算生肖名称索引!1900是鼠年的年份数 Label1 = sx(sxIndex) '显示生肖名称 Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\sxpic\sx" & sxIndex & ".jpg") '显示生肖图片!生肖图片使用像““sx0.jpg”这样的文件名?要求:1、文件必须须是保存过的。2,需要把生肖图片放在文件所在文件夹的子文件夹“sxpic"之下 End Sub!
生肖属相是以二十四节气里的立春为界、例如兔与龙,农历的出生时间是在立春之前。那么你的生肖属相就是兔。在立春之后就是龙!这取决于当年的立0133春是在哪一天!不要管什么阳历、这是中国的传统4195文化当然是按老黄历的。流年财位能摇鱼缸吗
1908年。1920年。1932年、1944年!1956年、1968年、1980年。1992年,2004年!2016年、2028年、2040年!2052年。2064年、2076年,2088年。2100年等等都是猴年、猴年出生的生肖都是猴,,流年财位计算
所属生肖一实际出生年份为准.... 采纳哦!流年运势不利怎么化解
中国传统岁数是虚岁,虚岁是按农历算。出生即为1岁、每过一次春节增1岁,虚岁只和过春节有关!和过生日无关, 农历1994年出生!现在是23虚岁。到农历2017年正月初一(9970公历2017年1月28日)是24虚岁,。流年运程2017分析大全
随时时随地秀恩爱!说明是形容爱情的:只羡鸳鸯鸯不羡仙!是一种鸟类的生肖,只有鸡,希望能帮助您。流年风水摆摆什么物品
这个名字很普通,没有什么名人叫这个名字,例如下面一位、属虎 公历:2010年11月7日14时(星期日) 农历:庚寅年十月初二日未时 春节:2月14日 纳音:松柏木 屋上土 石榴木 沙中金 八字:庚寅 丙戌 辛酉 乙未 五行:金木 火土 金金 木土 生肖肖:虎,,流年飞星
她的生肖是羊 91年的 都26岁了!流年飞星 布置
属鸡的年份有 1933 1945 1957 1969 1981 1993 2005 2017 2029 2041,流年飞星与东西四命生肖及年份图片
这讲的不是什么生肖。而是一头牛畏惧退缩!另另一头却因没勇气而不知反抗!。流年飞星与八运飞星