学进去

星座问题：已知十二星座的名称和起始日期，根据身份证号码来计算星座名称。具体功能如下：在文本框Texti中输入身份证号码，单击“计算”按钮Cmd1，在标签Label2中显示星座名称。程序运行界面如图所示。
                            
（1）结合题目描述，程序中①处应填入的内容是___________。
（2）实现上述功能的VB程序如下，请在②③划线处填入合适的代码。
Private Sub  ①  Click()
Dim sfz As String, Csny As String, str1 As String, str2
As String
Dim i As Integer, t As Integer, sl As String
sfz =Text1.Text
str1-="012002190321042005210622072308230923102411231222"
str2="水瓶座、双鱼座、白羊座、金牛座、双子座、巨蟹,座、狮子座、处女座、天秤座、天蝎座、射手座、摩羯座"
Csny = Mid(sfz, 11, 4)
If Len(sfz)= 18 Then

If Csny <"0122"Then Csny ="13"+ Mid(Csny, 3, 2)

i=1

Do While i <= 45

s1 = Mid(str1, i, 4)
If i= 45 Then s2="9999"Else s2 = Mid
(str1, i +4, 4)
If Csny >=s1.And Csny <s2 Then

②______

i= Len(str1)

End If
③_____
Loop
Label2.Caption ="你的星座为"+Mid(str2, t, 3)
Else
Label2.Caption ="你输入的身份证号码不正确!"
End If
（3）若文本框Text1中输入“33052220050101218X”，根据算法，星座为______。