理论-5顺序与分支结构.ppt

1、第五讲 顺序与分支结构,顺序结构 分支结构,单分支if 双分支ifelse 条件嵌套 多分支select case,注释语句,用来辅助读者阅读程序。以撇号 开头，可以单独成段，也可以用在某个语句的后面，代码窗口中显示为绿色。,一、顺序结构,按语句在程序中的先后次序执行。 主要语句包括声明语句、赋值语句、数据的输入/输出语句和注释语句。,语句1,语句2,语句3,. . .,P223例5.3,输入华氏温度，要求输出摄氏温度。公式为： C=5*（F-32）/9 利用一个窗体的单击事件，进行输入与计算，并输出。,Private Sub Form1_Click(ByVal sender As Objec

2、t, ByVal e As System.EventArgs)_ Handles Me.Click Dim Sin_f As Single, Sin_c As Single Sin_f = InputBox(请输入华氏温度：, 输入窗口) Sin_c = 5 * (Sin_f - 32) / 9 Label1.Text = Sin_c End Sub,Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs)_ Handles Me.Click Dim Sin_f As Single, Sin_c A

3、s Single Sin_f = InputBox(请输入华氏温度：, 输入窗口) Sin_c = 5 * (Sin_f - 32) / 9 sin_c=format(sin_c,#.#) Label1.Text = 转换后的摄氏温度为：+Cstr(Sin_c) End Sub,P223例5.3修改界面,补充思考问题1：将数字转换为大写汉字,二、分支结构,根据选择中的条件判断结果，选择要执行的语句。 程序中的选择结构通常用条件(分支)语句实现。,2.1 单分支ifthen语句,语句格式： if then End if,条件,Y,N,P224例5.4,一元二次方程： 若A=2，B=9,C=3，判

4、断求解。,Private Sub Form1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Click Dim A As Single, B As Single, C As Single, Delta As Single A = 2 : B = 9 : C = 3 Delta = B 2 - 4 * A * C If Delta = 0 Then 通过Delta来判断有解 Label1.Text = (-B + Math.Sqrt(Delta) / (2 * A) Label

5、2.Text = (-B - Math.Sqrt(Delta) / (2 * A) End If end sub,2.2 双分支结构ifthenelse,语句格式： if then Else End if,条件,Y,ENDIF,N,流程图：,P224例5.5,求任意一元二次方程： 判断是否有解，若有解并求解的结果。,Private Sub Form1_Click(ByVal sender As Object, ByVal _ e As System.EventArgs) Handles Me.Click Dim A As Single, B As Single, C As Single, De

6、lta As Single A = InputBox(请输入系数A, 系数输入) B = InputBox(请输入系数B, 系数输入) C = InputBox(请输入系数C, 系数输入) Delta = B 2 - 4 * A * C If Delta = 0 Then Label1.Text = (-B + Math.Sqrt(Delta) / (2 * A) Label2.Text = (-B - Math.Sqrt(Delta) / (2 * A) Else Label1.Text = 一元二次方程无实解 Label2.Text = End If End sub,2.3 条件嵌套结构,

7、语句格式： if then ifthen End if End if,P225例5.6,求任意一元二次方程： 判断根判别式是否小于零、等于零、大于零三种情况，并显示求解的结果。,Delta = B 2 - 4 * A * C If Delta = 0 Then If Delta = 0 Then Label1.Text = 只有一个根! Label2.Text = -B / (2 * A) Else Label1.Text = (-B + Math.Sqrt(Delta) / (2 * A) Label2.Text = (-B - Math.Sqrt(Delta) / (2 * A) End

8、If Else Label1.Text = 无实解！ Label2.Text = End If,2.4 多分支结构Select Case,语句格式 Select Case Case Case Case Else End Select,流程图,Select CASE,条件1,Y,语句块1,条件2,N,Y,语句块2,N,条件N,Y,语句块N,N,Case Else,Y,语句块N+1,END Select,P225例5.6,求任意一元二次方程： 判断根判别式是否小于零、等于零、大于零三种情况，并显示求解的结果。,Delta = B 2 - 4 * A * C Select case Delta Ca

9、se 0 Label1.Text = 只有一个根! Label2.Text = -B / (2 * A) Case 0 Label1.Text = (-B + Math.Sqrt(Delta) / (2 * A) Label2.Text = (-B - Math.Sqrt(Delta) / (2 * A) Case else Label1.Text = 无实解！ Label2.Text = End Select,补充思考问题2：将数字转换为大写汉字如果用多分支结构，可以怎样实现？,补充思考问题3：通过点击标签控件来实现标签文字颜色红、绿、蓝循环往复。,Public Class Form1 Public flag As Integer = 1 Private Sub Label1_Click(ByVal sender As Object, ByVal_ e As System.EventArgs) Handles Label1.Click flag = flag + 1 Select Case flag Mod 3 Case 1 Label1.ForeColor = Color.Red Case 2 Label1.ForeColor = Color.Green Case 0 Label1.ForeColo