VB程序设计课件以及作业5章节幻灯片.pptVIP

* 第5章 选择结构程序设计 本章要点: 条件语句 ? 单行结构条件语句If...Then...Else ? 块结构条件语句If...Then...EndIf ? 多分支选择语句Select Case...End Select 特点: 根据条件是否成立，决定程序的执行分支 * 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 N0 Then A=A+B:B=B+A Else A=A-B:B=B-A 例: If Xaaa Then Print X 【例5-1】设界面如下图所示，用文本框输入x的值，单击“计算Y”按钮时，根据以下公式计算y的值。 |x| x≤0 lnx x0 y= Private Sub Command1_Click() X = Val(Text1.Text) If X = 0 Then Y = Abs(X) Else Y = Log(X) Label3.Caption = Y End Sub Command1 Text1 Label3 * 4. 注意 (1) 应作为一条语句书写 (2) 无论条件是否成立，都具有共同出口 例: If X = 0 Then X = 1 + X Else X = 5 - X Y = 1 - X Print Y=; Y 若 X=2 则打印 Y=-2 若 X=-2 则打印 Y=-6 共同出口 * 5. 嵌套 IF ... THEN...IF ... THEN ...ELSE ...ELSE… 【例5-2】平面直角坐标系中，不同的象限内，点的坐标的符号有以下4种情况: X Y A B C D 在A象限 X0,Y0 B X0,Y0 C X0,Y0 D X0,Y0 任意输入一对坐标值，找出它所在的象限。 * 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 End Sub * 5.2 块结构条件语句 1.格式 If 条件1 Then [语句组1] [ElseIf 条件2 Then [语句组2]] …… [ElseIf 条件N Then [语句组N]] [Else [其他语句组]] End If 功能: …… If 条件1 Then [语句组1] Else [语句组2] End If Else子句 ElseIf子句 If语句 End If语句 注意: 格式书写、嵌套 * 【例5-3】输入华氏温度F，利用公式C=5/9*(F-32)转换成摄氏温度C，根据转换结果C的不同值，按以下要求给出相应的提示。 C40时，打印HOT 30C≤40时，打印 WARM 20C≤30时，打印 ROOM TEMPERATURE 10C≤20时，打印 COOL 0C≤10时，打印 COLD C≤0时，打印 FREEZING Text2 Text1 * Private Sub Command1_Click() C = 5 / 9 * (Val(Text1.Text) - 32) Text2.Text = Format(C, 0.00) If C 40 Then Label2.Caption = HOT ElseIf C 30 Then Label2.Caption = WAR