VB顺序结构与选择结构.pptVIP

VB 顺序结构与选择结构 文成县第二高级中学 信息技术 顺序结构 ? 执行过程的次序从上到下，从左到右。 ? 例：请问此时的 c 的值是多少？ ? a = 10 ? b = a*2 ? c = a+b ? 在顺序结构中，由多条赋值语句构成，那么我们一起来看下赋值语句。 赋值语句 ? 赋值语句用来表明赋给某一个变量一个具体的确定值的语句叫做赋值语句。在算 法语句中，赋值语句是最基本的语句。 ? 赋值语句的格式： ? 1. 变量名 = 表达式（ a = 10 或 b = 2 * a ） ? 2. 对象名 . 属性名 = 表达式 ? 注意：如果在同一行中出现多个赋值语句，则语句之间用冒号隔开。 选择结构 ? 选择结构是一种常用的基本结构，其特点是根据所给定的选择条件为真或假，来 决定从不同操作中选择执行一种操作。 ? 行 If 语句 ? If 条件表达式 Then 语句 1 Else 语句 2 ? 或 If 条件表达式 Then 语句 ? 块 If 语句 ? If 条件表达式 1 Then ? 语句块 1 ? ElseIf 条件表达式 2 Then ? 语句块 2 ? Else ? 语句块 0 ? End if 条件 语句 1 语句 2 真 假 例：根据以下分段函数，任意输入一个 x 值，求 出 y 值。 ? ? ? ? ? ? ? ? ? 2 , 6 5 2 , 9 2 3 x x x x x y 分析： 当 x≥2 时，用公式 y ＝ x3 － 9 来求 y 的值； 当 x2 时，用公式 y ＝ x2 ＋ 5x-6 来计算 y 的值。 相应流程图与程序界面 x ≥ 2 y = x 3 － 9 y ＝ x 2 ＋ 5 x - 6 真 假 输入 x 值 输出 y 值 相应代码 ? 行 If 语句 ? Private Sub Command1_Click( ) ? Dim x As Single ? x = Val(T ext1.T ext) ? If x = 2 Then y = x ^ 3 - 9 Else y = x ^ 2 + 5 * x - 6 ? T ext2.T ext = y ? End Sub ? 块 If 语句 ? Private Sub Command1_Click( ) ? Dim x As Single ? x = Val(T ext1.T ext) ? If x = 2 Then ? y = x ^ 3 - 9 ? Else ? y = x ^ 2 + 5 * x – 6 ? End if ? T ext2.T ext = y ? End Sub If 语句的嵌套 ? If 语句的嵌套是指语句序列 1 或语句序列 2 本身又是一个 If 语句。 ? 语法格式： ? If 条件 1 Then ? If 条件 2 Then ? 语句序列 1 ? Else ? 语句序列 2 ? End If ? Else ? 语句序列 3 ? End If 条件 2 条件 1 If 语句的嵌套 ? 例：铁路托运行李，从甲地到乙地，规定每张客票托运费计算方 法是行李重量不超过 50kg 时， 0.25 元 /kg ，超过 50kg 而不超过 100kg 时，其超过部分按 0.35 元 /kg 收费，超过 100kg 时，其超过 部分按 0.45 元 /kg 收费。编写程序，输入行李重量，计算并输出 托运的费用。 ? 分析：设行李重量为 wkg ，应付运费为 x 元，则运费公式为： ) 100 ( ) 100 50 ( ) 50 ( ) 100 ( 45 . 0 50 35 . 0 50 25 . 0 ) 50 ( 35 . 0 50 25 . 0 25 . 0 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? w w w w w w x