vb代码，选择年份，然后出现对应的生肖，以及动物图片。计算生肖

Option Explicit

Private Sub Change_Pic()

'本子程序将年份数字转化为生肖：

Dim intSX As Integer ‘表示生肖的数字

Dim strSX As String ’表示生肖的字符

Picture2.Cls

intSX = Val(Combo1.Text) Mod 12

Select Case intSX

Case 0

strSX = "猴"

Case 1

strSX = "鸡"

Case 2

strSX = "狗"

Case 3

strSX = "猪"

Case 4

strSX = "鼠"

Case 5

strSX = "牛"

Case 6

strSX = "虎"

Case 7

strSX = "兔"

Case 8

strSX = "龙"

Case 9

strSX = "蛇"

Case 10

strSX = "马"

Case 11

strSX = "羊"

End Select

'在左侧图像框显示文字

Picture2.Print strSX &"年"

'在右侧图像框显示图片。事先要将准备好的生肖图片以生肖名命名，如“猴.jpg”等，放在

'应用程序所在的文件夹中。

Picture1.Picture = LoadPicture(App.Path &"\" &strSX &".jpg")

End Sub

Private Sub Combo1_Change()

If Len(Combo1.Text) = 4 And IsNumeric(Combo1.Text) Then

Call Change_Pic

Else

Picture1.Cls

Picture2.Cls

End If

End Sub

Private Sub Combo1_Click()

Call Change_Pic

End Sub

Private Sub Form_Activate()

Call Change_Pic

End Sub

Private Sub Form_Load()

Dim i As Integer

For i = 1901 To 2300

Combo1.AddItem (i)

Next

Combo1.Text = Year(Now)

End Sub

首先要确定当年是农历什么年。一般只看后面的那个字，因为生肖属相是据此来决定的，他是按|子鼠、丑牛、寅虎、卯兔、辰龙、巳舍、午马、未羊、申猴、酉鸡、戌狗、亥猪的顺序排列的。一轮是十二年。所以，当鼠年生的孩子，在代下一个鼠年时，刚好是十三岁。

计算的时候，首先根据属相算出这个属相离当年的生肖有多少年

举例来说，今年是丁亥年，是猪年。如果某人属鼠，鼠离亥是十二年。那这人的年龄只有几种可能：12岁；24岁；36岁；48岁；56岁；68岁；70岁；82岁；94岁等。

计算时，先要问清属相，还得问清是几轮否则，光靠一般的计算法是算不出来的。

如果不问别人的生肖轮，就只有按干支纪年的办法来计算，不过一般人只能记得他的生肖，记不住他出生的干支年，再说计算者也不一定能记得那么多的干支年，只好借助历史纪元表之类工具书了。

---