高中信息技术 第六章 第三节 分支结构教案 浙教版

课题：分支结构

教学时间：授课班级：

教学目标：学会用if …else…end if 语句编写简单的程序，并会调试它

教学重点、难点：

1．运算规则

2．IF 语句的用法

3．Msbox()等函数的涵义及用法

教学过程

用前面介绍的语句已能编写出顺序执行的简单程序。但在用计算机解决实际问题时，有时需要先对某个条件进行判断，然后根据判断的结果进行不同的操作。例如：求三个数中的最小数，用流程图表示如图6-2，图中包含有两个判断框。其中第一个判断框是根据给定的条件“a

图6-19

一、条件

If语句是根据给定的条件是否满足，决定应执行的路径。如“ab、x<0、"a"<>"b"等都是合法的关系表达式。关系运算符及其示例见表6-10。

表6-10

关系表达式的运算顺序是：先进行算术运算或字符串运算，然后再进行比较运算。其运算结果是一个逻辑值，即True(真)或False(假)。如果条件成立，则关系表达式取True；如果条件不成立，则关系表达式

的值为False 。

如果关系运算符的两边表达式的运算结果是数值，则按其大小比较。例如： a5(x=3,y= -2) 其值为False

如果是字符串，则按字符的ASCII 码从左到右一一比较，即首先比较两个字符串的第一个字符，其ASCII 码值大的字符串大，如果第一个字符相等，则比较第二个字符，依此类推，直至出现不同的字符为止。如果两个字符串的长度相等，且每一个相应位置上字符都一样，就认为两个字符串相等。如果两个字符串长度不相等，但一个字符串是另一个字符串的前部，则长度大的字符串大。例如：

"VB">"VISUAL BASIC" 其值为False "Basic"="Basic" 其值为True "Windows">"Window" 其值为True 二、行If 语句

行If 语句是指在一行中写完的If 语句，它的一般格式为： 格式一：If 条件

Then

语句

执行这种形式的If 语句时，首先对条件进行判断。若条件成立，则执行Then 后面的语句；若条件不成立，则执行If 语句后继程序行的语句。

格式二：If 条件 Then 语句1 Else 语句2

执行这种形式的语句时，先进行判断，若条件成立，则执行语句1；否则执行语句2。 【例6-5-1】输入三个不相同的数，求出其中最小数。 算法设计见第一节，流程图如图6-2，程序代码如下： ' 求三个数中的最小数 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 En

d Sub

若从键盘输入的三个数分别为-981，56，23，运行结果如下： 最小数=-981

【例6-5-2】编一程序，求如下分段函数y 的值，x 从键盘输入。

⎪⎩⎪⎨

⎧>+-≤+=0

x 1

x x 0x 1

x y 22

本程序界面很简单，x 的值可在程序中调用InbputBox 函数，在弹出的标准输入对话框中输入，程序的计算结果可直接用Print 方法输出在窗体上。算法如下：

① 输入x ；

② 判断x 的值，如果x<0，则x 2+1→y ，否则x 2-x+1→y ； ① 输出y 的值；

流程图如6-20所示，程序代码如下： ' 分段函数

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 语句

上述If-Then 语句，只能根据条件的真假是否执行一条语句。但是当Then 部分和Else 部分包含的内容较多时，则可选用“块If ”结构。

格式三：If 条件 Then 语句块 End If

格式四：If 条件 Then 语句块1 Else 语句块2 End If

格式四If 语句的功能是：若条件为真，则执行语句块1，然后再继续执行End if 后的语句；若条件为假，则执行语句块2，再继续执行End if 后的语句。

【例6-5-3】设计一个界面如图6-21所示的算术练习程序，由计算机自动产生一位数加法练习题。学生输入答案后，单击“确认”按钮，如答案正确，自动产生下一题，否则重新输入答案。

本题算法的关键是产生一位数的加法题，VB 提供了一个可以产生[0，1）之间均匀分布的随机数的随机函数Rnd ，一般地，要产生[a,b]之间的随机整数，可使用下面的表达式：

Int((b-a+1)*Rnd)+a

所以，要产生一位整数，可使用以下的算术表达式：Int(10*Rnd)。缺省情况下，每当运行一个程序时，Rnd 函数总是产生相同序列的随机数，因此，在调用Rnd 函数之前，可先执行Randomize 语句初始化随机数生成器，以使每次运行程序时，Rnd 函数能够产生不同的随

机数序列。 本例中除了两个命令按钮外，设置了一个标签控件用于显示产生的算术题，一个文本框控件用于输入答案，同学们可以自己

设置界面中对

图6-20