VB第3篇第3节2-Select语句.ppt

第3章 VB.NET面向对象程序设计——第3节 2 选择结构语句 本节的学习内容 选择结构 语句 三、选择语句（Select Case语句） 上述问题用Select Case语句： Select Case Int(s/10) Case 9,10 MessageBox.Show(Class A) Case 8 MessageBox.Show(Class B) Case 7 MessageBox.Show(Class C) Case 0 To 6 MessageBox.Show(Class D) End Select Select Case语句功能：在程序中实现多值判别并选择执行相应的语句。 Select Case语句格式： Select Case 测试表达式 [Case 表达式1 [语句1]] [Case 表达式2 [语句2]] …… [Case Else [语句]] End Select 说明： (1)测试表达式可以是变量、函数、数值表达式、字符串表达式或逻辑表达式。 (2)Case子句中表达式的数据类型应与测试表达式的数据类型一致。 (3)Case子句中表达式的几种形式： ①常数或表达式 例： Case True 测试表达式的值等于True。 ②常数1（表达式1） To 常数2（表达式2） 例：Case 1 To 5 测试表达式的值在1到5范围内 ③Is 比较运算表达式 例： Case Is 6 测试表达式的值大于6的值。 (4)Case子句中允许含有多个表达式，表达式间用逗号分隔。 例： Case 1 To 5, 10 To 5, 21, IsMin Case A, C To F , Name$ (5)Select Case语句允许嵌套。 (6)Select Case语句以 End Select 结束。 (7)计算机执行Select Case语句的过程： 计算测试表达式的值并与语句中各Case子句中表达式的值进行比较。如果相等，就执行与该Case相关联的语句。 若没有一个Case子句的值与测试表达式的值相等，则执行Case Else部分的语句。 若无Case Else部分，则直接执行Select Case语句的后继语句。 Select Case语句流程图： 【例3—12】计算分段函数的值，并在消息对话框上显示计算结果。 Dim x As Single, y As Integer x = InputBox(请输入X的值) If x 0 Or x 100 Then End Select Case Int(x / 10) Case 0 To 5 y = 2 Case 6 y = 3 【例3—13】从键盘顺序输入由常数、运算符、常数构成的简单算术式，如5.0+3.2，其中运算符可以是+、-、*、/。试编写程序，在消息对话框上显示该算术表达式及其值。 Dim A As Single, B As Single, S As Single Dim Op As String A = InputBox(请输入A的值) B = InputBox(请输入B的值) Op = InputBox(请输入运算符) Select Case Op Case + S = A + B MessageBox.Show(A + B = S) Case - S = A - B MessageBox.Show(A - B = S) Case * S = A * B MessageBox.Show(A × B = S) Case / If B 0 Then S = A / B MessageBox.Show(A ÷ B = S) Else MessageBox.Show(分母为0！