当前位置:首页 >> 其它课程 >>

Selsct Case 语句


算法与程序设计
Select Case 语句

? 前面的 学习,使我们掌握了利用条件语句来解 决两种情况的判断和选择问题。但是在现实生活 中,有时会遇到选择的情况多于两种,那么应该 如何编写而计算机程序来处理这类问题呢?

? 输入一个学生的一门课分数 x(百分制), 当x≥90 时,输出“优秀”;当 80≤x < 90 时,

输出“良好”;当 70≤x<80 时,输 出 “ 中 ” ; 当 60≤x < 70 时 , 输 出 “ 及 格”,当 x<60 时,输出“不及格”。
Vb算法与程序设计

应用if语句代码

?Private Sub Command1_Click() ?a = Val (text1.text) ?If a >= 90 Then ? Print “优秀" ? ElseIf a >= 80 Then ? Print “良好" ? ElseIf a >= 70 Then ? Print “中" ? ElseIf a >= 60 Then ? Print “及格" ? Else ? Print “不及格" ?End If ?End Sub

Vb算法与程序设计

Select Case语句
? 当对一个表达式的不同取值情况作不同处理时,

用 Else If 语 句 程 序 结 构 显 得 较 为 杂 乱 , 而 用
Select Case 语句将使程序的结构更清晰, Select Case语句又称为多重选择语句。

Vb算法与程序设计

基本格式:
? Select Case 测试表达式 思考:测试表达式 ? Case 表达式列表1 的与表达式类表有 什么样的关系? ? 语句块1 ? Case 表达式列表2 ? 语句块2 ? … ? [Case Else ? 语句块n+1] ? End Select

Vb算法与程序设计

? 功能:根据“测试表达式”的值,选择第 一个符合条件的语句块执行。

?

Select Case语句的执行过程是:先求 “测试表达式”的值,然后顺序测试该值 符合哪一个Case子句中情况,如果找到了, 则执行该Case子句下面的语句块,然后执 行End Select下面的语句;如果没找到,则 执行Case Else下面的语句块,然后执行 End Select下面的语句。
Vb算法与程序设计

应用Select Case语句
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

Private Sub Command2_Click() Dim x as integer x = Val (InputBox("输入分数")) Select Case x Is>100,is<0表示表达式的 Case is>100, is<0 值大于100或小于0时执行 print”请输入0~100的数” 后面的语句组 Case 100 to 85 Print "优秀!" Case 75 To 84 Print "良好!" Case 60 To 74 Print "及格!" Case Else Print "不及格!" End Select Vb算法与程序设计 End Sub

说明:

? “测试表达式”可以是数值型或字符串型表达式; ? ? “表达式列表”形式有以下3种: ? (1)一个表达式或用逗号隔开的若干表达式 ? (2)表达式1 To 表达式2 ? (3)Is 关系 表达式 例如: Case 1,3,5 Case 10 to 20 Case is>=10 Case Is=5 等价于 Case 5 Case Is<2 , Is>100
Vb算法与程序设计

练习
? 1.判断输入的数>0则输出“正数”,=0输出 “零”,<0输出“负数”Private Sub
Private Sub Command1_Click() Command1_Click() x = Val (InputBox("输入")) x = Val (InputBox("输入")) Select Case x
Case Is > 0 Print "正数!" Case Is = 0 If x = 0 Then Print “零” Print "零!" If x < 0 Then Print "负数" Case else End Sub Print "负数!" End Select 两种方法的比较 End Sub

If x > 0 Then Print “正数”

Vb算法与程序设计

2.阅读程序,分别写出当f=1,2,3,4时程序运行 的结果,说明程序的功能。 F=inputbox(“请输入1~4之间的 整数”) A=2 : B=3 看看它能 Select case f 干什么 case 1: c=a+b: d=“+” case 2: c=a-b: d=“-” case 3: c=a*b: d=“×” case 4: c=a/b: d=“÷” Case else : end End select Print a; d; b;”=”;c
Vb算法与程序设计

