课题行If语句.doc

课题： If语句 教学要求： a. 熟练掌握关系运算符的运用以及用关系表达式表示条件。 b. 掌握行If语句、块If语句的格式和功能，并能应用If语句编写具有分支结构的程序。 c. 基本掌握用流程图描述算法。 教学重点： a. 行If语句和块If语句和格式和功能 b. 流程图对于程序的作用 教学难点： 应用If语句编写具有分支结构的程序 教学仪器： 投影仪、演示用计算机 教学方法： 讲解、演示、练习 教学过程： 复习 什么是关系表达式？ 关系运算符有哪些？（是否和数学中的一致） 关系表达式的运算结果是什么值？ X+y5 (x=3,y=-2) 其值为？ 新课教授 【板书】二、行If语句 【说明】 行If语句是指在一行中写完的If语句，其一般格式为： 格式一：If 条件 Then 语句 执行这种形式的If语句时，首先对条件进行判断。若条件成立，则执行Then后面的语句；若条件不成立，则执行If语句后继程序行的语句。 格式二：If 条件 Then 语句1 Else 语句2 执行这种形式的语句时，先进行判断，若条件成立，则执行语句1；否则执行语句2。 【举例】例6-5-1 输入三个不相同的数，求出其中最小数。 算法设计： 先设置一个变量min，用于存放最小数。 ①若ab ，则a→min，否则b→min； ②再将c与min进行比较，若cmin，则c→min。这样，min 中存放的即是三个数中的最小数。 流程图： 程序代码： 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 例6-5-2 编一程序，求如下分段函数y的值。X键盘输入。 算法描述： ① 输入x； ② 判断x的值，如果x0，则x2+1→y，否则x2-x+1→y； ③ 输出y的值； 流程图： 程序代码： Private Sub Form_Click() Dim x As Single, y As Single x = Val(InputBox(请输入自变量 x, 输入框)) If x = 0 Then y = x * x + 1 Else y = x * x - x + 1 Print y=; y End Sub  【过渡】 当根据判断条件的真假只执行一条语句时，用If—Then行语句， 当Then部分包含内容较多时，则要用到“块If”结构。 【板书】三、块If语句 【说明】 格式三：If 条件 Then 语句块 End If 格式四：If 条件 Then 语句块1 Else 语句块2 End If 格式四If语句的功能是： 若条件为真，则执行语句块1，然后再继续执行End if后的语句；若条件为假，则执行语句块2，再继续执行End if后的语句。 【举例】 按a,b的大小顺序输出 程序代码： Private Sub Form_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim m As Integer a = 6: b = 4 Print a, b If a b Then m = a a = b b = m End If Print a, b End Sub 【举例】例6-5-2编一程序，求如下分段函数y的值。X键盘输入。 流程图： 程序代码： Private Sub Form_Click() Dim x As Single, y As Single x = Val(InputBox(请输入自变量x, 输入框)) If x = 0 Then y =