Dim b As Integer
Dim a As Integer
a = Text7.Value
b = Text10.Value
If a = 3 And Val(b) >= 21 Then
MsgBox "您是白羊座"
End If
If a = 4 And Val(b) <= 19 Then
MsgBox "您是白羊座"
End If
If a = 4 And Val(b) > 19 Then
MsgBox "您是金牛座"
End If
If a = 5 And Val(b) <= 20 Then
MsgBox "您是金牛座"
End If
If a = 5 And Val(b) > 20 Then
MsgBox "您是双子座"
End If
If a = 6 And Val(b) <= 21 Then
MsgBox "您是双子座"
End If
If a = 6 And Val(b) > 21 Then
MsgBox "您是巨蟹座"
End If
If a = 7 And Val(b) <= 22 Then
MsgBox "您是巨蟹座"
End If
If a = 7 And Val(b) > 22 Then
MsgBox "您是狮子座"
End If
If a = 8 And Val(b) <= 22 Then
MsgBox "您是狮子座"
End If
If a = 8 And Val(b) > 22 Then
MsgBox "您是处女座"
End If
If a = 9 And Val(b) <= 22 Then
MsgBox "您是处女座"
End If
If a = 9 And Val(b) > 23 Then
MsgBox "您是天平座"
End If
If a = 10 And Val(b) <= 23 Then
MsgBox "您是天平座"
End If
If a = 10 And Val(b) > 23 Then
MsgBox "您是天蝎座"
End If
If a = 11 And Val(b) <= 21 Then
MsgBox "您是天蝎座"
End If
If a = 11 And Val(b) > 21 Then
MsgBox "您是射手座"
End If
If a = 12 And Val(b) <= 21 Then
MsgBox "您是射手座"
End If
If a = 12 And Val(b) > 21 Then
MsgBox "您是摩羯座"
End If
If a = 1 And Val(b) <= 19 Then
MsgBox "您是摩羯座"
End If
If a = 1 And Val(b) > 19 Then
MsgBox "您是水瓶座"
End If
If a = 2 And Val(b) <= 18 Then
MsgBox "您是水瓶座"
End If
If a = 2 And Val(b) > 18 Then
MsgBox "您是双鱼座"
End If
If a = 3 And Val(b) <= 20 Then
MsgBox "您是双鱼座"
End If