VB编辑的一个小玩意，怎么运行都是错的，搞不懂了~大家帮忙看看哪里错了~
先谢过了~
Private Sub test_Click()
If #12/23/1000# + 365 * n <= Text1.Text <= #1/1/3000# + 365 * n Then
Label1.Caption = "身材纤细，魅力无穷，富感染力，吸引力强，无忧无虑，想象力丰富，给人以愉悦的感觉。略显浮躁，喜爱冒险，敏感，时常陷入爱情，是忠实温柔的情人，喜欢爱人和被爱的感觉，懂得生活，享受今朝 "
Form1.Caption = "苹果树 ( 爱情型 )"
Else
    If #1/2/1000# + 365 * n <= Text1.Text <= #1/11/3000# + 365 * n Then
    Label1.Caption = "品位不凡，威严，略显高深，喜爱一切美丽的事物，易怒，固执，有些利己，但关心接近他的人。谦逊，但非常有野心，有才能，刻苦，是不甚令人满意的伴侣，朋友众多，树敌也多，是可以信赖的人"
    Form1.Caption = "枞树 ( 神秘型 )"
    Else
        If #1/12/1000# + 365 * n <= Text1.Text <= #1/24/3000# + 365 * n Then
        Label1.Caption = "体形优美，穿着有品位，谦逊，高贵，要求高，不原谅他人的过错。天性快乐，喜欢处于领导地位而不是跟从，是诚实可信的伴侣，喜欢为他人出谋划策，慷慨大方，富幽默感，做事切合实际"
        Form1.Caption = "榆树 ( 贵族型 )"
        Else
            If #1/25/1000# + 365 * n <= Text1.Text <= #2/3/3000# + 365 * n Then
            Label1.Caption = "强壮，适应能力强，认命，乐观知足，渴望金钱和他人的承认，不喜孤独，是热情的伴侣，不易满足，但仍然可靠。任性，性情急噪，好追究，粗心"
            Form1.Caption = "柏树 ( 忠诚型 )"
            Else
                If #2/4/1000# + 365 * n <= Text1.Text <= #2/8/3000# + 365 * n Then
                Label1.Caption = "外表精心装饰，不甚自信，偶尔会表现出勇敢的一面，需要处身于友好愉快的氛围，很挑剔，时常孤独，易产生仇恨心理，有艺术家的气质，是很好的组织者，有研究哲学的倾向，在很多情况下是可以信赖的人，对伴侣很重视"
                Form1.Caption = "白杨树 ( 不确定型 )"
                Else
                    If #2/9/1000# + 365 * n <= Text1.Text <= #2/18/3000# + 365 * n Then
                    Label1.Caption = "相貌平平，适应环境的能力强，喜奢侈，身体健康，大方，不害羞，容易看不起他人，过于自信，有决断力，性格浮躁，喜欢引人注目，有才干，刻苦，乐观，果断 ; 等待一生中的真爱的到来"
                    Form1.Caption = "杉树 ( 自信型 )"
                    Else
                        If #2/19/1000# + 365 * n <= Text1.Text <= #2/28/3000# + 365 * n Then
                        Label1.Caption = "喜欢与愉快的人群共伍，非常健康，懂得如何使自己过得舒适，非常活跃，性格天成，是很好的伙伴，很容易陷入爱情，但热度也会转瞬即逝。对任何事常抱失望的态度，除非证实是理想的事物。非常值得信赖，做事实际"
                        Form1.Caption = "松树 ( 讲究型 )"
                        Else
                            If #3/1/1000# + 365 * n <= Text1.Text <= #3/10/3000# + 365 * n Then
                            Label1.Caption = "漂亮但具忧郁气质，有吸引力，喜爱一切美丽的事物，品位佳，喜欢旅游，爱梦想，性格不安定，易反复，但很诚实，容易受人影响和左右，但不易相处，要求高，直觉灵敏，常为情所困，但有时候也是安定的伴侣"
                            Form1.Caption = "柳树 ( 忧郁型 )"
                            Else
                                If #3/11/1000# + 365 * n <= Text1.Text <= #3/20/3000# + 365 * n Then
                                Label1.Caption = "平静地接受生活的给予，不喜斗争，不喜压力和过劳，不喜欢懒散和无所事事，性格温和宽厚，肯为朋友作出牺牲，有才干却不能充分发挥，所以会抱怨，会怨天尤人 ; 有嫉妒心但是性格忠诚"
                                Form1.Caption = "椴树 ( 疑虑型 )"
                                Else
                                    If Text1.Text = #3/21/1000# + 365 * n Then
                                    Label1.Caption = "健康，勇敢，强壮，无情，独立，敏感，不喜变革，脚踏实地，属于行动型"
                                    Form1.Caption = "橡树 ( 勇敢型 )"
                                    Else
                                        If #3/22/1000# + 365 * n <= Text1.Text <= #3/31/3000# + 365 * n Then
                                        Label1.Caption = "有魅力，没有过高的要求，非常理解他人，知道如何给人以深刻印象，为了社会的事业积极的贡献自己的力量。判断力准确，受人欢迎，易怒，性格有时反复无常，仍然是诚实宽容的情人"
                                        Form1.Caption = "榛树 ( 特别型 )"
                                        Else
                                            If #4/1/1000# + 365 * n <= Text1.Text <= #4/10/3000# + 365 * n Then
                                            Label1.Caption = "魅力无穷，天性愉快，不自负，喜欢引人注目，热爱生活，活跃，不安分，集独立和依赖的矛盾统一于一身，品位佳，有艺术气质，热情，情感丰富，是良好的伴侣，但不原谅他人的过错"
                                            Form1.Caption = "花楸树 ( 敏感型 )"
                                            Else
                                                If #4/11/1000# + 365 * n <= Text1.Text <= #4/20/3000# + 365 * n Then
                                                Label1.Caption = "非平凡之辈，具有丰富的想象力和创造力，害羞，沉默寡言，有野心，骄傲，自信 , 总在寻求新的体验，有时候略显神经质，个性复杂，记忆力好，学习能力强，爱情生涯复杂多艰"
                                                Form1.Caption = "枫树 ( 独立型 )"
                                                Else
                                                    If #4/21/1000# + 365 * n <= Text1.Text <= #4/30/3000# + 365 * n Then
                                                    Label1.Caption = "无情，性格出奇，具强烈反差，富激情，常以自我为中心，攻击性强，高贵，眼界广阔，常有意想不到的反应和举止，野心无止境，无韧性，是不易相处的伴侣，不容易被别人喜欢，却常被崇拜。是有清晰头脑的战略家，嫉妒心重，遇事不妥协"
                                                    Form1.Caption = "胡桃树 ( 激情型 )"
                                                    Else