3.实践操作

一年12个月,各个月份有几天?
? ? ? ? ? ? ? ? 算法设计 1.输入月份 2.判断月份满足那个 如果是 1,3,5,7,8,10,12 月是31天 如果是4,6,9,11月是30天 如果是2月 平年28天闰年29天 else 输入有错 3.程序结束 看看程序
我们试一试?
Vb算法与程序设计

居民生活水平状况的评价
? 1857年德国统计学家恩思特.恩格尔阐明了一个定 律:随着家庭好个人收入增加,收入中用于食品 方面的支出比例将逐渐减少。反映这一定律的系 人均食品支出总额 n? *100% 人均个人消费支出总额 数称为恩格尔系数,计算公式为:

人均食品支出总额 n? *100% 人均个人消费支出总额
N在59%以上为贫困,50%≤n<59%为温饱, 40%≤n<50%为小康, 30%≤n<40%为富裕,n低于30% 为最富裕.

完善程序

Vb算法与程序设计

上机作业

.编写一个程序,让计算机同我们一起玩 剪刀、石头、布的游戏。如果人输了,则 输出“你输了”;人赢了,则输出“你赢 了”;人与计算机平了,则输出“平局”。

Vb算法与程序设计

小结
? 在vb语言中,选择结构通过if语句和select case语 句这两个条件语句来实现,运用条件语句的关键 是条件的表示,如果能够正确的表达条件,就可 以简化程序。在多重选择的情况下,使用select case语句,可以使程序更加直观、更准确地描述 出分支的走向。你也可以制作小游戏。

Vb算法与程序设计


相关文章:
VBA中的Select Case语句
VBA中的Select Case语句_计算机软件及应用_IT/计算机_专业资料。excel VBA中的Select Case语句 Select Case 语句也是条件语句之一, 而且是功能最强大的条件语句。 ...
跟我学vb--第10课时_select_case语句
跟我学vb--第10课时_select_case语句_工学_高等教育_教育专区。select case 语句 【学习目标】 (一)在知识与技能方面 1、掌握 select case 语句的格式、功能和...
指点迷津----SELECT CASE语句
武威第五中学课堂教学设计首页编写时间:2014 年 4 月 28 日 课题 教学目标 教学重点 教学难点 课型 教学模式 指点迷津---SELECT CASE 语句 知识技能 过程方法 ...
选择结构练习二(select case 语句实现百分制学生成绩
选择结构练习二用 select case 语句实现下列功能: 问题情境: D C 60 以下操作如下: B 75-84 A 85 以上 60-74 要求每输入一个百分制成绩,判断出它是属于...
程序设计基础——CASE语句
程序设计基础—— 程序设计基础——CASE 语句 ——一,格式 Select Case <表达式> Case <情况 1> …… Case <情况 2> …… Case <情况 3> ……… Case ...
跟我学vb--第10课时 select case语句
跟我学vb--第10课时 select case语句_IT/计算机_专业资料。跟我学vb select case 语句【学习目标】 学习目标】 (一)在知识与技能方面 语句的格式、功能和执行...
select-case
select-caseSelect...Case 条件语句 如果要将同一个表达式与不同的值进行比较,则可以用 Select...Case 语句来替换 If...Then...Else 语句。 所不同的是,...
常用简单sql语句
往更上一层楼' else print'成绩优异希望再接再厉' end else print'需努力学习' case 语句示例 select username,uid,职位级别= case dept when '02' then '...
经典sql基本语句大全
使用 SQL 语句 用...代替过长的字符串显示 语法: SQL 数据库: select case when len(field)>10 then left(field,10)+'...' else field end as news_...
更多相关标签:
selsct case | selsct | switch case语句 | java switch case语句 | js switch case语句 | c switch case语句 | case语句 | c语言switch case语句 |