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生肖的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。  

• 白血病一般有多长时间的潜伏期 血常规能查出白血病吗
• 8岁女儿患上了糖尿病 糖尿病疾病查房ppt
• 检查身体必须体检的有哪几项 男性体检必选的项目
• 邯郸人被排查的日子里 邯郸市男性健康
• 查体甘油三酯60 血糖7.0要吃药吗
• 身体发热是咋回事 感染性发热护理查房
• 糖足患者该如何运动 糖尿病足查房护理问题
• 胰腺怎么检查最准 胰在哪个位置详图
• 尖锐湿疣潜伏期可以有一年多吗 尖锐湿疣潜伏期检查出来
• 为什么要空腹 胆固醇检查前注意事项