用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_xingzuo > 112 And dd_xingzuo < 221 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 <