2.3程序的选择结构

Vb选择结构程序设计
选择结构的语法（If……Then……Else
If you enjoy running every morning，then please put your right hand，else please put your left hand．
猜价格游戏代码
If price < 120 Then MsgBox "猜低了，再试试“ If price > 120 Then MsgBox "猜高了，再试试“ If price = 120 Then MsgBox "猜对了，你真厉害“
在线测试练习
3.以下程序段运行后，分别输入5和6，则输出字符的排列顺序是（ I=val(inputbox(“请输入I的值”)) If I <6 then Print “#” ; Else Print “*” End if A.*# B.#* C.## D.** ）
在线测试练习
4、下列逻辑表达式中，能正确表示条件”x,y,z 全是偶数“的是（ ） A、（x+y+z) mod 2=0 B、 x mod 2=0 or y mod 2 =0 or z mod 2=0 C、 x mod 2=0 And y mod 2 =0 And z mod 2=0
条件表达式
关系表达式 1、关系运算符号 =、>、>=、<、<=、<> 2、逻辑型(Boolean) 真（True)、假(False) 逻辑表达式 not 、and、or
Private Sub Command1_Click（） '求输入 数值的绝对值 Dim A As Integer A = Val（text1.text） If A >= 0 Then Print "Y="；A Else Print "Y="；-A End Sub
D、(X+Y+Z) MOD 2=1
在线测试练习
5、三角形三条边为a、b、c，下列逻辑表达式中 ，能正确判断a、b、c能否构成三角形的关系式 是（ ） A、a+b>c B、 a+b>c or a+c>b or b+c>a C、 a+b>c And a+c>b And b+c>a
D、(X+Y+Z) MOD 2=1
Select case语句是多分支语句，又称为情况语句 表达式列表又称值域,它有三种方式: （1）一个表达式或用逗号隔开的若干表达式
x=inputbox("输入一个整数") select case x case 1,3,5 print x; "这是奇数" case 2,4,6 print x; "这是偶数" end select
If price < 120 Then MsgBox "猜低了，再试试“
开始
假
判断条件
Price<120?
真
猜低了，再试试
结束
这种只对条件满足时的情况进行处理，我们称为选择结构中的单分支结构。
单分支语法格式
单分支语法格式：
（1）If <条件表达式> Then <语句块> （2）If <条件表达式> Then <语句块> End If
作业一:输入一个学生的一门课分数x（百分制） ，当x≥90时，输出“优秀”；当80≤x＜90 时 ，输出“良好”；当 70≤x＜80 时，输出“中 ”；当60≤x＜70 时，输出“及格”，当 x＜6 0 时，输出“不及格”。
作业二：求分段函数的值
在线测试练习
1．语句If x=1 Then y=1,下列说法正确的是（ ）。 A、x=1和 y=1 均为赋值语句 B、x=1和 y=1均为关系表达式 C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=1为关系表达 2. 2.电梯的最大容量为13人，在此范围内电梯能正常运行，超出了这个范围 电梯将发出警报。（） Dim a as integer a=val(inputbox(“请输入进入电梯的人数”)) if a<=13 then print “正常运行” else print “发出警报” end if A.if…….then……end if……else B.then……if……else……end if C.if……then……else……end if D.if……else……then……end if
Select case语句是多分支语句，又称为情况语句 表达式列表又称值域,它有三种方式: （3）Is 关系运算符 表达式
x=inputbox("输入一个整数") select case x case is>=30 print x ; "此数的范围大于30" case is>=20 print x ; "此数的范围大于20" case is>=10 print x ; "此数的范围大于10" end select
完善程序代码
在窗体"Form1.frm"的"Command1_Click"事件中编写代码，使之能够实现如下 功能： 在Text1输入整数a、Text2输入整数b，判断a的平方与b的平方之和是 否比100大，若比100大，则在Text3文本框中输出"大于"，否则在Text3文本框 中输出："小于或等于"。 测试数据 在Text1文本框中输入5，Text2文本框中输入8，则Text3文本框中输出：小于 或等于。 在Text1文本框中输入6，Text2文本框中输入9，则Text3文本框中输出：大于。
Select case语句是多分支语句，又称为情况语句 表达式列表又称值域,它有三种方式: （2）表达式1 To 表达式2
x=inputbox("输入一个整数") select case x case 1 to 9 print x; "此数是在1到10的范围内" case "A" to "Z" print x; "请输入数字" end select
语法之间的转换
If price = 120 Then MsgBox "猜对了，你真厉害“ 三个单分支 If price < 120 Then MsgBox "猜低了，再试试“ If price > 120 Then MsgBox "猜高了，再试试“
If price = 120 Then MsgBox "猜对了，你真厉害“ 两个单分支 If price <> 120 Then MsgBox “猜错了，再试试“
单行语法 多行语法
这里的条件表达式是关系表达式（<、>、=、<>、<=、>=）或逻辑表 达式（and、or、not），其值只有真或假两种，当表达式的值为真时， 视为条件成立。例如:price<120属于什么表达式? 语句可以是赋值语句（a=3）、输出语句(print、msgbox)、结束语句 (end)等。
语句1.如果价格小于120，那么信息提示框提示“猜低了，再试试” 语句2.如果价格大于120，那么信息提示框提示“猜高了，再试试” 语句3.如果价格等于120，那么信息提示框提示“猜对了，你真厉害”
选择结构就是在程序运行时,对程序的走向进行选择,以便决定 执行哪种操作.
If……then……的流程图
在线测试练习
在vb程序中把代码补充完整并调试运行，得出结果后再选择答案 。 5.走路可以减肥，平地甩手走20分钟内（含20分钟）消耗的能量为6卡每分 钟，超过20分钟消耗的能量为7.9卡每分钟。走路的分钟数43分钟，输出共 消耗的能量。（D） Dim t,n as single t=val(inputbox(“请输入t的值”)) if t〈=20 then n=6*t else n=6*20+（t-20）*7.9 end if print “n=”;n A．258卡 B.339.7卡 C.439.7卡 D.301.7卡
Select case语句是多分支语句，又称为情况语句 格式： Select Case 测试表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … Case 表达式列表n 语句块n Case Else 语句块n+1 End Select
Select case语句是多分支语句，又称为情况语句 功能：根据“测试表达式”的值，选择第一个符 合条件的语句块执行。 Select Case语句的执行过程是：先求“测 试表达式”的值，然后顺序测 试该值符合哪一个Case子句中情况，如果找到 了，则执行该Case子句下面的语 句块，然后执行End Select下面的语句；如果 没找到，则执行Case Else下面的 语句块，然后执行End Select下面的语句。
一个双分支
If price =120 then MsgBox "猜对了，你真厉害“ Else MsgBox “猜错了,再试试“
双分支语法格式
双分支语法格式：
（1）If <条件表达式> Then <语句1> Else <语句2> （2）If <条件表达式> Then <语句块1> Else <语句块2> End If
条件满足 条件不满足
注意:在if语句中else部分不需要填写表达式
对比分析
单分支结构
开始
假
双分支结构
开始
句块
语句块1
语句块2
结束
结束
单分支结构只对判断条件为真的情况进行处理，双分支结构既对判断条件 为真的情况进行处理，同时也对判断条件为假的情况进行处理，所以双分 支结构也就多了else部分的内容。