《VisualBasic Net程序设计》教学课件：第7-8讲 选择结构

True
表达式
False
If 表达式 Then 语句块1
Else 语句块2
语句块1
语句块2
End If 或
其他语句
If 表达式 Then语句1 Else 语句2
流程动画演示
华中农业大学信息学院
7.1.2 双分支结构
例：计算分段函数
y
s in
x
x2 1x 0
cos x x3 3x x 0
单分支 y=cos(x)－x^3+3*x 结构实现 If x<>0 Then y=sin(x)+sqrt (x*x+1)
F 表达式
T 语句块
流程动画演示
华中农业大学信息学院
7.1.1 单分支结构
例 两个数x和y，比较其大小，使得x大于y。
If x<y Then t=x x=y y=t
End If
x
y
t
或 If x<y Then t=x:x=y:y=t
华中农业大学信息学院
7.1.2 双分支结构
7.1.2 双分支结构
If 表达式1 Then If 表达式2 Then … End If …
End If
华中农业大学信息学院
7.1.4 If语句的嵌套
例 已知x，y，z三个数，使得x>y>z If x<y Then t=x: x=y: y=t
If y<z Then t=y: y=z: z=t If x<y Then t=x: x=y: y=t End If
If x<>0 Then
双分支
y=sin(x)+sqr (x*x+1)
Else
结构实现
y=cos(x)－x^3+3*x
End If
华中农业大学信息学院
7.1.3 多分支结构
7.1.3 多分支结构
If <表达式1 >Then
F 表达式 1
语句块1
T
ElseIf <表达式2 >Then
语句块2
语句块 1
End If
华中农业大学信息学院
7.3.2.条件函数
例 根据Nop的值，得到+、-、×、÷中的某运 算符： Op= Choose(Nop，"+"，"-"，"×"，"÷")
Dim nop As Integer, op As Char Randomize() nop = Int(Rnd() * 4 + 1) op = Choose(nop, "+", "-", "×", "÷") MsgBox("nop=" & nop & " op=" & op)
华中农业大学信息学院
引例
例11-4：计算购房贷款。 其中商贷的利率为：10年5％、20年8％、 30年10％，公积金贷款的利率是商业贷款的 90％，如果是初次贷款则利率再打九五折， 请以单利计算每月的还款额。
If Idx > 0 And Idx < 10 Then lblResult.Text = "答案是：" + _ Choose(Idx, "水星", "金星", "地球", "火星","木星","土星", "天王星", "海王星", "冥王星")
Else lblResult.Text = "没有这颗行星"
错误C：ase x < 0 And y < 0 1. SelecMtsgCBaosx(e“在后第不三能象出限现”)多个变量；
Case x > 0 And y <0
2. Case后Ms不gB能ox(出“在现第变四量象及限有”)关运算符。
End Select
华中农业大学信息学院
7.3 条件函数
7.3.1 IIf函数
End If
华中农业大学信息学院
7.2 Select Case语句
7.2.1 Select Case语句
Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1]
End Select
表达式列表的4种形 式： •表达式 •一组枚举值 •表达式1 To 表达式2 •Is关系运算符表达式
…
[Else 语句块 n+1]
End If
表达式 2 T
语句块 2
F
表达式 n
F
T
语 句 块 n பைடு நூலகம் 句 块 n+1
流程动画演示
华中农业大学信息学院
7.1.3 多分支结构应用
例 8-1 NestIf.sln
[例] 已知输入某课程的百分制成绩Score，要 求按五级制进行评定，评定条件如下：
优秀 良好 中等 及格 不及格
Score≥90 80≤Score<90 70≤Score<80 60 ≤Score <70 0<=Score<60
华中农业大学信息学院
多分支结构练习
例8-2 已知变量ch中存放了一个字符,判断该 字符是字母字符、数字字符还是其他字符。
华中农业大学信息学院
7.1.4 If语句的嵌套
If语句的嵌套是指If或Else后面的语句块 中又包含If语句。
IIf(表达式，当表达式为True时的值， 当表达式为False时的值)
例: 将x,y中较大的数放入Tmax变量
Tmax= IIf(x > y，x，y)
华中农业大学信息学院
(2) Choose函数
7.3.2 Choose函数
Choose(数字类型变量，值为1的返回值，值为2 的返回值…)
Dim Idx As Integer Idx = Val(txtInput.Text)
华中农业大学信息学院
7.2.2 Select Case应用
•例8-3 SelectCase.sln •将例8-2 改用 Select Case 语句实现：
Select Case ch Case "a" To "z"，"A" To "Z" MsgBox( ch + "是字母字符") Case "0" To "9" MsgBox (ch +"是数字字符") Case Else MsgBox( ch + "是其他字符")
End Select
华中农业大学信息学院
7.2.2 Select Case应用
例 已知坐标点(x，y)，判断其落在哪个象限。
Select Case x,y Case x > 0 And y > 0 MsgBox(“在第一象限”) Case x < 0 And y > 0 MsgBox(“在第二象限”)
程序设计
华中农业大学信息学院 章程
第7讲 选择结构
7.1 If 语句 7.2 Select Case 7.3 条件函数 7.4 综合应用
华中农业大学信息学院
7.1 If条件语句
7.1.1 单分支结构
If <表达式> Then 语句块
End If 或
If <表达式> Then <语句>