程序的选择结构2.pptVIP

程序的选择结构 多重选择语句 条件语句的格式 If 条件 then 语句组1 else 语句组2 或 If 条件 then 语句组1 else 语句组2 End if P48实践 提示:判定公历闰年遵循的一般规律为:四年一闰,百年不闰,四百年再闰. Private Sub Command1_Click() n = InputBox(输入年号, 判断闰年, 2000) If n / 100 = n \ 100 Then If n Mod 400 = 0 Then Print 闰年 Else Print 不是闰年 Else If n Mod 4 = 0 Then Print 闰年 Else Print 不是闰年 End If End Sub Private Sub Command2_Click() n = InputBox() Print n; If n Mod 100 = 0 Then n = n / 100 If n Mod 4 0 Then Print 不; Print 是闰年 End Sub Private Sub Command3_Click() n = InputBox() a = 不 If n Mod 400 = 0 Or n Mod 100 0 And n Mod 4 = 0 Then a = Print n; a; 是闰年 End Sub 例:居民生活水平的评价 利用5个IF语句来实现 Private Sub Command1_Click() x = InputBox(请输入人均食品支出总额:, 输入) y = InputBox(请输入人均个人消费支出总额:, 输入) n = x / y If n 0.59 Then Print 该地区居民生活处于贫困水平! If n = 0.5 And n = 0.59 Then Print 该地区居民生活处于温饱水平! If n = 0.4 And n 0.5 Then Print 该地区居民生活处于小康水平! If n = 0.3 And n 0.4 Then Print 该地区居民生活处于富裕水平! If n 0.3 Then Print 该地区居民生活处于最富裕水平! End Sub 利用嵌套If语句来实现 Private Sub Command1_Click() x = InputBox(请输入人均食品支出总额:, 输入) y = InputBox(请输入人均个人消费支出总额:, 输入) n = x / y If n 0.59 Then Print 该地区居民生活处于贫困水平! else If n = 0.5 Then Print 该地区居民生活处于温饱水平! else If n = 0.4 Then Print 该地区居民生活处于小康水平! else If n = 0.3 Then Print 该地区居民生活处于富裕水平! else Print 该地区居民生活处于最富裕水平!“ end if end if end if end if End Sub 使用多重选择语句来实现 Private Sub Command1_Click() x = InputBox(请输入人均食品支出总额:, 输入) y = InputBox(请输入人均个人消费支出总额:, 输入) n = x / y Print 恩格尔系数n=; n Select Case CInt(n * 100) Case Is 59 Print 该地区居民生活处于贫困水平! Case 50 To 59 Print 该地区居民生活处于温饱水平! Case 40 To 49 Print 该地区居民生活处于小康水平! Case 30 To 39 Print 该地区居民生活处于富裕水平! Case Else Print 该地区居民生活处于最富裕水平! End Select End Sub 多重选择语句的基本格式 Select case 表达式 case 值域1 语句组1 case 值域2 语句组1 …… case 值域N 语句组N case else 语句组N+1 END SELECT 多重语句的执行过程是：当表达式的值为值域1时，执行语句组1…… 值域的类型与表达式