'定义生肖数组
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,