Event form1.Butt01.Click If form1.Butt01.BackColor="008000" then　　//以按钮颜色判定 form1.Butt01.BackColor="FF0000"　　　//变换颜色 form1.Butt01.caption = "《停止占星》"　//改按钮名称为正在运行，并随时点击停止 线程ID01 = BeginThread(鬼谷占星)　　//以线程方式启动过程　　鬼谷占星（） Else form1.Butt01.BackColor="008000"　　　//恢复颜色 form1.Butt01.caption = "【鬼谷占星】"　//恢复按钮名称 StopThread 线程ID01　　//结束线程 End if End Event－－－－－－－－－－－－－－－－－－－Sub 鬼谷占星() call 全局变量设置("1","D")　　　 占星次数 = Clng(Form1.InputBox2.text)　　//通过界面设置参数 占星方式 = Clng( Form1.ComboBox13.ListIndex ) //通过界面设置参数 Call Lib.子程序.自动占星(占星方式,占星次数)　　//过程子程序 form1.Butt01.BackColor="008000" form1.Butt01.caption = "【鬼谷占星】" call 全局变量设置("0","D")End Sub