VisualBasic5章选择结构与循环结构.pptVIP

在结构化程序设计中，选择结构是最常用的结构之一。其作用是要求系统根据给定的条件是否满足、结果是否成立来选择程序执行的方向. 从书写形式上区分： 单行结构条件语句、块结构条件语句 5.1.1 单行结构条件语句 一.单分支结构： If 条件表达式 Then 语句 说明： “条件”通常是关系表达式或逻辑表达式。 “语句” 可以是简单句或复合句 功能：表达式的结果为真时执行语句块，当表达式结果为假时，跳过语句块执行 例5－1 输入三个数，输出其中最大值。 思考：已知两个数x和y，比较它们的大小，使得x大于y. If xy Then t=x: x=y: y=t 重要的是学会两个数的交换，若上述语句次序变一下，结果如何？ 二、 双分支结构： 格式： If 条件表达式 Then 语句1 Else 语句2 功能：若条件成立或为非0值，则执行“语句1”，否则执行语句2。 其中：“条件”通常是关系表达式或逻辑表达式。 “语句1”和“语句2”可以是简单句或复合句。 5.1.2 块结构条件语句 If 条件表达式 Then 语句块1 Else 语句块2 End If 块结构条件语句： 例题5-2：某商场为了促销，采用购物打折的优惠办法，每位顾客一次购物 （1）1000元以上，按九五折优惠 （2）2000元以上，按九折优惠 （3）3000元以上，按八五折优惠 （4）5000元以上，按八折优惠 编写程序，输入购物款数，计算并输出优惠价。 方法一： Private Sub Command1_Click() Dim x As Single, y As Single x = val(Text1.Text) If x 1000 Then y = x Else If x 2000 Then y = 0.95 * x Else If x 3000 Then y = 0.9 * x Else If x 5000 Then y = 0.85 * x Else y = 0.8 * x End If End If 方法二： Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 1000 Then y = x ElseIf x 2000 Then y = 0.95 * x ElseIf x 3000 Then y = 0.9 * x ElseIf x 5000 Then y = 0.85 * x Else y = 0.8 * x End If Text2.Text = Str(y) End Sub 例5－4 给出a，b，c的值，问它们能否构成三角形的3边。如能构成三角形，计算此三角形的面积。 Private Sub Command1_Click() Dim a!, b!, c!, p!, s!：a = Val(InputBox(“请输入第一个数”))： b = Val(InputBox(“请输入第二个数”))：c = Val(InputBox(请输入第三个数)) If a 0 And b 0 And c 0 Then If a + b c And b + c a And a + c b Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Print 三角形的边长和面积依次为; a; b; c; s Else Print 这三个数不能构成三角形的三个边 End If End If End Sub 两种条件结构语句的异同： 1、条件语句中的条件不仅仅是逻辑表达式或关系表达式，还可以是数值表达式。 2、then 语句仅跟在If语句之后,“语句块”中的语句不能与then在同一行，否则VB认为是一个单行结构的条件语句。 3、块结构条件语句，必须以End if 结束，而单行结构的条件语句不需要end if 5.1.3 情况语句（更为清晰的多分支结构） 例5－5 从键盘上输入学生成绩，然后在文件框中显示其等级（按5级计分值输出不及格、及格、中等、良好、优秀