第4章2选择结构分析.ppt

* * 例1:将P82例4.8 改用 Select Case 语句实现：(P85例4.10) Select Case ch Case a To z，A To Z MsgBox( ch + 是字母字符) Case 0 To 9 MsgBox (ch +是数字字符) Case Else MsgBox( ch + 是其他字符) End Select 多分支结构，用Select Case语句比If…Then…ElseIf语句直观，程序可读性强。但不是所有的多分支结构均可用Select Case语句代替If…Then…ElseIf语句。 本章目录 * 例2:P85 例4.11判断坐标点(x，y)，落在哪个象限。 代码一 If x 0 And y 0 Then MsgBox(在第一象限) ElseIf x 0 And y 0 Then MsgBox(在第二象限) ElseIf x 0 And y 0 Then MsgBox(在第三象限) ElseIf x 0 And y 0 Then MsgBox(在第四象限) End If 代码二 Select Case x,y Case x 0 And y 0 MsgBox(“在第一象限”) Case x 0 And y 0 MsgBox(“在第二象限”) Case x 0 And y 0 MsgBox(“在第三象限”) Case x 0 And y 0 MsgBox(“在第四象限”) End Select 代码二错误： 1. Select Case 后不能出现多个变量 2. Case后不能出现变量及有关运算符 本章目录 例3：成绩等级 例4：月份日子数 * 用Select Case语句来实现多分支选择功能， 程序代码如下： Private Sub Command1_Click() Dim score As Integer, temp As String score = Val(Text1.Text) temp = 成绩等级为： Select Case score Case 0 To 59 Label2.Caption = temp + 不及格 Case 60 To 79 Label2.Caption = temp + 及格 　　　　 Case 80 To 100 Label2.Caption = temp + “优良 Case Else Label2.Caption = 成绩出错 End Select End Sub 例3 判断成绩的等级（优良、及格、不及格） * （1）分析：不管哪一年，1、3、5、7、8、10、12月份都有31天；4、6、9、11月份都有30天；而对2月份则要看是否是闰年，若是闰年有29天，平年有28天。 判断某一年是否闰年的逻辑表达式: 闰年的条件是:①能被4整除，但不能被100整除的年份。②或能被400整除的年份。 (y Mod 4 = 0 And y Mod 100 0) Or (y Mod 400 = 0) 例4: 输入一个月份，输出该月份有多少天 * Private Sub Command1_Click() ‘“输出”按钮 Dim y As Integer, m As Integer, d As Integer y = Val(Text1.Text) m = Val(Text2.Text) 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