最新vb选择结构If语句的嵌套
- 格式：ppt
- 大小：703.50 KB
- 文档页数：14
下载文档原格式
合集下载
vb的逻辑运算符与if语句的嵌套
VB的逻辑运算符与If语句的嵌套VB的逻辑运算符：And〔与〕连接的两个条件都成立时，条件成立。
Or〔或〕连接的两个条件其中一个成立，条件成立Not〔非〕取反。
条件成立取反后就变不成立，条件不成立的时候取反就成立例子：某次考试，总分值为100分，如今输入一个分数，判断该分数是否合法。
输入样例1：98输出样例1：98是合法的分数输入样例2：120输出样例2：120不是合法的分数程序一：Dim x As Integerx = Text1.Text ‘用文本框进展输入If x>=0 And x<=100 Then ‘x大于等于0并且x小于等于100Label1.Caption = x & “是合法的分数〞‘用Label控件显示结果ElseLabel1.Caption = x & “不是合法的分数〞End If简单解析：0≤x≤100这是数学的写法，程序写法应该是x>=0 And x<=100，And左边和右边的条件都满足，条件满足。
程序二：Dim x As Integerx = Text1.Text ‘用文本框进展输入If x<0 Or x>100 Then ‘x小于0或者x大于100Label1.Caption = x & “不是合法的分数〞ElseLabel1.Caption = x & “是合法的分数〞End IfOr左边或者右边的条件成立，条件成立程序三：Dim x As Integerx = Text1.Text ‘用文本框进展输入If Not(x>=0 And x<=100) Then ‘不是〔x大于等于0并且x小于等于100〕Label1.Caption = x & “不是合法的分数〞ElseLabel1.Caption = x & “是合法的分数〞End IfNot取反之意，If Not(x>=0 And x<=100) Then的意思是假设条件x>=0 And x<=100不成立。
VB程序设计第2版教学课件47块If语句实现嵌套
表达式真？ 真(非0)(0)
语句块1
语句块2
语句块3
End If
条件1成立？
成立(True)
不成立(False)
条件2成立？
成立(True)
语句组1
语句组2
不成立(False)
语句组3
2
块If语句嵌套格式
【说明】
【示例】
① 每一个块结构都要完整，必须以If开 始，以End If结束。 ② 内层嵌套的块结构中除了满足该层规 定的条件外，还必须满足外层结构中相 应位置的条件。
界面设计
3
块If语句嵌套应用
Private Sub Command1_Click()
代码设计
Dim a As Integer, b As Integer, c As Integer, min As Integer
a = Val(Text1.Text)：b = Val(Text2.Text)： c = Val(Text3.Text)
依据道路交通安全违法行为的严重程度，一次记分的分值 为:12分、6分、3分、2分、1分五种
条件1成立？
成立(True)
不成立(False)
条件2成立？
成立(True)
不成立(False)
语句组1
语句组2
语句组3
if语句嵌套格式
【格式】
if (表达式1） 语句块1；
else if (表达式2) 语句块2； else ……
Else Text1.Text = Str(x) Label5.ForeColor = vbRed
End If End Sub
机动车驾驶人在一个记分周期内未达到12分的，且没有违 法未处理的记录(一般指C1)，在下一个记分周期开始时将会 将原先的记分清0。如果有违法未处理的记录的情况，那么 此次记录所扣的分值将积累到下一年，直到违法记录消除。
vb选择结构If语句的嵌套
If x >= 0 Then
If x > 0 Then
y=1
Else
y=0
End If
Else
y = -1
End If
Text2.Text = y
End Sub
第9页/共14页
图5-2
Private Sub Command1_Click() 【例5-2】输入变量x,计算y。 Dim x As Single, y As Single
-1 x<0 y= 0 x=0
1 x>0
第5页/共14页
If语句的嵌套
如果在If语句中，语句序列1或语句序列2本身 又是一个If语句，则称为If语句的嵌套。其语法格 式为：
第6页/共14页
If <条件1> Then If <条件2> Then 语句1 Else 语句2 End If
Else If <条件3> Then 语句3 Else 语句4 End If
End If
Label3.Caption = y
End Sub
第10页/共14页
小结
If语句的嵌套格式、功能及执行过程。
在编写程序过程中出现的常见问题。
第11页/共14页
作业
作业 P95,5.14,5.15
的观看！
第14页/共14页
本节的教学目标
掌握If语句的嵌套格式、功能及具体执 行过程； 学会用嵌套的If语句解决日常生活中的 实际问题。
第1页/共14页
本节的教学重点与难点
IF语句嵌套的格式及执行过程； 如何对条件语句进行嵌套设计。
第2页/共14页
上节内容回顾
1、行If语句
VB的逻辑运算符与If语句的嵌套
VB的逻辑运算符与If语句的嵌套VB的逻辑运算符：And（与）连接的两个条件都成立时，条件成立。
Or（或）连接的两个条件其中一个成立，条件成立Not（非）取反。
条件成立取反后就变不成立，条件不成立的时候取反就成立例子：某次考试，满分为100分，现在输入一个分数，判断该分数是否合法。
输入样例1：98输出样例1：98是合法的分数输入样例2：120输出样例2：120不是合法的分数程序一：Dim x As Integerx = Text1.Text ‘用文本框进行输入If x>=0 And x<=100 Then ‘x大于等于0并且x小于等于100Label1.Caption = x & “是合法的分数” ‘用Label控件显示结果ElseLabel1.Caption = x & “不是合法的分数”End If简单解析：0≤x≤100这是数学的写法，程序写法应该是x>=0 And x<=100，And 左边和右边的条件都满足，条件满足。
程序二：Dim x As Integerx = Text1.Text ‘用文本框进行输入If x<0 Or x>100 Then ‘x小于0或者x大于100Label1.Caption = x & “不是合法的分数”ElseLabel1.Caption = x & “是合法的分数”End IfOr左边或者右边的条件成立，条件成立程序三：Dim x As Integerx = Text1.Text ‘用文本框进行输入If Not(x>=0 And x<=100) Then ‘不是（x大于等于0并且x小于等于100）Label1.Caption = x & “不是合法的分数”ElseLabel1.Caption = x & “是合法的分数”End IfNot取反之意，If Not(x>=0 And x<=100) Then的意思是假如条件x>=0 And x<=100不成立。
VB中的IF语句精
a>b
else
_p_ri_n_t b
end if
练习1：输入两个不相等的数 a，b，比较大小，将 大数放在 a中，小数放在 b中，然后输出 a，b
if _a_<_b_ then
_t=_a_:_a_=_b_:_b_=_t
end if
VB程序代码中一行可 以写多个语句，语句 间用冒号隔开。
嵌套分支结构
开始 输入身高 cm 和 体 重 kg
体重± 10%标准体重
输出“恭喜， 标准身材！”
结束
输出“不太 标准诶”
开始
顺序结构
输入身高
cm 和 体 重
正
kg
确
no
的
体重± 10%标准体重
应
选
该 是 这
yes
输出“恭喜， 标准身材！”
输出“不太
择
标准诶”
结
构
样
的
结束
循环结构
测试体重标准与否的完整依据： 标准体重（公斤）= 身高（厘米）- 110 ?标准体重 ±10%为 理想体重 ?超过标准体重10%为 超 重 ?超过标准体重20%为 轻度肥胖 ?超过标准体重30%为 中度肥胖 ?超过标准体重50%为 重度肥胖
end if
例1：输入一个数到变量a，输出它的绝对值（不用绝对值
函数）
a = inputbox()
if _a_<_0_ then
a<0
_a_=_-_a
end if
print a
Print 意为打印，是输出 语句。
例2：从键盘分别输入两个不相等的数到变量a、b，输出
其中较大的数。
if _a_>_b_ then _p_ri_n_t a
VB中的IF语句
用来解决有关选择 结构的问题。
VB中的选择语句 ——IF语句
选择结构与选择语句
if 条件 then 语句A end if
If和end if 要成对出现
if
条件 then 语句A else 语句B end if
例1：输入一个数到变量a，输出它的绝对值（不用绝对值
函数）
a = inputbox("")
分支嵌套——双分支嵌套双分支
条件1 then 语句1 elseif 条件2 then 语句2 else 语句3 end if end if if
分 支 结 构 1
分 支 结 构 2
注意：每一层的end if结束本层判断。
练习2：
购买地铁车票，若乘1—4站，3元/位；若乘5—9 站，4元/位；若乘10站以上，5元/位；输入人数 person、站数n，输出应付款pay。
4．有如下VB程序段： Private Sub Command1_Click() a ＝ 3: b ＝ 4: c ＝ 5 If a >＝ b And a >＝ c Then Max ＝ a ElseIf b >＝ c Then Max ＝ b Else Max ＝ c End If End Sub 该程序运行后，整数型变量max的值为 A．0 B．3 C．4
(
)
C
8．某景区针对门票的销售编写了如下VB程序代码： Private Sub Command1_Click() m ＝ InputBox("请输入身高") If m <＝ 120 Then Label1.Caption ＝ "免票" ElseIf m <＝ 150 Then Label1.Caption ＝ "半价票" Else Label1.Caption ＝ "全价票" End If End Sub 运行程序，单击命令按钮Command1，若在出现的对话框中输 半价票 入“125”，在标签Label1上显示的内容是___________________ 。
大学vb 实验作业6 选择结构程序设计
实验名称
实验六选择结构程序设计
实验时间
实验目的
（1）掌握由IF语句构成的选择结构
（2）掌握由SELECT CASE语句4）学会编写选择结构程序解决实际问题
（5）掌握多重窗体的设计
实验环境
硬件：微型计算机
软件：Microsoft Visual Basic 6.0
实验内容
1、编写程序求出四个数中的最小数（要求用“打擂算法”）。
2、设计程序，分别用IF语句和Select语句实现判断从键盘上输入的某个字符为哪类字符（大写字母、小写字母、数字字符和其它字符）
3、编程实现系统登录程序。（用户名：班级；密码：学号后两位）
4、窗体运行时，鼠标光标是箭头形状，每单击一次窗体，鼠标就变换一种鼠标光标的形状，依次显示鼠标光标的15种形状。
提示：窗体上鼠标光标的形状由窗体的MousePointer属性值决定。
实验小结
实验六选择结构程序设计
实验时间
实验目的
（1）掌握由IF语句构成的选择结构
（2）掌握由SELECT CASE语句4）学会编写选择结构程序解决实际问题
（5）掌握多重窗体的设计
实验环境
硬件：微型计算机
软件：Microsoft Visual Basic 6.0
实验内容
1、编写程序求出四个数中的最小数（要求用“打擂算法”）。
2、设计程序，分别用IF语句和Select语句实现判断从键盘上输入的某个字符为哪类字符（大写字母、小写字母、数字字符和其它字符）
3、编程实现系统登录程序。（用户名：班级；密码：学号后两位）
4、窗体运行时，鼠标光标是箭头形状，每单击一次窗体，鼠标就变换一种鼠标光标的形状，依次显示鼠标光标的15种形状。
提示：窗体上鼠标光标的形状由窗体的MousePointer属性值决定。
实验小结
vb if elseif语句的嵌套
vb if elseif语句的嵌套在VB中，if elseif语句的嵌套是非常常见且有用的编程结构，可以根据不同的条件执行不同的代码块。
下面将列举一些关于if elseif语句嵌套的示例，以帮助读者更好地理解这种语法结构。
1. 示例一：```vbDim score As Integer = 85If score >= 90 ThenConsole.WriteLine("优秀")ElseIf score >= 80 ThenConsole.WriteLine("良好")ElseIf score >= 70 ThenConsole.WriteLine("中等")ElseConsole.WriteLine("不及格")End If```在这个示例中，根据学生的成绩不同，输出不同的评价。
2. 示例二：```vbDim num As Integer = 5If num = 1 ThenConsole.WriteLine("星期一")ElseIf num = 2 ThenConsole.WriteLine("星期二")ElseIf num = 3 ThenConsole.WriteLine("星期三")ElseIf num = 4 ThenConsole.WriteLine("星期四")ElseIf num = 5 ThenConsole.WriteLine("星期五")ElseIf num = 6 ThenConsole.WriteLine("星期六")ElseIf num = 7 ThenConsole.WriteLine("星期天")ElseConsole.WriteLine("输入错误")End If```这个示例根据输入的数字输出对应的星期几。
VB实训 语法结构
图 4.6 If...Then...Else 结构 T
条件
F
语句块 1
语句块 2
2. If…Then…Else结构（2）
【例】如果使程序能判断整数的奇偶性。 分析：判断某数的奇偶性，就是检查该数能否被2整除，若 能被2整除，该数为偶数，否则为奇数。
Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If (x Mod 2) = 0 Then Label2.Caption = x & " 是偶数" Else '增加Else子句, 显示奇数 Label2.Caption = x & " 是奇数" End If End Sub
程序结构——循环结构
循环结构是指对同一程序段重复执行若干次，被重复执 行的语句块称为循环体。循环体的执行与否以及次数多少 视 循 环 类 型 和 条 件 而 定 。 VB 中 常 用 的 循 环 语 句 有 For…Next语句和Do…Loop语句。For…Next循环用于已知 循环次数的情况下，而Do…Loop循环主要用于不知道循环 次数的情况下，在给定的条件满足时执行循环体。
If 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2
条件 1
F F
T
条件 2
…
条件 n
F
．．． ElseIf 条件n Then
语句块n
语句块 1
T
T
语句块 2 语句块 n 语句块 n+1
Else
语句块n+1 End If
图 4.9 If...Then...ElseIf 结构
条件
F
语句块 1
语句块 2
2. If…Then…Else结构（2）
【例】如果使程序能判断整数的奇偶性。 分析：判断某数的奇偶性，就是检查该数能否被2整除，若 能被2整除，该数为偶数，否则为奇数。
Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If (x Mod 2) = 0 Then Label2.Caption = x & " 是偶数" Else '增加Else子句, 显示奇数 Label2.Caption = x & " 是奇数" End If End Sub
程序结构——循环结构
循环结构是指对同一程序段重复执行若干次，被重复执 行的语句块称为循环体。循环体的执行与否以及次数多少 视 循 环 类 型 和 条 件 而 定 。 VB 中 常 用 的 循 环 语 句 有 For…Next语句和Do…Loop语句。For…Next循环用于已知 循环次数的情况下，而Do…Loop循环主要用于不知道循环 次数的情况下，在给定的条件满足时执行循环体。
If 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2
条件 1
F F
T
条件 2
…
条件 n
F
．．． ElseIf 条件n Then
语句块n
语句块 1
T
T
语句块 2 语句块 n 语句块 n+1
Else
语句块n+1 End If
图 4.9 If...Then...ElseIf 结构
022 VB编程之IF语法
选择结构我们在处理一些问题时，常常需要根据某些给定的条件是否满足来决定下一步需要执行的操作。
选择结构就是对给定的条件进行判断，从而选择执行不同的分支。
例如，我们在学校衡量学生成绩等级时，需要将具体的成绩转换为对应的等级（优良中差），对于这类问题处理，采用顺序结构是无法实现的，这种情况就需要使用选择结构来处理。
在VB系统中，选择结构有三种形式，分别是If语句，Select Case语句和IIf 函数。
这里先介绍IF语句。
If语句If语句有单分支、双分支和多分支3种结构。
单分支结构（If...Then语句）单分支结构有单行和多行两种形式。
结构流程图如下图：具体语法格式描述如下：单行形式：If <条件> Then <语句块>单行形式多用于<语句块>内的语句较少的情况，因其省略了End If结束语句，因此采用单行形式会使得整个代码更加的简洁。
多行形式：If语句，除了单行形式省略End If结束语，其它形式都必须有End If作为结束标识。
含义：执行If...Then语句时，如果<条件>成立（为True），则执行<语句块>种的内容。
如果不成立（False），则不执行<语句块>的内容，而是执行If语句后面的语句。
说明：<条件>一般为关系表达式、逻辑表达式，其值为boolean类型或者数值类型。
对于数值类型，系统会将数值为0的值转换为False，而非0的数值则转换为True。
<语句块>可以是一条语句，也可以是多条语句。
在单行形式中，如果是多条语句则必须写在一行之中，并用冒号分隔开语句。
举例：设计一个程序，比较与交换x和y的值，使得x大于y单行形式：多行形式：双分支结构（If...Then...Else语句）双分支结构也具有单行形式和多行形式两种。
其流程图如下图所示：双分支结构的语法格式如下：单行形式：多行形式：当<条件>为True时，执行<语句块A>，否则执行<语句块B>举例：判断一个整数x是偶数还是奇数单行形式：多行形式：多分支结构（If...Then...[ElseIf...][Else...]End If语句）多分支结构的If语句一般写成多行形式，这样条理清晰，便于阅读和理解。
VB编程【嵌套的if语句教案】
If语句的嵌套授课教师：杨丹授课班级：高一（10）班一、案例背景分析1、章节：第二章第三节2、年级：高一年级3、教材版本：《信息技术——算法与程序设计》.上海科技教育出版社4、时间安排：教师讲授时间：20分钟学生上机时间：20分钟二、教学设计（一）教学目标知识性目标：VB语言条件语句的应用；多重选择语句的基本格式；让学生强化分析问题、设计算法、编写程序等用计算机解决问题的基本过程。
技能性目标：培养学生合理的利用信息，并能用计算机分析、解决相关问题的能力；培养学生合作、讨论、交流和自主学习的能力。
情感性目标：通过设计“升级版QQ登录界面”这个富有生动情节的实例，让学生强化用计算机解决问题（处理信息）的基本过程。
（二）重点难点1、本课的重点是If语句嵌套的基本格式与语法；2、If语句嵌套的运用与相关代码的编写。
3、If语句嵌套结构和平行结构的区别。
（三）内容分析本章节讲述的是if语句的嵌套，在编程中很重要的一个结构语言，主要是要将一些数学或是实际问题转换成计算机的语言。
相比前面的内容，这个的实用性很强，要求学生能真正掌握，然后熟练运用。
三、教学环境及教具准备计算机机房、计算机、投影仪、黑板等【教学策略】（1）课题的引入上要放得开，还要收得拢（即指信息的获取、分析与整理），此工作放在课余时间提前完成。
（2）算法的设计上，要通过自然语言与程序设计语言的比对，加深学生对选择结构的认识。
（3）基于两种情况的判断与选择，和多种情况的判断与选择，通过相应的实例来强化学生的认知结构。
（4）通过获取信息、处理和运用信息，让学生亲历计算机解决问题的全过程。
（5）在课堂上展示和交流小组的成果方案，填写《活动评价表》。
四、教学过程。
vb if语句 课件 选择结构
块格式：
If <条件> Then [A组语句]
Else [B组语句]
END If
等价于： If score >= 90 Then print“优秀”：print“恭喜你！”Else Print“加油！”
4.2.1 If 条件语句
8
三、多分支（If…Then…ElseIf）
格式：
if <条件1> Then
[ A组语句] [Elseif <条件2> Then
[ B组语句 ] [Elseif <条件3> Then
[ C组语句 ] …… [Else [N组语句 ]
End If
10
思考题
用键盘输入一字符，判断该字符是小写字母、大写字母、 数字字符还是其他字符，并作相应的显示。
4.2.1 If 条件语句 11
[B组语句] END If
条件 T A组语句
F
B组语句
4.2.1 If 条件语句
7
➢ 单行语句（双分支）
单行语句：
if <条件> then <语句序列A> else <语句序列B>
例
If score>=90 then
print “优秀”
print “恭喜你！”
Else
print “加油！”
End if
注意 ElseIf 的写法 可以有任意多个Elseif子句；else放最后，最多一个
。
9
4.2.1 if条件语句
小
If 结构
结
一.单分支（If…Then 结构 ） 二. 双分支（If…Then…Else 结构） 三. 多分支（If…Then…ElseIf 结构）
VB选择结构
注：Option Explicit语句的作用范围仅限于语句所在模块. 对于需要强制式变量声明的窗体模块、标准模块及类模块， 必须将Option Explicit语句放在这些模块的声明段中。
3.2字符串运算符与字符串表达式 字符串运算符有两个：“&”、“+”，是例如： “Hello” & “ World” “Check” & 123 “Check” + 123 结果为“Hello World” 结果为“Checkl23” 错误
注意: “&”和“+”这两个运算符的区别：“+”运算符两边的操作数应均为字符串。 如果都为数值型，则进行算术运算；如果有一个为字符串，另一个为数值 型，则出错。“&’’运算符两边的操作数不论是数值型的还是字符串型的， 都进行字符串的连接运算，系统先将数值型操作数转换为字符串，然后再 进行连接运算。
3.1强制显式声明
VB可采用强制声明功能,使所有变量都必须先声明后使用. 这样，若运行时遇到一个未经明确声明的变量名，VB就会 发出错误警告。 声明方式: 可在窗体模块或标准模块的声明段中加入语句： Option Explicit 在“工具”菜单中打开“选项”对话框,单击“编辑器” 选择“要求变量声明”选项,即可自动插入 Option Explicit语句.
选择结构
IF语句 IF语句
1.1 单行结构条件语句 格式：If <条件> Then [<语句组1>][Else <语句组2>] 功能：如果<条件>成立，则执行<语句组1>，否则执行 <语句组2>。 •<条件>可以是关系表达式、逻辑表达式、数值表达式或 字符串表达式。 <语句组1>和<语句组2>可以有多条语句，各语句之间用 冒号隔开。
3.2字符串运算符与字符串表达式 字符串运算符有两个：“&”、“+”，是例如： “Hello” & “ World” “Check” & 123 “Check” + 123 结果为“Hello World” 结果为“Checkl23” 错误
注意: “&”和“+”这两个运算符的区别：“+”运算符两边的操作数应均为字符串。 如果都为数值型，则进行算术运算；如果有一个为字符串，另一个为数值 型，则出错。“&’’运算符两边的操作数不论是数值型的还是字符串型的， 都进行字符串的连接运算，系统先将数值型操作数转换为字符串，然后再 进行连接运算。
3.1强制显式声明
VB可采用强制声明功能,使所有变量都必须先声明后使用. 这样，若运行时遇到一个未经明确声明的变量名，VB就会 发出错误警告。 声明方式: 可在窗体模块或标准模块的声明段中加入语句： Option Explicit 在“工具”菜单中打开“选项”对话框,单击“编辑器” 选择“要求变量声明”选项,即可自动插入 Option Explicit语句.
选择结构
IF语句 IF语句
1.1 单行结构条件语句 格式：If <条件> Then [<语句组1>][Else <语句组2>] 功能：如果<条件>成立，则执行<语句组1>，否则执行 <语句组2>。 •<条件>可以是关系表达式、逻辑表达式、数值表达式或 字符串表达式。 <语句组1>和<语句组2>可以有多条语句，各语句之间用 冒号隔开。
VB语言之选择结构 第三节
编写程序代码（select case语句）
• • • • • • • • • • • • • • • • Private Sub Command1_Click() Dim m As Single Dim p As Integer m = Val(Text1.Text) Select Case m Case Is < 200 p=5 Case 200 To 499.99 p = m * 0.1 Case 500 To 999.99 p = m * 0.15 Case Is >= 1000 p = m * 0.2 End Select Text2.Text = p End Sub
该程序使用了3个IF语句嵌套 来处理四种情况，如果再多 几种情况，程序的可读性和 效率都会比较差。VB中还提 供了一种多重选择语句 (select case)，利用它可以方便 地实现同一程序。
使用多重选择语句实现活动二的程 序
活动二的程序中使用了三个If语句的嵌套来处理 四种情况，如果再多几种情况，程序的可读性和效率 都会比较差。VB中还提供了一种多重选择语句，利用 它可以方便地实现上一程序。 在VB中，设置了一个处理多重情况的语句，即多 重选择语句。多重选择语句的执行过程是： 当表达 式的值满足某Case语句的表达式范围，则执行该语句 后的语句组。例如，本程序中当m<200时，执行p=5； 当200<=m<=499.99时，执行p=m*0.1，当 500<=m<=999.99时，执行p=m*0.15，当m>=1000时， 执行p=m*0.2 。
程序界面
可能出现的 种情况
两
练习3程序代码
• • • • • • • • • • • • • • • • • Private Sub Command1_Click() Dim a As Single 面积S为何要定义成字条符形变量？ Dim b As Single Dim c As Single Dim q As Single Dim S As String And为逻辑运算符 a = Text1.Text b = Text2.Text c = Text3.Text If a + b > c And a + c > b And b + c > a Then q = (a + b + c) / 2 S = Sqr(q * (q - a) * (q - b) * (q - c)) Else S = "不能构成三角形" End If Text4.Text = S End Sub
vb选择结构——if语句
程序的选择结构（二）——if条件语句学校：汕头市东厦中学年级：高一级教师：蔡少如【教材分析】本节课的教学内容是广东教育出社版、高中课程标准实验教材选修模块一《算法与程序设计》中的第2章2.3节《程序的选择结构》第2课时2.3.2 《程序的选择结构---条件语句》，是在上两课时（2.1—2.2）学习了VB程序的顺序结构和初步学习if语句的基础上，进一步深入学习if语句。
在解决实际问题的过程中，常常需要对事物进行判断和选择。
如何在程序设计中能够实现判断和选择，条件语句是重要的选择方式之一。
但在实际问题中经常会遇到多重嵌套的情况，如何理清思路成了解决问题的关键。
在讲解这一知识点时，采用从简到繁的思路，引导学生经历分析问题、设计算法、编写程序等编程的整个过程。
通过分析、设计程序，让学生体验V B语言的条件语句的格式、功能、执行过程，特别是嵌套的条件语句格式。
同时，让学生体验自主学习，体验编程的乐趣。
【学情分析】本节课的教学对象是高一学生，据了解，只有少数部分的学生在初中阶段接触过计算机程序。
目前由于受到教学环境的限制，学生暂时只能在普通教室上课，这给信息技术的教学带来较大的不便。
考虑到高一数学必修（3）有《算法》一章，同时算法设计的教学过程不用过多依赖上机操作，因此提前给学生讲授高一选修教材《算法与程序设计》。
学生经过前面两节课的学习，对算法的设计和程序的编制过程已经有初步的了解，基本上掌握了常用的程序语句，如input box（）函数，赋值语句，输出语句，初步认识if语句等，对程序设计已经产生一定兴趣，但由于在程序设计过程中，涉及数学、英语学科知识点较多，学生还没有足够的相关知识储备，且学生没有上机操作的机会，导致教学活动在实践过程中存在一定的困难。
vb中if语句块
vb中if语句块VB中的if语句块是一种条件判断结构，用于根据给定条件来执行不同的代码块。
下面是十个关于VB中if语句块的例子：1. 判断一个数是否为正数，如果是，则输出"该数为正数"，否则输出"该数为负数"。
```If num > 0 ThenConsole.WriteLine("该数为正数")ElseConsole.WriteLine("该数为负数")End If```2. 判断一个数是否为偶数，如果是，则输出"该数为偶数"，否则输出"该数为奇数"。
```If num Mod 2 = 0 ThenConsole.WriteLine("该数为偶数")ElseConsole.WriteLine("该数为奇数")End If```3. 判断一个年份是否为闰年，如果是，则输出"该年是闰年"，否则输出"该年不是闰年"。
```If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 ThenConsole.WriteLine("该年是闰年")ElseConsole.WriteLine("该年不是闰年")End If```4. 判断一个字符串是否为空，如果是，则输出"字符串为空"，否则输出"字符串不为空"。
```If String.IsNullOrEmpty(str) ThenConsole.WriteLine("字符串为空")ElseConsole.WriteLine("字符串不为空")End If```5. 判断一个学生的成绩是否及格，如果大于等于60分，则输出"及格"，否则输出"不及格"。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
End Sub
图5-2
Private Sub Command1_Click()
【例5-2】输入变量Dx,i计mVix算suAaysl。SiBnagslie,cy As Single
x = Val(Text1.Text)
x+1 x<1
If x < 2 Then If x < 1 Then
y= x+2 1<=x<2 y = x + 1
Visual Basic
上节内容回顾
1、行If语句
If〈条件表达式〉Then [〈语句序列1〉] [ Else〈语句序列2〉]
2、 IIf函数
IIf (<条件表达式>，<真部分>，<假部分>)
3、块If语句
Visual Basic
其语法结构为： If〈条件1〉Then
[语句序列1] [Else
[语句序列2]] End If
不管是行If语句、IIf函数还是块If语句实现的功能都 两分支选择结构。
Visual Basic
【例5-1】数学上的分段函数 。
-1 x<0 y= 0 x=0
1 x>0
Visual Basic
If语句的嵌套
如果在If语句中，语句序列1或语句序列2本身 又是一个If语句，则称为If语句的嵌套。其语法格 式为：
Else x+3 2<=x<3 y = x + 2
x+4 x>=3
End If
Else
If x < 3 Then
y=x+3
Else
y=x+4
End If
End If
Label3.Caption = y
End Sub
小结
Байду номын сангаас
Visual Basic
If语句的嵌套格式、功能及执行过程。 在编写程序过程中出现的常见问题。
例4-8
(2) 编写程序代码
Visual Basic
Private Sub Command1_Click()
Dim x As Single
x = Val(Text1.Text)
If x >= 0 Then
If x > 0 Then
y=1
Else
y=0
End If
Else
y = -1
End If
Text2.Text = y
计算机教研室
______________________________ ____________________
Visual Basic
本节的教学目标
掌握If语句的嵌套格式、功能及具体执行 过程； 学会用嵌套的If语句解决日常生活中的实 际问题。
Visual Basic
本节的教学重点与难点
IF语句嵌套的格式及执行过程； 如何对条件语句进行嵌套设计。
If <条件1> Then If <条件2> Then 语句1 Else 语句2 End If
Else If <条件3> Then 语句3 Else 语句4 End If
End If
Visual Basic
If语句嵌套的功能 If语句嵌套的执行过程
Visual Basic (1) 建立应用程序的用户界面并设置对象属性，如图5-1所示。
作业
Visual Basic
作业 P95,5.14,5.15
Visual Basic