If #5/1/1000# + 365 * n <= Text1.Text <= #5/14/3000# + 365 * n Then
                                                        Label1.Caption = "外表精心装饰，不甚自信，偶尔会表现出勇敢的一面，需要处身于友好愉快的氛围，很挑剔，时常孤独，易产生仇恨心理，有艺术家的气质，是很好的组织者，有研究哲学的倾向，在很多情况下是可以信赖的人，对伴侣很重视"
                                                        Form1.Caption = "白杨树 ( 不确定型 )"
                                                        Else
                                                            If #5/15/1000# + 365 * n <= Text1.Text <= #5/24/3000# + 365 * n Then
                                                            Label1.Caption = "相貌出色，不喜引人注目，有良好的正义感，活泼风趣，天生的外交家可以作到上司的位子。但是在群体中常因不自信和敏感而轻易动怒，有时感到不被人理解。一生中只爱一次，不会轻易找到自己的伴侣"
                                                            Form1.Caption = "栗子树 ( 诚实型 )"
                                                            Else
                                                                If 5 / 25 / 1000# + 365 * n <= Text1.Text <= #6/3/3000# + 365 * n Then
                                                                Label1.Caption = "有着无与伦比的吸引力，活泼冲动，要求多多，不在意别人的批评，有野心，聪明能干，喜欢与命运抗争，容易以自我为中心，是可以完全依靠，值得信赖的人，是可靠和谨慎的情人，有时候理智多过感情，但是对伴侣很重视"
                                                                Form1.Caption = "白蜡树 ( 进取型 )"
                                                                Else
                                                                    If #6/4/1000# + 365 * n <= Text1.Text <= #6/13/3000# + 365 * n Then
                                                                    Label1.Caption = "形象出色，有酷酷的外表，在意自己的外表和条件，品位出众，不自私自利，懂得为自己安排舒适的生活，有理有序，期待从感情丰富的伴侣那里得到关爱和认同，梦想得到不同寻常的情人，对情感很挑剔，对大多数人不信任，对自己的决定总是没有把握，但有责任心"
                                                                    Form1.Caption = "角树 ( 品位绝佳型 )"
                                                                    Else
                                                                        If #6/14/1000# + 365 * n <= Text1.Text <= #6/23/3000# + 365 * n Then
                                                                        Label1.Caption = "非常强壮，独立，有些以自我意愿为中心，不喜矛盾与争论，热爱生活，热爱家庭孩子和动物，富幽默感，喜欢闲适懒散，有实际能力和才智"
                                                                        Form1.Caption = "无花果树 ( 敏感型 )"
                                                                        Else
                                                                            If Text1.Text = #6/24/1000# + 365 * n Then
                                                                            Label1.Caption = "活泼，有吸引力，文雅，友好，不做作，谦逊，不喜过分之举，痛恨庸俗，享受生活本来的自然恬静，不冲动，富有想象力，有些许野心，善于营造安静怡人的氛围"
                                                                            Form1.Caption = "桦树 ( 灵感型 )"
                                                                            Else
                                                                                If #6/25/1000# + 365 * n <= Text1.Text <= #7/4/3000# + 365 * n Then
                                                                                Label1.Caption = "身材纤细，魅力无穷，富感染力，吸引力强，无忧无虑，想象力丰富，给人以愉悦的感觉。略显浮躁，喜爱冒险，敏感，时常陷入爱情，是忠实温柔的情人，喜欢爱人和被爱的感觉，懂得生活，享受今朝"
                                                                                Form1.Caption = "苹果树 ( 爱情型 )"
                                                                                Else
                                                                                    If #7/5/1000# + 365 * n <= Text1.Text <= #7/14/3000# + 365 * n Then
                                                                                    Label1.Caption = "品位不凡，威严，略显高深，喜爱一切美丽的事物，易怒，固执，有些利己，但关心接近他的人。谦逊，但非常有野心，有才能，刻苦，是不甚令人满意的伴侣，朋友众多，树敌也多，是可以信赖的人"
                                                                                    Form1.Caption = "枞树 ( 神秘型 )"
                                                                                    Else
                                                                                        If #7/15/1000# + 365 * n <= Text1.Text <= #7/25/3000# + 365 * n Then
                                                                                        Label1.Caption = "体形优美，穿着有品位，谦逊，高贵，要求高，不原谅他人的过错。天性快乐，喜欢处于领导地位而不是跟从，是诚实可信的伴侣，喜欢为他人出谋划策，慷慨大方，富幽默感，做事切合实际"
                                                                                        Form1.Caption = "榆树 ( 贵族型 )"
                                                                                        Else
                                                                                            If #7/26/1000# + 365 * n <= Text1.Text <= #8/4/3000# + 365 * n Then
                                                                                            Label1.Caption = "强壮，适应能力强，认命，乐观知足，渴望金钱和他人的承认，不喜孤独，是热情的伴侣，不易满足，但仍然可靠。任性，性情急噪，好追究，粗心"
                                                                                            Form1.Caption = "柏树 ( 忠诚型 )"
                                                                                            Else
                                                                                                If #8/5/1000# + 365 * n <= Text1.Text <= #8/13/3000# + 365 * n Then
                                                                                                Label1.Caption = "外表精心装饰，不甚自信，偶尔会表现出勇敢的一面，需要处身于友好愉快的氛围，很挑剔，时常孤独，易产生仇恨心理，有艺术家的气质，是很好的组织者，有研究哲学的倾向，在很多情况下是可以信赖的人，对伴侣很重视"
                                                                                                Form1.Caption = "白杨树 ( 不确定型 )"
                                                                                                Else
                                                                                                    If #8/14/1000# + 365 * n <= Text1.Text <= #8/23/3000# + 365 * n Then
                                                                                                    Label1.Caption = "相貌平平，适应环境的能力强，喜奢侈，身体健康，大方，不害羞，容易看不起他人，过于自信，有决断力，性格浮躁，喜欢引人注目，有才干，刻苦，乐观，果断 ; 等待一生中的真爱的到来"
                                                                                                    Form1.Caption = "杉树 ( 自信型 )"
                                                                                                    Else
                                                                                                        If #8/24/1000# <= Text1.Text <= #9/2/3000# + 365 * n Then
                                                                                                        Label1.Caption = "喜欢与愉快的人群共伍，非常健康，懂得如何使自己过得舒适，非常活跃，性格天成，是很好的伙伴，很容易陷入爱情，但热度也会转瞬即逝。对任何事常抱失望的态度，除非证实是理想的事物。非常值得信赖，做事实际"
                                                                                                        Form1.Caption = "松树 ( 讲究型 )"
                                                                                                        Else
                                                                                                            If #9/3/1000# + 365 * n <= Text1.Text <= #9/12/3000# + 365 * n Then
                                                                                                            Label1.Caption = "漂亮但具忧郁气质，有吸引力，喜爱一切美丽的事物，品位佳，喜欢旅游，爱梦想，性格不安定，易反复，但很诚实，容易受人影响和左右，但不易相处，要求高，直觉灵敏，常为情所困，但有时候也是安定的伴侣"
                                                                                                            Form1.Caption = "柳树 ( 忧郁型 )"
                                                                                                            Else
                                                                                                                If #9/13/1000# + 365 * n <= Text1.Text <= #9/22/3000# + 365 * n Then
                                                                                                                Label1.Caption = "平静地接受生活的给予，不喜斗争，不喜压力和过劳，不喜欢懒散和无所事事，性格温和宽厚，肯为朋友作出牺牲，有才干却不能充分发挥，所以会抱怨，会怨天尤人 ; 有嫉妒心但是性格忠诚"
                                                                                                                Form1.Caption = "椴树 ( 疑虑型 )"

