第5章 选择结构程序设计

--
第 五 章 控 制 结 构 选 择 构 程 序 设 计
【例5-4】求函数Y的值
Y=
ex+e-x x<0 1.25 x=0 lgx x>0
X = Val(Text1.Text) Select Case X Case X < 0 Y = Exp(X) + Exp(-X) Case X =0 Y = 1.25 Case X > 0 Y = Log(X) / Log(10) End Select Print "Y="; Y
17
--
第 五 章 控 制 结 构 选 择 结 构 程 序 设 计
Private Sub Text1_KeyUp(KeyCode As Integer, _ Shift As Integer) Static I As Integer ' 保存输入错误口令的次数 If KeyCode = 13 Then ' 如果按下的键为回车键 If UCase(Text1.Text) = "HELLO" Then Label2.Caption = "恭喜!,您已成功进入本系统" ElseIf I = 0 Or I = 1 Then I=I+1 Label2.Caption = "口令错!,请重新输入" Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Else MsgBox "对不起,您不能使用本系统": End End If End If End Sub 18
--
10
第 5.2 块结构条件语句 五 1.格式 章 If <条件1> Then [<语句组1>] 控 制 [ElseIf <条件2> Then 结 [<语句组2>]] 构 …… 选 择 [ElseIf <条件N> Then 结 [<语句组N>]] 构 程 [Else 序 [<其他语句组>]] 设 End If 计 功能: …… --
y= |x| x≤0 lnx x>0
Text1 Label3
--
Private Sub Command1_Click() Command1 X = Val(Text1.Text) If X <= 0 Then Y = Abs(X) Else Y = Log(X) Label3.Caption = Y End Sub 6
第 第5章 选择结构程序设计 五 章 本章要点: 条件语句 控 制 结 构 选 择 结 构 程 序 设 计 • 单行结构条件语句If...Then...Else • 块结构条件语句
--
If...Then... ... else ... EndIf
1
第 五 章 控 制 结 构 选 择 结 构 程 序 设 计
16
X = Val(Text1.Text) Select Case X Case Is < 0 Y = Exp(X) + Exp(-X) Case 0 Y = 1.25 Case Is > 0 Y = Log(X) / Log(10) End Select Print "Y="; Y
--
第 五 章 控 制 结 构 选 择 结 构 程 序 设 计
5.1
单行结构条件语句
1. 格式 If <条件> Then [<语句组1>] [Else <语句组2>] 2. 功能 如果<条件>成立，则执行<语句组1> 否则执行<语句组2> 3. 说明 (1) <条件> : 关系表达式、布尔表达式 数值表达式(0为False，非0为True) 字符串表达式("0"为False,非"0"为True) (2) <语句组1>、<语句组2>: 可以有多条语句，各语 句之间用冒号隔开。 (3)可以没有Else部分，这时必须有<语句组1>。
If <条件1> Then [语句组1] Else [语句组2] End If If语句 ElseIf子句 Else子句 End If语句 注意: 格式书写、嵌套 11
第 五 章 控 制 结 构 选 择 结 构 程 序 设 计
【例5-4】输入华氏温度F， 利用公式C=5/9*(F-32)转 换成摄氏温度C，根据转 换结果C的不同值，按以 下要求给出相应的提示。
--
13
第 五 章 控 制 结 构 选 择 结 构 程 序 设 计
5.3 多分支选择语句 1. 格式 Select Case <测试表达式> Case <表达式表1> [<语句组1>] [Case <表达式表2> [<语句组2>]] … [Case Else [<语句组n>]] End Select 2. 功能: 根据测试表达式的值,按顺序匹配Case后的 表达式,如果匹配成功,则执行该Case下的语句块, 然后转到End Select语句之后继续执行。 14
控制结构
顺序结构
分支结构(选择)
--
重复结构(循环)
2
第 五 章 控 制 结 构 选 择 结 构 程 序 设 计
本章要点: 条件语句(续）
•多分支选择语句
Select Case... Case ... ... End Select
特点: 根据条件是否成立，决定程序的执行分支
3
--
第 五 章 控 制 结 构 选 择 结 构 程 序 设 计
--
Text1 Text2
Text3
Command1
19
第 五 章 控 制 结 构 选 择 结 构 程 序 设 计
Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text) C = Val(Text3.Text): Cls CurrentX = 600: CurrentY = 1100 If A = 0 Then If B = 0 Then MsgBox "系数为零，请重新输入" Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Else X = -C / B Print "X="; Format(X, "0.000") End If Exit Sub End If
Text1 Text2
--
C>40时，打印"HOT " 30<C≤40时，打印" WARM " 20<C≤30时，打印" ROOM TEMPERATURE " 10<C≤20时，打印" COOL " 0<C≤10时，打印" COLD " C≤0时，打印" FREEZING"
12
第 五 章 控 制 结 构 选 择 结 构 程 序 设 计
--
任意输入一对坐标值，找出它所在的象限。
8
第 五 Private Sub Command1_Click() 章 X = Val(Text1.Text): Y = Val(Text2.Text) If X = 0 Or Y = 0 Then Print "不在任何象限内": _ 控 制 Exit Sub 结 If X > 0 Then If Y > 0 Then Print "IN A" Else _ 构 Print "IN D" Else If Y > 0 Then Print "IN B" _ 选 Else Print "IN C" 择 rem 以上3行是一个语句。 结 构 End Sub 程 序 设 计 -9
--
第 五 章 控 制 结 构 选 择 结 构 程 序 设 计
5. 嵌套 IF ... THEN...IF ... THEN ...ELSE ...ELSE… 【例5-2】平面直角坐标系中，不同的象限内，点 的坐标的符号有以下4种情况: 在A象限 B C D X>0,Y>0 X<0,Y>0 X<0,Y<0 X>0,Y<0 Y B C A X D
5.4 应用举例 【例5-7】设计一个口令检测程序，界面如下图，当 用户输入的口令正确时，显示“恭喜！，您已成 功进入本系统”，否则，显示，“口令错！，请 重新输入”。如果连续两次输入了错误口令，在 第三次输入完口令后则显示一个消息框，提示 “对不起,您不能使用本系统”，然后退出整个应 用程序。 Text1 Label2
X = Val(Text1.Text) Y = Abs(X) If X > 0 Then Y = Log(X) Label3.Caption = Y X = Val(Text1.Text) Y = Log(X) If X <= 0 ThenY = Abs(X) Label3.Caption = Y
7
4
--
第 选择结构 五 传统流程图: 章 控 制 结 构 选 择 结 构 程 序 设 计
a
成立
语句组1
条件？
不成立
语句组2
-N-S流程图: 成立 A
b 条件
不成立 B
5
第 五 章 控 制 结 构 选 择 结 构 程 序 设 计
例: If N>0 Then A=A+B:B=B+A Else A=A-B:B=B-A 例: If X<>"aaa" Then Print X 【例5-1】设界面如下图所示，用文本框输入x的值， 单击“计算Y”按钮时，根据以下公式计算y的值。