Visual Basic程序设计教程第04章.ppt

4.3.3 多分支选择语句Select Case...End Select 格式： Select Case 测试表达式 Case 表达式表1 [语句组1] [Case 表达式表2 [语句组2]] … [Case 表达式表n [语句组n]] [Case Else [语句组n+1]] End Select * 功能： 根据“测试表达式”的值，按顺序匹配Case后的表达式表，如果匹配成功，则执行该Case下的语句组，然后转到End Select语句之后继续执行； 如果“测试表达式”的值与各“表达式表”都不匹配，则执行Case Else之后的“语句组n+1”，再转到End Select语句之后继续执行。 * 流程图： * （1）“测试表达式”可以是任何数值表达式或字符表达式。 （2）Case后的表达式表有如下几种形式： 形式一：表达式1[,表达式2]... 例如：Case 1, 3, 5 表示“测试表达式”的值为1或3或5时将执行该Case语句之后的语句组。 形式二：表达式1 To 表达式2 说明： * 例如：Case 0 To 100 表示“测试表达式”的值在0到100之间（包括0和100）时将执行该Case语句之后的语句组。 例如：Case A To Z 表示“测试表达式”的值在A到Z之间（包括A和Z）时将执行该Case语句之后的语句组。 * 形式三： Is 关系运算符 表达式 例如：Case Is = 0 表示“测试表达式”的值大于或等于0时将执行该Case语句之后的语句组。 以上3种形式可以同时出现在同一个Case语句之后，各项之间用逗号隔开。 例如：Case 1, 3, 5, 10 To 100, Is 0 * 【例4-5】用多分支选择语句实现：输入年份和月份，求该月的天数。 分析： 月份为1、3、5、7、8、10、12：31天 月份为4、6、9、11：30天 月份为2时，如果是闰年：29天 如果不是闰年：28天 某年为闰年的条件是：年份能被4整除，但不能被100整除，或年份能被400整除。 * 界面设计： Text1 Text2 Text3 Command1 * Private Sub Command1_Click() Dim Y As Integer, M As Integer Y = Val(Text1.Text) 输入年份 M = Val(Text2.Text) 输入月份 Select Case M Case 1, 3, 5, 7, 8, 10, 12 Text3.Text = 31 Case 4, 6, 9, 11 Text3.Text = 30 代码设计： * Case 2 如果月份为2 If (Y Mod 4 = 0 And Y Mod 100 0) _ Or (Y Mod 400 = 0) Then Text3.Text = 29 Else Text3.Text = 28 End If End Select End Sub * （1）“测试表达式”的类型应与各Case后的表达式类型一致。 Select Case StuName Case Tom …… Case Jerry …… 使用多分支选择语句应注意: （2）不可以在Case后的表达式中使用“测试表达式”中的变量。 * 例如，要求以下y值： Select Case x Case Is 0 y = 1 Case Is = 0 y = 0 Case Is 0 y = -1 End Select Select Case x Case x 0 y = 1 Case x = 0 y = 0 Case x 0 y = -1 End Select √ × * （3）Select Case后的“测