多重选择语句.ppt

《多重选择语句.ppt》由会员分享，可在线阅读，更多相关《多重选择语句.ppt（6页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、多重选择语句多重选择语句多重选择语句多重选择语句l高中新课程实施中“学生成绩评定”是按“A、B、C、D”四个等级来评定。但是测试成绩则是按百分制来计，于是规定百分制成绩与等级评定有下面的关系：60分以下为D，6074分为C，7584分为B，85分以上为A。要求输入一个百分制测试成绩，就判断它属于哪个等级。lPrivate Sub Command1_Click()lDim m As Single, r As Stringlm = InputBox(输入需要转换的分数)lIf m = 60 And m = 75 And m = 85 Thenl r = AlEnd IflPrint m; 转换后的

2、等级为; rlEnd Sub多重选择语句多重选择语句多重选择语句多重选择语句l多重选择语句，处理多种情况的语句。基本格式为：l select case 表达式 case 表达式列表1 语句组1 case 表达式列表2 。 case else 语句组N+1 end select多重选择语句多重选择语句lPrivate Sub Command1_Click()lDim m As Single, r As Stringlm = InputBox(请输入需要转换的分数)lSelect Case ml Case Is 60l r = Dl Case 60 To 74l r = Cl Case 75 To 84l r = Bl Case Elsel r = AlEnd SelectlPrint m; 转换后的等级为; rlEnd Sub多重选择语句多重选择语句