Else
                                                                                                                    If Text1.Text = #9/23/1000# + 365 * n Then
                                                                                                                    Label1.Caption = "喜爱阳光，温暖和温情，理智，均衡，远离攻击和暴力，宽容，快乐，平静，富正义感，敏感，不嫉妒，喜爱阅读，世故老练"
                                                                                                                    Form1.Caption = "橄榄树 ( 智慧型 )"
                                                                                                                    Else
                                                                                                                        If #9/24/1000# + 365 * n <= Text1.Text <= #10/3/3000# + 365 * n Then
                                                                                                                        Label1.Caption = "有魅力，没有过高的要求，非常理解他人，知道如何给人以深刻印象，为了社会的事业积极的贡献自己的力量。判断力准确，受人欢迎，易怒，性格有时反复无常，仍然是诚实宽容的情人"
                                                                                                                        Form1.Caption = "榛树 ( 特别型 )"
                                                                                                                        Else
                                                                                                                            If #10/4/1000# + 365 * n <= Text1.Text <= #10/13/3000# + 365 * n Then
                                                                                                                            Label1.Caption = "魅力无穷，天性愉快，不自负，喜欢引人注目，热爱生活，活跃，不安分，集独立和依赖的矛盾统一于一身，品位佳，有艺术气质，热情，情感丰富，是良好的伴侣，但不原谅他人的过错"
                                                                                                                            Form1.Caption = "花楸树 ( 敏感型 )"
                                                                                                                            Else
                                                                                                                                If #10/14/1000# + 365 * n <= Text1.Text <= #10/23/3000# + 365 * n Then
                                                                                                                                Label1.Caption = "非平凡之辈，具有丰富的想象力和创造力，害羞，沉默寡言，有野心，骄傲，自信 , 总在寻求新的体验，有时候略显神经质，个性复杂，记忆力好，学习能力强，爱情生涯复杂多艰"
                                                                                                                                Form1.Caption = "枫树 ( 独立型 )"
                                                                                                                                Else
                                                                                                                                    If #10/24/1000# + 365 * n <= Text1.Text <= #11/11/3000# + 365 * n Then
                                                                                                                                    Label1.Caption = "无情，性格出奇，具强烈反差，富激情，常以自我为中心，攻击性强，高贵，眼界广阔，常有意想不到的反应和举止，野心无止境，无韧性，是不易相处的伴侣，不容易被别人喜欢，却常被崇拜。是有清晰头脑的战略家，嫉妒心重，遇事不妥协"
                                                                                                                                    Form1.Caption = "胡桃树 ( 激情型 )"
                                                                                                                                    Else
                                                                                                                                        If #11/12/1000# + 365 * n <= Text1.Text <= #11/21/3000# + 365 * n Then
                                                                                                                                        Label1.Caption = "相貌出色，不喜引人注目，有良好的正义感，活泼风趣，天生的外交家可以作到上司的位子。但是在群体中常因不自信和敏感而轻易动怒，有时感到不被人理解。一生中只爱一次，不会轻易找到自己的伴侣"
                                                                                                                                        Form1.Caption = "栗子树 ( 诚实型 )"
                                                                                                                                        Else
                                                                                                                                            If #11/22/1000# + 365 * n <= Text1.Text <= #12/1/3000# + 365 * n Then
                                                                                                                                            Label1.Caption = "有着无与伦比的吸引力，活泼冲动，要求多多，不在意别人的批评，有野心，聪明能干，喜欢与命运抗争，容易以自我为中心，是可以完全依靠，值得信赖的人，是可靠和谨慎的情人，有时候理智多过感情，但是对伴侣很重视"
                                                                                                                                            Form1.Caption = "白蜡树 ( 进取型 )"
                                                                                                                                            Else
                                                                                                                                                If #12/2/1000# + 365 * n <= Text1.Text <= #12/11/3000# + 365 * n Then
                                                                                                                                                Label1.Caption = "形象出色，有酷酷的外表，在意自己的外表和条件，品位出众，不自私自利，懂得为自己安排舒适的生活，有理有序，期待从感情丰富的伴侣那里得到关爱和认同，梦想得到不同寻常的情人，对情感很挑剔，对大多数人不信任，对自己的决定总是没有把握，但有责任心"
                                                                                                                                                Form1.Caption = "角树 ( 品位绝佳型 )"
                                                                                                                                                Else
                                                                                                                                                    If #12/12/1000# + 365 * n <= Text1.Text <= #12/21/3000# + 365 * n Then
                                                                                                                                                    Label1.Caption = "非常强壮，独立，有些以自我意愿为中心，不喜矛盾与争论，热爱生活，热爱家庭孩子和动物，富幽默感，喜欢闲适懒散，有实际能力和才智"
                                                                                                                                                    Form1.Caption = "无花果树 ( 敏感型 )"
                                                                                                                                                    Else
                                                                                                                                                        If Text1.Text = #12/22/1000# + 365 * n Then
                                                                                                                                                        Label1.Caption = "品位不凡，在意自己的形象，唯物主义者，生活和事业井井有条，是出色的领导，不会冒不必要的险，理智，是绝佳的终身伴侣，热衷于身材的保持（瘦身，运动等）"
                                                                                                                                                        Form1.Caption = "榉树 ( 创造型 )"
                                                                                                                                                        End If
                                                                                                                                                    End If
                                                                                                                                                End If
                                                                                                                                            End If
                                                                                                                                        End If
                                                                                                                                    End If
                                                                                                                                End If
                                                                                                                            End If
                                                                                                                        End If
                                                                                                                    End If
                                                                                                                End If
                                                                                                            End If
                                                                                                        End If
                                                                                                    End If
                                                                                                End If
                                                                                            End If
                                                                                        End If
                                                                                    End If
                                                                                End If
                                                                            End If
                                                                        End If
                                                                    End If
                                                                End If
                                                            End If
                                                        End If
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End If
End Sub

没办法啊~
是在卡卡发帖的时候变这德行的~
我自己写的时候都是有空格的