《vb选择结构select》由会员分享，可在线阅读，更多相关《vb选择结构select（62页珍藏版）》请在金锄头文库上搜索。
1、选择结构一、单分支的if语句1、格式1 If 表达式 Then 语句块End if2 If 表达式 Then语句块2、功能：3、说明：（1）“表达式”一般为关系或逻辑表达式。（2）“语句块”可以是任意多个语句，只不过“格式2”中的多个语句之间必须用：隔开，书写在同一行。此时，“End if”可以省略。4、举例：例1：任意读入两个整数，从小到大输出这两个数。Private Sub Command1_Click() Dim a As Integer, b% a = InputBox(请输入一个整数：) b = InputBox(请输入一个整数：) If a b Then Print b; a En
2、d If If b = a Then Print a; b End IfEnd Sub5、InputBox函数（1）简单格式 InputBox(提示信息)（2）使用格式（赋值语句） 变量= InputBox(提示信息)（3）功能：从键盘上接受一个数据，然后赋值给某个变量（即读入一个任意值，保存到某变量中。（4）用InputBox函数输入的数据默认为字符型，但由于赋值语句的特点“右边服从左边”，通常会自动转换成相应类型值之后再赋值给变量。例如：Private Sub Command1_Click() a,b不定义就使用，被认为是变体型 a = InputBox(请输入一个整数：) b = Inp
3、utBox(请输入一个整数：) If a b Then Print b, a If b = a Then Print a, bEnd Sub输入的是“9”和“12”则会被当成字符串9和字符串12，赋值给a和b，而字符串按其ASCII码值比较大小（字典序）。因此，“变量最好先定义再使用”二、双分支if语句1、格式1 If 表达式 Then 语句块1Else 语句块2End if2If 表达式 Then 语句块1 Else 语句块22、功能3、说明格式1中Else独立占一行！4、举例改写上例：Option ExplicitPrivate Sub Command1_Click() Dim a%, b
4、% a = InputBox(请输入一个整数：) b = InputBox(请输入一个整数：) If a b Then Print b, a Else Print a, b End IfEnd Sub法二让a中存放较小数，b中存放较大数。Option ExplicitPrivate Sub Command1_Click() Dim a%, b%, t As Integer a = InputBox(请输入一个整数：) b = InputBox(请输入一个整数：) If a b Then 交换二者的值 t = a a = b b = t End If Print a, bEnd Sub*重要基本
5、算法：两数交换借助第三数。类似于两水杯交换其中的内容，借助第三个空杯子，最终空杯子依然是空的。但是，中间变量t却保存了a或b的值。只是没用。例2：任意读入3个整数，从小到大输出这3个数。算法提示：让a中放最小数，c中放最大数Option ExplicitPrivate Sub Command1_Click() Dim a%,b%,c%,t% A=inputbox(“:”) b=inputbox(“:”) c=inputbox(“:”) if ab thent=a:a=b:b=t end if if ac thent=a:a=c:c=t end if if bc thent=b:b=c:c=t
6、end if print a;b;cEnd Sub三、多分支if语句1格式 If 表达式1 then 语句块1 Elseif 表达式2 then 语句块2 Elseif 表达式3 then 语句块3 Else 语句块n End if2功能3说明（1）各“表达式”通常为关系（、=等）表达式、逻辑表达式（Not、And、Or）（2）Else子句可以省略（但一般不省），省略之后可能一个分支都不被执行。（3）各分支中最多只会有一个分支被执行到。4应用举例例2、商场打折：满500元打5折；满300不足500打6折；满200不足300打7折；满100不足200打8折；其余不打折。请为收银员编程，输出顾客应
7、付款。Option ExplicitPrivate Sub Command1_Click() Dim cost As Single, x As Single x表示商品原价 x = InputBox(读入原价) If x = 500 Then cost = x * 0.5 ElseIf x = 300 Then cost = x * 0.6 ElseIf x = 200 Then cost = x * 0.7 ElseIf x = 100 Then cost = x * 0.8 Else cost = x End If Print 应付款:; costEnd Sub注意：对变量的判断，最好按从
8、小到大或从大到小的顺序书写。例3、批发铅笔：满500支打5折；满300不足500打6折；满200不足300打7折；满100不足200打8折；其余不打折。每支铅笔原价1元。请为收银员编程，输出顾客应付款。法一：同前例法二：用Select Case语句四、Select Case语句（多分支）1格式格式一 Select case 表达式 Case 表达式1:语句块1 Case 表达式2:语句块2 Case 表达式3:语句块3 Case Else:语句块n End Select格式二Select case 表达式 Case 表达式1语句块1 Case 表达式2语句块2 Case 表达式3语句块3 Ca
9、se Else语句块n End Select2功能3说明：（1）Select case后的表达式通常为常量、变量或算术表达式（2）而Case后的若干表达式只能是如下几种形式：单个常量(对应“Select case后的表达式”与该常量是否相等的判断)多个常量，两两之间用逗号隔开(对应“Select case后的表达式”与该多个常量中的某一个是否相等的判断)常量1 To 常量2(对应“常量1Select case后的表达式常量2”的判断)Is 关系运算符 数值(对应Select case后的表达式 数值或Select case后的表达式 数值或Select case后的表达式数值或Select c
10、ase后的表达式数值或Select case后的表达式= 数值或Select case后的表达式数值)【 判断“select case 后的表达式”是否落在某case后所表示的范围内。 各case分支后的范围不要重合，更不能矛盾。】 例1：某商场刚开业，前10名或1000名之后打6折；第18名、28名打5折；第888名打1折；100名200名打5.5折； 其余打8折。Private Sub Command1_Click() Dim yj As Single, xh As Integer Dim cost As Single yj = InputBox(输入原价:) xh = InputBox(
11、输入序号:) Select Case xh Case 888: cost = yj * 0.1 Case 18, 28: cost = yj * 0.5 Case 100 To 200: cost = yj * 0.55Case Is = 1000, Is = 10cost = yj * 0.6 Case Else: cost = yj * 0.8 End Select Print 您是第; xh; 号顾客，应付款打折后:; costEnd Sub例2：由两数乘积是否为0，判断两数为0的情况。Private Sub Command1_Click() Dim x%, y% x = InputBo
12、x(x:) y = InputBox(y:) Select Case x * yCase 0 与Case Is=0等价 Print x和y至少有一个为0Case Is 0Print x和y都不为0 End SelectEnd Sub（3）Case Else分支可以省略，但省略后可能一个分支都不被执行。（4）“格式一”一般在各“语句块”为单个语句时用（5）当Select Case 后的表达式的值落在某表达式范围内时，就执行其所对应分支改写前例1、“读入成绩代号（AE），输出对应分数范围。”Option ExplicitPrivate Sub Command1_Click() Dim fs As String fs = InputBox(读入成绩AE！) Select Case fs Case A: Print =90! Case B: Print 80-89 Case C: Print 70-79 Case D: Print 60-69 Case E: Print = 5: cost = n * 0.5 Case 3, 4: cost = n * 0.6 Case 2: cost = n * 0.7 Case 1: cost = n * 0.8 Case Else:
