下载源程序

●逐步说明：
　　我们先给出完整的程序，然后再逐一讲解：

　　1）界面上有五个文本框，从上到下，从左到右的变量名依次为：a、b、c、x1、x2，属性为：

　　2）双击计算按钮，切换到Actions选项卡，里面的程序为：
On (Press, Key: )
　Set Variable: "determinant" = (b*b)-(4*a*c)
　If (determinant<0)
　　Begin Tell Target ("wujie")
　　　Go to and Play (2)
　　End Tell Target
　Else
　　Set Variable: "n1" = 1
　　Set Variable: "loop1" = 0
　　Loop While (loop1<100)
　　　Set Variable: "n1" = n1-(n1*n1-determinant)/(2*n1)
　　　Set Variable: "loop1" = loop1+1
　　End Loop
　　Set Variable: "top" = -(b)+n1
　　Set Variable: "finish" = top/(2*a)
　　Set Variable: "x1" = finish
　　Set Variable: "n2" = 1
　　Set Variable: "loop2" = 0
　　Loop While (loop2<100)
　　　Set Variable: "n2" = n2-(n2*n2-determinant)/(2*n2)
　　　Set Variable: "loop2" = loop2+1
　　End Loop
　　Set Variable: "top1" = -(b)-n2
　　Set Variable: "finish1" = top1/(2*a)
　　Set Variable: "x2" = finish1
　End If
End On
　　表示如（b*b-4*ac）大于0，则计算两个根，并分别在X1和X2文本框中输出，如小于0，则从第2帧开始播放实体名称为“wujie”的电影。
　　3）界面上的小圆圈即为实体名称为“wujie”的Movie Clip，用鼠标右键点击它，在弹出的菜单中选择Edit项，

进入该Movie Clip编辑模式，该Movie Clip即为方程无解时，显示“无解”字样。
　　4）点击等时线窗口左上角的按钮，切换到场景1，双击清除按钮，切换到Actions选项卡，里面的程序为：

　　即把所有的文本框都清空。