山东省实验中学教科版高中信息技术选修一：2.3程序设计的分支结构 知识要点复习

第三节 程序设计的分支结构 一、行If语句(注意：这种 行if语句 结束没有End If) 行If是指在一行中写完的If语句。其一般格式为： 格式一：If条件Then语句 格式二：If条件 Then 语句 1 Else 语句 2 例1：输入三个不相同的数，求出其中最小数。 Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim Min As Single a = InputBox("输入a", "输入框") b = InputBox("输入b", "输入框") c = InputBox("输入c", "输入框") If a < b Then Min = a Else Min = b If c < Min Then Min = c Print "最小数＝"; Min End Sub 二、块If语句（注意：块If语句结束要有End If） 行If-then语句只能根据条件的真假是否执行一条语句，当Then部分和Else部分包含的内容较多时，则可选用“块If语句”结构。 格式一：If 条件 Then 语句块 End If 例2：当从输入一个数时，当该数大于或等于60时显示"及格"，该数小于60时显示"不及格"。 Private Sub Command1_Click() Dim a As Single a = InputBox("输入a") If a >= 60 Then Print "及格" End If If a < 60 Then Print "不及格" End If End Sub 格式二：If 条件 Then 语句块1 Else 语句块2 End If 例3：编写一程序，求一个一元二次方程ax2+bx+c=0的两个根。 Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim d As Single,x1 As Single,x2As Single