VB如何连续使用IF语句？

Question

【我是初学者别嫌弃我- -】
我想做一个输入日期和月份然后算出你是什么星座的软件。。
已经做出水瓶座的算法来了。。然后接下来做巨蟹座的，想再设置一个IF，但就是不知道怎么写，用了and else之类的老是报错,END IF 之后再写一个IF也不行。。请问怎么才能办到？
代码如下。
Public
ClassForm1

PrivateSub ndDAY_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ndDAY.ValueChanged

ndDAY.Maximum = 31
ndMONTH.Minimum = 1

EndSub

PrivateSub ndMONTH_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ndMONTH.ValueChanged

ndMONTH.Maximum = 12
ndMONTH.Minimum = 1

EndSub

PrivateSub btnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnC.Click

If ndDAY.Value <= 20 And ndMONTH.Value = 1 + ndDAY.Value <= 18 And ndMONTH.Value = 2 Then

lstout.Items.Add(
"你是水瓶座")

　
　
　
　

EndIf

　

If ndDAY.Value > 22 And ndMONTH.Value = 6 + ndDAY.Value <= 22 And ndMONTH.Value = 7 Then

　
　

EndSub

　
End
Class

【END IF 往下就开始报错了。。求纠正。。】

Answer 1

这种同一条件的判断建议使用Select Case语句更为直观
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim intMonth As Integer, intDay As Integer
intMonth = NumericUpDown1.Value
intDay = NumericUpDown2.Value
Select Case DateSerial(1900, intMonth, intDay)
Case CDate("1900/1/20") To CDate("1900/2/18")
MessageBox.Show("水瓶座")
Case CDate("1900/2/19") To CDate("2012/3/20")
MessageBox.Show("双鱼座")
'接着写Case列举
End Select
End Sub

Answer 2

第二个 IF 结束应该是 END IF

Answer 3

第二个if 没有endif啊