31选择结构一 Select case选择语句 ◆语法格式 Select case<测试表达式 <测试表达式>值的类型是数 Case<表达式1> 值型、字符串型、日期型等, 旦与某个Case后的<表达式 <语句1> 值相等,则执行这个Case中的< Case<表达式2> 语句>,完成后执行 End select <语句2> 后的语句 如果所有的Case后的<表达 Case Else 式>都不与<测试表达式>项匹配, <语句n+1> 则执行 Case else后的<语句>。 End select ◆功能:根据测试表达式的值,决定程序的流向。 返回目录
3.1 选择结构－Select Case选择语句 ◆ 语法格式： Select Case <测试表达式> Case <表达式1> <语句1> Case <表达式2> <语句2> ……… [Case Else <语句 n+1>] End Select ◆ 功能：根据测试表达式的值，决定程序的流向。 返回目录 <测试表达式>值的类型是数 值型、字符串型、日期型等， 一旦与某个Case后的<表达式> 值相等，则执行这个Case中的< 语句>，完成后执行End Select 后的语句。 如果所有的Case后的<表达 式>都不与<测试表达式>项匹配， 则执行Case Else后的<语句>
31选择结构一 Select case选择语句 a Form1 「例36学生成绩分等 Data= InputBox("请输入一个成绩","成绩分等") Select Case Int(Data/10) Case 10 单击窗体 MsgBox"满分","成绩分等 Case 9 成绩分等 Casas Box"优秀”,"成绩分等 请输入一个成绩 8 匚确定」 MsgBox"良好","成绩分等 取消 Case 7 同9 确定 MsgBox"一般","成绩分等" Case 6 Msg Box"合格","成绩分等 Case Else 成绩分等X MsgBox"不合格","成绩分等 良好 End select 匚确定 返回目录
3.1 选择结构－Select Case选择语句 [例3.6] 学生成绩分等 Data = InputBox("请输入一个成绩", "成绩分等") Select Case Int(Data / 10) Case 10 MsgBox "满分", , "成绩分等" Case 9 MsgBox "优秀", , "成绩分等" Case 8 MsgBox "良好", , "成绩分等" Case 7 MsgBox "一般", , "成绩分等" Case 6 MsgBox "合格", , "成绩分等" CaseElse MsgBox "不合格", , "成绩分等" End Select 返回目录 单 击 窗 体 确 定