VB代码

ElseIf Text1.text = \"双鱼座\" Then Picture1.Visible = False Picture2.Visible = False Picture3.Visible = False Picture4.Visible = False Picture5.Visible = False Picture6.Visible = False Picture7.Visible = False Picture8.Visible = Ture Picture9.Visible = False Picture10.Visible = False Picture11.Visible = False Picture12.Visible = False Print \"2月19日-3月20日\"

ElseIf Text1.text = \"白羊座\" Then Picture1.Visible = True Picture2.Visible = False Picture3.Visible = False Picture4.Visible = False Picture5.Visible = False Picture6.Visible = False Picture7.Visible = False Picture8.Visible = False Picture9.Visible = False Picture10.Visible = False Picture11.Visible = False Picture12.Visible = False

Print \"3月21日-4月19日\"

ElseIf Text1.text = \"金牛座\" Then Picture1.Visible = False Picture2.Visible = False Picture3.Visible = Ture Picture4.Visible = False Picture5.Visible = False Picture6.Visible = False Picture7.Visible = False Picture8.Visible = False Picture9.Visible = False Picture10.Visible = False Picture11.Visible = False Picture12.Visible = False Print \"4月20日-5月20日\"

ElseIf Text1.text = \"双子座\" Then Picture1.Visible = False Picture2.Visible = False Picture3.Visible = False Picture4.Visible = False Picture5.Visible = False Picture6.Visible = False Picture7.Visible = False Picture8.Visible = False Picture9.Visible = Ture Picture10.Visible = False Picture11.Visible = False Picture12.Visible = False Print \"5月21日-6月21日\"

ElseIf Text1.text = \"巨蟹座\" Then Picture1.Visible = False Picture2.Visible = False Picture3.Visible = False Picture4.Visible = Ture Picture5.Visible = False Picture6.Visible = False Picture7.Visible = False Picture8.Visible = False Picture9.Visible = False Picture10.Visible = False Picture11.Visible = False Picture12.Visible = False Print \"6月22日-7月22日\"

ElseIf Text1.text = \"狮子座\" Then

Picture1.Visible = False Picture2.Visible = False Picture3.Visible = False Picture4.Visible = False Picture5.Visible = False Picture6.Visible = False Picture7.Visible = Ture Picture8.Visible = False Picture9.Visible = False Picture10.Visible = False Picture11.Visible = False Picture12.Visible = False Print \"7月23日-8月22日\"

ElseIf Text1.text = \"处女座\" Then Picture1.Visible = False Picture2.Visible = Ture Picture3.Visible = False Picture4.Visible = False Picture5.Visible = False Picture6.Visible = False Picture7.Visible = False Picture8.Visible = False Picture9.Visible = False Picture10.Visible = False Picture11.Visible = False Picture12.Visible = False Print \"8月23日-9月22日\"

ElseIf Text1.text = \"天枰座\" Then Picture1.Visible = False Picture2.Visible = False Picture3.Visible = False Picture4.Visible = False Picture5.Visible = False Picture6.Visible = False Picture7.Visible = False Picture8.Visible = False Picture9.Visible = False Picture10.Visible = Ture Picture11.Visible = False Picture12.Visible = False Print \"9月23日-10月23日\" ElseIf Text1.text = \"天蝎座\" Then Picture1.Visible = False Picture2.Visible = False

Picture3.Visible = False Picture4.Visible = False Picture5.Visible = False Picture6.Visible = False Picture7.Visible = False Picture8.Visible = False Picture9.Visible = False Picture10.Visible = False Picture11.Visible = False Picture12.Visible = Ture Print \"10月24日-11月22日\" ElseIf Text1.text = \"射手座\" Then Picture1.Visible = False Picture2.Visible = False Picture3.Visible = False Picture4.Visible = False Picture5.Visible = False Picture6.Visible = Ture Picture7.Visible = False Picture8.Visible = False Picture9.Visible = False Picture10.Visible = False Picture11.Visible = False Picture12.Visible = False Print \"12月22日-1月19日\" ElseIf Text1.text = \"摩羯座\" Then Picture1.Visible = False Picture2.Visible = False Picture3.Visible = False Picture4.Visible = False Picture5.Visible = Ture Picture6.Visible = False Picture7.Visible = False Picture8.Visible = False Picture9.Visible = False Picture10.Visible = False Picture11.Visible = False Picture12.Visible = False Print \"12月22日-1月-19日\" End If End Sub