vb选择结构select.docx

1、vb选择结构selectvb选择结构select选择结构一、单分支的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(请输入一个整数：) I

2、f a b Then Print b; a End 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 = In

3、putBox(请输入一个整数：) b = InputBox(请输入一个整数：) 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 Co

4、mmand1_Click() Dim a%, b% 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 I

5、f Print a, bEnd Sub*重要基本算法：两数交换借助第三数。类似于两水杯交换其中的内容，借助第三个空杯子，最终空杯子依然是空的。但是，中间变量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 i

6、f if bc thent=b:b=c:c=t 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不足20

7、0打8折；其余不打折。请为收银员编程，输出顾客应付款。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 应付款:; c

8、ostEnd Sub注意：对变量的判断，最好按从小到大或从大到小的顺序书写。例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 表

9、达式2语句块2 Case 表达式3语句块3 Case 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后的表达式 数值或Sel

10、ect case后的表达式数值或Select case后的表达式数值或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 = InputB

11、ox(输入原价:) xh = InputBox(输入序号:) 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(

12、) Dim x%, y% x = InputBox(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 Com

13、mand1_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: cost = n End Select Print 购买; n; 支铅

14、笔应付款：; cost; 元End Sub补充：对新文件的保存，只需按“保存”按钮，按出现的两个对话框的提示保存窗体（.frm）、工程文件（.vbp）。*对老文件的重新保存（或改变其名字、或改变其位置），（1）选择“文件”“工程另存为”，在弹出的对话框中修改.vbp文件的主名或位置；（2）选择“文件”“ .frm另存为”，在弹出的对话框中修改.frm文件的主名或位置。*文本框的使用：能帮助完成输入、输出！1、属性（1）Text属性有一个默认值，建议在设计时就删除（2）Name（名称）属性默认为Text1、Text2没有Caption!2、用于输入：与赋值语句合用。格式变量名=文本框的Name属

15、性值.Text说明（1）“.Text”可以省（2）文本框中输入的数据依然默认为字符型。（3）与InputBox函数类似，通常一次读入一个值给一个变量。（4）执行程序后，先往文本框中输入数据，然后再触发事件（单击命令按钮等）。3、用于输出与赋值语句合用。格式文本框的Name属性值.Text=表达式说明（1）MultiLine属性为True，则可多行显示（却一般默认为False）。（2）vbCrLf是系统常量，功能是“回车且换行”，可以用“Chr(10) & Chr(13)”（3）Chr是一个系统函数，参数是0-127（0-255）整数，对应ASCII码表里所有字符的ASCII码值。功能是将该AS

16、CII码值对应的字符求出来。 Chr(65)与”A”等价（4）&是字符串连接符：“Hello,” & “XiaoLi”“Hello, XiaoLi”&左右侧必须各空一格。（5）+也可以做字符串连接符：字符串1 + 字符串2以上使用格式是“+”做连接符的最好写法。否则，要记很多规则。（6）&总是将不是字符串的对象变成字符串后连接。（7）+的某一个运算对象若为数值型（或可以转换成数值型True等），而另一个对象即使是数字字符串，会被转换成数值，进行加法运算。但若是不能转成合法数值的字符串，则报错！*标签控件（Lable）一般与文本框等控件合用，专门用来标识说明。（1）Name属性默认为Lable1

17、、Lable2（2）Caption属性用来标识说明。五、用选择语句的嵌套完成多分支结构的描述 x = Text1 If x = 500 Then cost = x * 0.5 Else If x = 300 Then cost = x * 0.6 Else If x = 200 Then cost = x * 0.7 Else If x = 100 Then cost = x * 0.8 Else cost = x End If End If End If End If注意嵌套时，外层一定要完整地包住内层。判断闰年Private Sub Command1_Click() Dim y As Integer Dim flag As Boolean y = InputBox(输入年份:) If y Mod 4 = 0 Then If y Mod 100 = 0 Then If y Mod 400 = 0 Then flag = True Else flag = False End If Else flag = True End If Else flag = False End If If flag = True Then Print y; 是闰年 Else Print y; 不是闰年 End IfEnd Sub