镜5247子=玉盘=月亮=兔子,
兔!主要7927是耳朵太像?。风水立向水口在哪里定
虎!自尊。自敬。。2017羊年运势
'定义生肖数组 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、文件必须7315是保存过的,2,需要把生肖图片放在文件所在文件夹的子文件夹“sxpic"之下 End Sub。八字人生运势旺衰图
6171 照片很多啊、旺财手相
hi.baidu.com/...8.html (生肖守护神 封面)、傅佩荣易经解卦的方法
和生肖肖无关吧!毕竟那麼多奇奇怪怪的东西混进来了、刘三易经风水官方网站
可以吗,望采纳,,放沙发的风水学
8108 那个就是装饰。应该是出bug了 读档重来吧。金钻花卉的风水镜子打一生肖图片
有两种种类型!镶嵌有面值的纪念币卡和没有面值的生肖纪念章卡。、风水秘术民间化解