选择结构双分支

小结 拓展 练习 新授Hale Waihona Puke Baidu复习 菜单
1、基本格式： 、基本格式： If 条件 Then
成 对
2、执行过程： 、执行过程： 条件满足? 条件满足?
Y N
语句体1 语句体 Else 语句体2 语句体 End If
小结 拓展 练习 新授 复习 菜单
例1.某商场为了对苹果进行促销，规定购买2千 克以上可以在原价每千克1.5元的基础上打8折。 请设计一个程序计算购买x千克苹果的应付款。
是 否
D>=0 无根 结束
小结 拓展 练习 新授 复习 菜单
有根
二、编写程序
Dim a as single,b as single,c as single a = InputBox("a=") b = InputBox("b=") c = InputBox("c=") D=b^2-4*a*c If d >= 0 Then Print "有根 有根" 有根 Else Print "无根“ 无根“ 无根 End If
小结 拓展 练习 新授 复习 菜单
画出流程图，并用VB语言编写一个程序，任 意给定3个正实数，判断以这3个正实数为三条 边边长的三角形是否存在。
小结 拓展 练习 新授 复习 菜单
成 对
If
条件 Then 语句体
如果（IF） 如果（IF）条件成立 那么执行语句体 那么执行语句体 否则执行END IF之后的语句 否则执行END IF之后的语句
If 条件语句双分支结构
小结 拓展 练习 新授 复习 菜单
1. If条件语句单分支结构的一般格式： 条件语句单分支结构的一般格式： 条件语句单分支结构的一般格式
If 条件 ______ _____条件 Then
语句组
End if _________
2. 条件语句是一个逻辑表达式，它的值有 条件语句是一个逻辑表达式， 两个，要么为 True ，要么为_______。 两个，要么为______，要么为 False 。
If x >= 2 Then y = x * 1.5 * 0.8 Else y = x* 1.5 End If Print “应付款 y 应付款"; 应付款
End Sub
小结 拓展 练习 新授 复习 菜单
我相信同学 们一定能行
编写一元二次方程的求解程序，要求能够判 断方程是否有根
一、设计算法
开始 输入a,b,c的值 的值 输入 求D值 值
End If If 条件 Then
成 对
语句体1 语句体 Else 语句体2 语句体 End If
如果（IF） 如果（IF）条件成立 那么执行语句体1 那么执行语句体1 语句体 否则执行语句体2 否则执行语句体2 语句体 然后再执行END IF之后的语句 然后再执行 之后的语句
小结 拓展 练习 新授 复习 菜单
设计算法: 设计算法
开始 输入X的值 输入 的值 是 X>=2 否
小结 拓展 练习 新授 复习 菜单
Y=x*1.5*0.8
Y=x*1.5
结束
编写程序: 编写程序
Private Sub Command1_Click() Dim x As Single, y as single X = InputBox("请输入 的值 请输入X的值 请输入 的值:")