2.3程序的选择结构.pptVIP

课堂练习 1.假设year表示年份，判断year是否为闰年（写逻辑表达式） 2.编程，任意输入三个数a, b, c，找出其中最小的一个，并输出来。 3.某商场为了对苹果进行促销，规定购买30千克以上可以在原价每千克4.5元的基础上打9折。编程计算购买x千克苹果应付多少钱。 4. 编写程序判定某个同学考试成绩的等级：90分以上为优秀，80至89分为良好， 70至79分为中等，60-69分为及格，60分以下为不及格。 课堂练习 (1).假设year表示年份，判断year是否为闰年。 ((year Mod 1000) And (year Mod 4=0)) Or (year Mod 400=0) 课堂练习 (2). Private Sub Command1_Click( ) Dim a, b, c, Min As Single a = InputBox(a=, 输入a) b = InputBox(b=, 输入b) c = InputBox(c=, 输入c) If a b Then Min = a Else Min = b End If If c Min Then Min = c End If Print Min=; Min End Sub 课堂练习 (3). Private Sub Command1_Click( ) Dim x, y As Single x = InputBox(x=, 输入苹果重量) If x 30 Then y = x * 4.5 * 9 Else y = x * 4.5 End If Print x=; x, y=; y End Sub 课堂练习 (4). Private Sub Command1_Click( ) Dim Score As Integer Score = InputBox(Score=, 请输入成绩) Select Case Score Case Is = 90 Print 优秀 Case 80 To 89 Print 良好“ Case 70 To 79 Print “中等” Case 60 To 69 Print 及格 Case Else Print 不及格 End Select End Sub * 乘除先于整除 §2.3 程序的选择结构 《算法与程序设计》（粤教版） 复习上一节课 1.顺序结构 2.赋值语句 3.输入数据的函数InputBox( ) 4.输出数据的方法Print 2.3.1引入条件语句 问题：任意输入一个数，求它的绝对值，并输出来。 (不用绝对值函数) X=0 Y=x Y=-x Y N 选择结构 2.3.1引入条件语句 问题：任意输入一个数，求它的绝对值，并输出来。 Private Sub Command1_Click( ) Dim x, y As Single x = InputBox(x=, 输入x) If x = 0 Then y = x Else y = -x End If Print x=; x, y=; y End Sub 2.3.2条件语句 开始 判断条件 语句组 真 假 单分支结构 结束 开始 判断条件 语句组1 真 假 双分支结构 结束 语句组2 1.条件语句格式 (1) If 条件 Then 语句组 (2) If 条件 Then 语句组 End If (1) If 条件 Then 语句组1 Else 语句组2 (2) If 条件 Then 语句组1 Else 语句组2 End If 2.条件语句的执行过程 条件语句的执行过程是：当条件成立时，执行Then后面的语句组1，否则执行Else后面的语句组2。 3.关系表达式 关系表达式是用关系运算符连接起来的式子。如：x0。关系运算符号有： 运算符号 = = = 含 义 等于 大于 大于等于 小于 小于等于 不等于 当关系表达式成立时其值为真（True ），当关系表达式不成立时其值为假（False），真和假均属于逻辑型。 3.关系表达式 关系表达式的值定义如下： （1）对数值型数据的比较，是按数值的大小来比较它们的关系。 136 值为True，98=89 值为False。 （2）对其他类型数据的比较，则按其序号来进行比较它们的。 “A”