第4章结构课案.pptVIP

第4章 程序结构;第7讲：教材P65～P76;4.1 顺序结构;4.1.1 赋值语句;4.1.2 Print方法（1）;4.1.2 Print方法（2）;4.1.2 Print方法（3）;4.1.2 Print方法（4）;4.1.2 Print方法（5）;4.1.3 With结构（1）;4.1.3 With结构（2）;顺序结构示例;（2）编写代码。双击【计算】按钮，打开代码窗口，输入以下代码： Private Sub cmdCalcu_Click() Dim a As Single, b As Single, c As Single Dim D As Single Dim x1 As Single, x2 As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) D = b * b - 4 * a * c 二次方程求根的判别式 x1 = (-b + Sqr(D)) / (2 * a) 用求根公式计算x1和x2 x2 = (-b - Sqr(D)) / (2 * a) 显示结果，最多保留4位小数 Text4.Text = Format(x1, 0.####) Text5.Tex