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

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算法与程序设计


相关文章:
FORTRAN90用法总结
CASE(表达式 N) 块语句 N CASE DEFAULT 默认块语句 END SELSCT 5、循环函数 1>循环控制语句 IF(e) EXIT 终止循环 2>CYCLE 跳出此次循环 3>DO 循环 DO i...
VFP选择题7(Word版)
DO CASE-ENDCASE D. DO WHILE-ENDDO 4.单选题:...菜单级 D. 插入 36.单选题: 设有下列语句: do ....scx 和.sct 42.单选题: 在命令窗口中执行下列(...
VF30套习题汇总
表单文件的扩展名为 ()(A) sct (b).scx (C)...(D)SEL 语言 答案:C 10 使用“标签向导”设置...答案:正确 第二题: 多分支语句 DO CASE...END...
VFP复习资料
SCT MNX 菜单文件 MNT MPR MPX 2 说明 项目 项目备注 数据库 数据库备注 ...ENDCASE 语句 格式:do case case<条件表达式 1> <语句表达式 1> [? ? ...
VPF试题
但循环体中应有退出循环的语句,否则是 第 5 题(...C:.scx D:.sct 答案:A 第 10 题(2.0 分) ...X=X+1 DO CASE ***SPACE*** CASE 【?】 LOOP...
2015软件工程实验报告
3.根据属性查找地物: 步骤:打开按属性查找,选择图层为面图层,构建 SQL 语句: Selsct* from 土地利用 where 土地类型=林地 三.程序流程图下面是系统其中一个...
经典手工注入你懂的
="+escape("127 and 1=2 union select 1,username,password,4,5,6,7,8,9,10 from admin where id=1")); 这些东西应该都不用解释了吧,给出语句就行...
数据库语句
数据库语句_计算机软件及应用_IT/计算机_专业资料。修改密码: 使用 sqlplus,以...(sysdate) from dual; Add_months:下个月的这天的日期 Selsct add_months(...
英语答案
selsction:1ithas 2thenumberads 3convey 4itprovide 5reach 6consumer 7easy...13affect 14but 15disturb 16strain 17overall 18assum 19However 20case ...
选择题
FF.sct和 FF.scx 文件 必定同时存在成对的 FF....(A)、 DO CASE-ENDCASE (B)、(C)、(D)、 ...[单选题]采用下列的___语句可在数据库表考生.dbf...
更多相关标签: