文档介绍：第八讲分支结构
分支结构(一)——IF结构
本讲要求:
行IF结构及其嵌套
块IF结构及其嵌套
IF……ELSEIF结构
三个控件:框架、单选钮、复选框
引言:什么是分支结构?(选择结构、条件结构)
选择结构(分支结构)
根据一定的条件,选择进行不同的操作(二选一、多选一) \4-1
例:一元二次方程求根、密码验证、三角形面积等
条件结构
根据一定的条件,决定是否执行某种操作
例:倒计时中是否终止考试\2-6
实现手段:分支结构(If结构、Select…Case结构)
一、行 If 语句
例1:求任意实数x的绝对值
Dim x!, y!
x=Val ( InputBox ("请输入x的值" ) )
If x>=0 Then y=x Else y=-x
Print "x= "; x, " y= "; y
格式:
If <条件> Then <语句组1> [Else <语句组2>]
语句组1、2:
一条语句、多条语句(冒号分隔)、无语句
整个语句必须书写在同一行
2. 语句功能及运行过程(实现二选一) 7-17
条件满足(强调非零), 则执行 Then 后面的语句组, 然后退出行If,顺序执行行If 后面的语
条件不满足时,若有Else部分,则执行Else后面的语句,然后退出行If , 否则直接退出行If,顺序执行后面的语句。
注意: (条件定义域一分为二,Else的隐含条件)
Dim x!, y!
x=Val ( InputBox ("请输入x的值" ) )
If x>=0 Then y=x Else y=-x
Print " x= "; x, "y= "; y
例: Dim x%
x=Val ( InputBox ("请输入x的值") )
If x Then Print 1 Else Print 0
问: 当输入x=3、x=0时,输出结果是什么?
例: Dim f As Boolean
f=False
If f Then Print "成立" Else Print "不成立"
问:输出结果?
相当于
If f=True Then Print "成立" Else Print "不成立"
例输入两数x和y,比较大小,使得x大于y.
Dim x!, y!, t! 7-17
x=Val(InputBox("请输入x 的值"))
y=Val(InputBox("请输入y 的值"))
If x<y Then t=x: x=y: y=t ‘多条语句
Print " x= "; x, "y= "; y
作业: 通过InputBox任意输入三个数x、y、z,然后将他们按从小到大排列,即x≤y≤z。
行If 语句的嵌套(用于解决多分支结构问题)
嵌套: Then或Else后面的语句又是行If 结构
例: 符号函数问题(三分支问题)
Dim x!, y! (先一分为二, 配对原则)
x=Val ( InputBox ( "请输入x 的值") )
If x>=0 Then Else
Print "x="; x, "y="; y
可否写成:
If x>0 Then y=1 Else If x=0 Then y=0 Else y=-1
说明: 行If 语句通常用于简单的二选一分支结构.
If x>0 Then y=1 Else y=0
y=-1
行If 语句嵌套时, Else 的配对原则(选讲)
例:Dim x!, y!
x=Val(InputBox("请输入x 的值"))
y=0
If x>=0 Then If x>0 Then y=1 Else y=-1
Print "x= " ;x, "y= " ;y
问: x=0、5、-4,y的数值分别为多少?7-17
说明: 行If 语句通常用于简单的二选一分支结构.
结论:每一个Else 部分都与它前面的, 距它最近的,且未被配对的 If-Then 配对。
二、块If 结构
行IF的局限
行内容量有限
嵌套层次太多, 使结构不清晰;
行If 语句通常用于简单的二分支结构.
对于较复杂的二分支结构或多分支结构, 适宜采用块If 结构。
块IF由行IF变形而来