第三节选择结构体验活动4课件.ppt

格式： Select Case语句（多重选择语句） Select Case 表达式 Case 表达式范围1 语句块1 Case 表达式范围2 语句块2 …… Case 表达式范围n 语句块n [Case Else 语句块 n+1] End Select 说明：表达式的范围可有四种 编写一个数字到星期名称的转换程序。当输入1时，输出“星期一”当输入2时，输出“星期二”；依此类推。如果输入1到7之外的数字，输出“输入错误”。 Private Sub Command1_Click() Dim num As Integer Dim week As String num = Int(Text1.Text) Select Case num Case 1 week = 星期一 Case 2 week = 星期二 Case 3 week = 星期三 Text2 Text1 Case 4 week = 星期四 Case 5 week = 星期五 Case 6 week = 星期六 Case 7 week = 星期天 Case Else week = 输入错误！ End Select Text2.Text = week End Sub Select Case语句格式： Select Case 测试表达式 [Case 表达式1 [语句1]] [Case 表达式2 [语句2]] …… [Case Else [语句]] End Select 说明： (1)测试表达式可以是变量、函数、数值表达式、字符串表达式或逻辑表达式。 (2)Case子句中表达式的数据类型应与测试表达式的数据类型一致。 (3)Case子句中表达式的几种形式： ①常数或表达式 例： Case True 测试表达式的值等于True。 ②常数1（表达式1） To 常数2（表达式2） 例：Case 1 To 5 测试表达式的值在1到5范围内 ③Is 比较运算表达式 例： Case Is 6 测试表达式的值大于6的值。 (4)Case子句中允许含有多个表达式，表达式间用逗号分隔。 例： Case 1 To 5, 10 To 5, 21, IsMin Case A, C To F , Name$ (5)Select Case语句允许嵌套。 (6)Select Case语句以 End Select 结束。 Select Case语句流程图： Select Case 表达式 Case ① Case ② No Case ③ No End Select 的下个语句 语句块4 No （Case Else） ①②③为表达式取值范围，可以是： 常量或常量列表 如 10，20 值1 To 值2 如 30 To 50 Is 比较符 常量 如 Is50 语句块1 Yes 语句块2 Yes 语句块3 Yes Case “表达式值”的几种形式: 表达式值 表示固定值，如 Case 1或 Case 3*5+7 用逗号分隔的值 表示几个固定值之一，如 Case 1,3,5 表达式值1 To 值2 表示上、下限范围，如 Case 2 To 4 Is 关系运算符 值 表示范围，如 Case Is 5