生肖查年份代码vb 查看年份生肖

今天给各位分享生肖查chá年份fèn代码vb的知识，其中也会对查chá看年份fèn生肖进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！
本文wén目录一览：一个查chá询十二生肖的应用程序代码怎么写vb最简单的方法是：
1）把12生肖资料放入字符串变量保存。
2）用instr进行查chá找，用mid函数进行截取。
3）用文wén本框显示截取内容。
我想做一个VB程序编辑，就是你输入相应的年份fèn，会自动回复相应的属相。关于十二生肖的。theyear = Val(InputBox("请输入年份fèn"))
sx = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
ty = (theyear - 1960) Mod 12'1960年是鼠年，以此为基准
If ty0 Then ty = ty + 12'如果theyear1960会得到负数，在此校正
MsgBox Mid(sx, ty + 1, 1)

文章插图
用VB语言编写输入出生日期算出生肖与星座的程序'新建窗体form1
'添加控件 DTPicker1，Command1
Private Sub Command1_Click()
Dim aa As Integer
Dim bb As Integer
Dim cc As Integer
Dim dd_xingzuo As Integer
Dim dd_shengxiao As Integer
Dim leirong As String
bb = DTPicker1.Month
aa = DTPicker1.Day
cc = DTPicker1.Year
dd_xingzuo = (bb * 100 + aa)
dd_shengxiao = cc Mod 12
If dd_xingzuo112 And dd_xingzuo221 Then
leirong = "星座：水瓶座"
End If
If dd_xingzuo = 221 And dd_xingzuo = 321 Then
leirong = "星座：双鱼座"
End If
If dd_xingzuo = 322 And dd_xingzuo = 420 Then
leirong = "星座：白羊座"
End If
If dd_xingzuo = 421 And dd_xingzuo = 521 Then
leirong = "星座：金牛座"
End If
If dd_xingzuo = 522 And dd_xingzuo = 621 Then
【生肖查年份代码vb 查看年份生肖】leirong = "星座：双子座"
End If
If dd_xingzuo = 622 And dd_xingzuo = 721 Then
leirong = "星座：巨蟹座"
End If
If dd_xingzuo = 722 And dd_xingzuo = 821 Then
leirong = "星座：狮子坐"
End If
If dd_xingzuo = 822 And dd_xingzuo = 921 Then
leirong = "星座：处女座"
End If
If dd_xingzuo = 922 And dd_xingzuo = 1021 Then
leirong = "星座：天秤座"
End If
If dd_xingzuo = 1022 And dd_xingzuo = 1121 Then
leirong = "星座：天蝎座"
End If
If dd_xingzuo = 1122 And dd_xingzuo = 1221 Then
leirong = "星座：射手座"
End If
If dd_xingzuo = 1222 Or dd_xingzuo = 111 Then
leirong = "星座：摩羯座"
End If
Select Case dd_shengxiao
Case 0
leirong = leirongvbCrLf"身肖：猴"
Case 1
leirong = leirongvbCrLf"身肖：鸡"
Case 2
leirong = leirongvbCrLf"身肖：狗"
Case 3
leirong = leirongvbCrLf"身肖：猪"
Case 4
leirong = leirongvbCrLf"身肖：鼠"
Case 5
leirong = leirongvbCrLf"身肖：牛"
Case 6
leirong = leirongvbCrLf"身肖：虎"
Case 7
leirong = leirongvbCrLf"身肖：兔"
Case 8
leirong = leirongvbCrLf"身肖：龙"
Case 9
leirong = leirongvbCrLf"身肖：蛇"
Case 10
leirong = leirongvbCrLf"身肖：马"
Case 11
leirong = leirongvbCrLf"身肖：羊"
End Select
MsgBox leirong, vbInformation, "计算结果"