维丹阁 >风水知识 >生肖运势

VBA编程,由用户输入一个年份,判断是什么生肖,并输出相应的图片

  '定义生肖数组   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年等等都是猴年、猴年出生的生肖都是猴,,流年财位计算

身份证和实际出生年份不一样,所属生肖应也哪一个为准?

  所属生肖一实际出生年份为准....   采纳哦!流年运势不利怎么化解

元旦和春节之间出生的人虚岁按年份算还是按生肖算,比如有的人猪的年份狗的生肖 10分

  中国传统岁数是虚岁,虚岁是按农历算。出生即为1岁、每过一次春节增1岁,虚岁只和过春节有关!和过生日无关,   农历1994年出生!现在是23虚岁。到农历2017年正月初一(9970公历2017年1月28日)是24虚岁,。流年运程2017分析大全

根据标题与图片结合 是什么生肖 除了狗 。 20分

  随时随地秀恩爱!说明是形容爱情的:只羡鸳鸯不羡仙!是一种鸟类的生肖,只有鸡,希望能帮助您。流年风水摆摆什么物品

李请是什么生肖什么年份生的

  这个名字很普通,没有什么名人叫这个名字,例如下面一位、属虎 公历:2010年11月7日14时(星期日) 农历:庚寅年十月初二日未时 春节:2月14日 纳音:松柏木 屋上土 石榴木 沙中金 八字:庚寅 丙戌 辛酉 乙未 五行:金木 火土 金金 木土 生肖:虎,,流年飞星

梁绍壬属什么生肖什么年份

  她的生肖是羊     91年的      都26岁了!流年飞星 布置

生肖属鸡的年份有哪些

  属鸡的年份有   1933   1945   1957   1969   1981   1993   2005   2017   2029   2041,流年飞星与东西四命生肖及年份图片

图片指什么生肖

  这讲的不是什么生肖。而是一头牛畏惧退缩!另一头却因没勇气而不知反抗!。流年飞星与八运飞星





生肖及年份图片的相关推荐

编辑推荐

起名大全