else没有if是什么错误 我的错误在哪里

Private Sub Command1_Click()
x = Val(Text1.Text)
y = Val(Text2.Text)
Text3.Text = z
Text4.Text = p
Text5.Text = q
If x Mod 400 = 0 Or x Mod 100 <> 0 Then
z = "是闰年'leap year'": flag = 1
Else
If x Mod 400 = 0 Or x Mod 100 <> 0 Then z = "是平年'normal year'": flag = 2
End If
Select Case x
Case x = 1, 3, 5, 7, 8, 10, 12
q = "是31天"
Case y = 2
If flag = 1 Then q = "是29天"
Else
q = "是28天"
End If
Case y = 4, 6, 9, 11
q = "是30天"
End Select

else没有if Else没有If VB程序:else没有if 为什么我的if ...else语句没有反应呢，？ VB编程(IF语句)--Else 没有If 为什么说else没有if 呢 vb为什么老说else没有if 查询页IF代码出问题!没有记录不读取else 下面的IF词句嵌套怎么没有ELSE分支语句？ if else 的结构