生肖查年份代码vb 查看年份生肖( 二 )

End Sub
vb代码，选择年份fèn，然后出现对应的生肖，以及动物图片。计算生肖Option Explicit
Private Sub Change_Pic()
'本子程序将年份fèn数字转化为生肖：
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
'在左侧图像框显示文wén字
Picture2.Print strSX"年"
'在右侧图像框显示图片。事先要将准备好的生肖图片以生肖名命名，如“猴.jpg”等，放在
'应用程序所在的文wén件夹中。
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
关于生肖查chá年份fèn代码vb和查chá看年份fèn生肖的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。