(25)--4-3-6 选择结构的嵌套.ppt

4-3-6 选择结构的嵌套Visual Basic程序设计本节内容选择结构的嵌套引例1示例321.引例输入月份，在不考虑闰年的情况下，要显示该月有多少天，如何实现？m=Val(InputBox(请输入月份,输入框)Select Case m Case 1,3,5,7,8,10,12 d=31 Case 4,6,9,11 d=30 Case 2 d=28 Case Else d=0End Select输入年份和月份，若考虑闰年的情况下，要显示该月有多少天？1.引例分析：历法中规定，闰年是能被4整除，不能被100整除的年，或者是能够被400整除的年。如何书写判断是否闰年的条件表达式？y Mod 4=0 And y Mod 100 0 Or y Mod 400=01.引例y=Val(InputBox(请输入年份,年份输入框)m=Val(InputBox(请输入月份,月份输入框)Select Case m Case 1,3,5,7,8,10,12 d=31 Case 4,6,9,11 d=30 Case 2 If y Mod 4=0 And y Mod 100 0 Or y Mod 400=0 Then d=29 Else d=28 End If Case Else d=0End SelectPrint y&年&m&月有&d&天2.选择结构的嵌套嵌套：是指Then、Else、Case后面的语句块中又完整地包含了If语句或Select case语句，形式多样，常见如下：If Then If Then End IfElse End If 注意：注意：完整地完整地包含指在语句块内包含指在语句块内 If与与End If Select Case与与End Select配对出现配对出现注意：注意：对于嵌套结构，为了增强程序的可对于嵌套结构，为了增强程序的可读性，读性，书写时采用锯齿形书写时采用锯齿形。3.示例If x 0 Then Text2.Text=1Else If x=0 Then Text2.Text=0 Else Text2.Text=-1 End IfEnd If编程求符号函数sgn(x)的值。13.示例判断计算机等级成绩为优秀（90-100），合格（60-89），不合格（60分以下）2演示3.示例已知x，y，z三个数，使得xyz3If xy Then t=x:x=y:y=t If yz Then t=y:y=z:z=t If xy Then t=x:x=y:y=t End IfEnd Ifu 引例引例u 选择结构的嵌套选择结构的嵌套u 示例示例模块小结模块小结