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

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


相关文章:
VFP复习资料
SCT MNX 菜单文件 MNT MPR MPX 2 说明 项目 项目备注 数据库 数据库备注 ...ENDCASE 语句 格式:do case case<条件表达式 1> <语句表达式 1> [? ? ...
理科vfp复习知识点
Sql 语句 SELECT 中各子句有何用途 select 子句:...(表单).txt(文本).sct(表单备注).bak(备份文件)...DO case 多分支程序的编写(P54 格式 4) 35 如何...
Vf选择填空题 完整版
ENDCASE 语句属于( A:顺序结构 B:循环结构 C:分支结构 D:模块结构 31.按...A:.SCX B:.SCT C:.FRX D:.DBT 43.表结构中空值(UNLL)的含义是(D) A...
VFP应用基础自考模拟试卷(三)
在 SELECT 语句中, ( )子句后可能带有 HAVING 短语 A、ORDER B、GROUP C、WHERE D、SELSCT 14、在 SELECT 语句中,如果要对输出的记录进行排序,应选择使用( ...
数据库基础试题27
A..frx和.frt B..scx和.sct C..mnx和.mnt D..pjx和.pjt 39. 修改...错 12. 多分支语句DO CASE...ENDCASE中的各个条件之间必须关联. 错 13. 在...
3.4 代码设计基础
语法规则: Selsct Case 条件表达式 Case 表达式值 1 语句块 1 Case 表达式值 2、 语句块 2 …… Case Else 语句块 n End Select 功能:Select Case 在结构...
选择题
FF.sct和 FF.scx 文件 必定同时存在成对的 FF....(A)、 DO CASE-ENDCASE (B)、(C)、(D)、 ...[单选题]采用下列的___语句可在数据库表考生.dbf...
VF30套习题汇总
表单文件的扩展名为 ()(A) sct (b).scx (C)...(D)SEL 语言 答案:C 10 使用“标签向导”设置...答案:正确 第二题: 多分支语句 DO CASE...END...
VF30套习题汇总(1)
(A).SCX 和.SCT (B).mnx 和.mnt (C).frx ...答案:正确 13.多分支语句 DO CASE?ENDCASE 中的...(D)SEL 语言答案:C 10 使用“标签向导”设置标签...
VPF试题
但循环体中应有退出循环的语句,否则是 第 5 题(...C:.scx D:.sct 答案:A 第 10 题(2.0 分) ...】 LOOP CASE X>=100 ***SPACE*** 【 ?】 OTHERWI...
更多相关标签:
honey selsct | nikky case selikan | switch case语句 | java switch case语句 | js switch case语句 | c switch case语句 | select case语句 | php switch case语句 |