《VB第3章第3节2-Select语句.ppt》由会员分享，可在线阅读，更多相关《VB第3章第3节2-Select语句.ppt（26页珍藏版）》请在三一办公上搜索。
1、第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,本节的学习内容,学点什么呢?,熟练掌握用VB语言的选择语句进行选择结构程序设计的方法,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,选择结构,双分支选择结构,单分支选择结构,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,选择结构,多分支选择结构,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,选择结构 语句,1、If 语句 2、Select 语句3、Goto 语句,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,结构化程序设计语句,第3章 VB.NET面向对象程序设计第3节
2、 2 选择结构语句,三、选择语句（Select Case语句）,程序1：If s=90 Then MessageBox.Show(Class A)If s=80 And s=70 And s80 Then MessageBox.Show(Class C)If s70 Then MessageBox.Show(Class D),程序2：If s=90 Then MessageBox.Show(Class A)ElseIf s=80 Then MessageBox.Show(Class B)ElseIf s=70 Then MessageBox.Show(Class C)Else MessageB
3、ox.Show(Class D)EndIf,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,上述问题用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 SelectSelect Case语句功能：在程序中实现多值判别并选择执行相应的语句。,第3章 VB.NET面向对象程序设计第3节 2 选择结
4、构语句,Select Case语句格式：Select Case 测试表达式 Case 表达式1 语句1 Case 表达式2 语句2 Case Else 语句 End Select,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,说明：(1)测试表达式可以是变量、函数、数值表达式、字符串表达式或逻辑表达式。(2)Case子句中表达式的数据类型应与测试表达式的数据类型一致。(3)Case子句中表达式的几种形式：常数或表达式 例：Case True 测试表达式的值等于True。常数1（表达式1）To 常数2（表达式2）例：Case 1 To 5 测试表达式的值在1到5范围内Is 比较运
5、算表达式 例：Case Is 6 测试表达式的值大于6的值。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,(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 结束。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,(7)计算机执行Select Case语句的过程：计算测试表达式的值并与语句中各Case子句中表达式的值进行比较。如果相等，就执行与该Case相关
6、联的语句。若没有一个Case子句的值与测试表达式的值相等，则执行Case Else部分的语句。若无Case Else部分，则直接执行Select Case语句的后继语句。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,Select Case语句流程图：,Select Case,Case,End Select 的下个语句,为表达式取值范围，可以是：常量或常量列表 如 10，20 值1 To 值2 如 30 To 50 Is 常量 如 Is50,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,【例312】计算分段函数的值，并在消息对话框上显示计算结果。Dim x As
7、 Single,y As Integer x=InputBox(请输入X的值)If x 100 Then End Select Case Int(x/10)Case 0 To 5 y=2 Case 6 y=3,Case 7,8 y=4 Case 9,10 y=5 End Select MessageBox.Show(y=&y),请考虑：使用If语句的程序,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,【例313】从键盘顺序输入由常数、运算符、常数构成的简单算术式，如5.0+3.2，其中运算符可以是+、-、*、/。试编写程序，在消息对话框上显示该算术表达式及其值。Dim A As
8、 Single,B As Single,S As SingleDim Op As StringA=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),第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,Case*S=A*B MessageBox.Show(A&B&=&S)Case/If B 0 Then S=A/B MessageBox.Show(A&B
9、&=&S)Else MessageBox.Show(分母为0！)End If Case Else MessageBox.Show(输入符号有误！)End Select,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,例:(exp1)由计算机给出一系列的110的操作数和运算符，学生输入该题的答案，计算机根据学生的答案判断正确与否，当结束时给出成绩。分析：产生110操作数，可通过Int(10*Rnd+1)实现 设置的控件名：Label1、txtInput、txtoutput、Button1、Button2、Button3,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,
10、程序：Dim Num1 As Integer,Num2 As Integer 两个操作数Dim SExp As StringDim Result 计算结果Dim NOk%,NError%统计计算正确与错误数Private Sub Button2_Click()Handles Button2.Click Txtoutput.Text=-Txtoutput.Text=Txtoutput.Text&vbCrLf&“一共计算”&_(NOk+NError)&道题 Txtoutput.Text=Txtoutput.Text&vbCrLf&“得分:”&_ Int(NOk/(NOk+NError)*100)&
11、分End Sub,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,在文本框输入计算结果，按“确定”按钮，在文本框2中显示正确与否。Private Sub Button1_Click()Handles Button1.Click If Val(Txtinput.Text)=Result Then Txtoutput.Text=Txtoutput.Text&vbCrLf&SExp&Txtinput.Text&计算正确 NOk=NOk+1 Else Txtoutput.Text=Txtoutput.Text&vbCrLf&SExp&Txtinput.Text&计算错误 NError=N
12、Error+1 End If Txtinput.Text=Txtinput.Focus()Form1_Load(sender,e)生成下一个算式 End Sub,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,Private Sub Button3_Click()Handles Button3.Click EndEnd Sub 通过产生随机数生成表达式Private Sub Form1_Load()Handles MyBase.LoadDim NOp As Integer,Op As String 操作符 Randomize()初始化随机数生成器 Num1=Int(10*Rnd(
13、)+1)产生1-10之间的操作数 Num2=Int(10*Rnd()+1)产生1-10之间的操作数 NOp=Int(4*Rnd()+1)产生1-4之间的操作代码,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,Select Case NOp Case 1 Op=Result=Num1+Num2 Case 2 Op=Result=Num1-Num2 Case 3 Op=Result=Num1*Num2 Case 4 Op=Result=Num1/Num2 End Select SExp=Num1&Op&Num2&=Label1.Text=SExp End Sub,第3章 VB.NE
14、T面向对象程序设计第3节 2 选择结构语句,四、Goto语句 功能：无条件转向指定的语句 格式：Goto 标号/行号 其中：（1）标号/行号用于指明程序将转至的目标语句的逻辑位置。（2）标号是一个以字母开头的字符序列，在模块中标号必须是唯一的；行号是一个数字序列。转移语句能灵活地改变程序流向，给程序设计带来某些方便。但过多使用Goto语句，会使程序结构变得杂乱无章，影响程序的可读性和正确性。因此，在程序设计中，应尽量少用甚至不用Goto语句。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,【例314】Goto语句示例 Dim a As Single,b As Single,c
15、As Single10:a=InputBox(请输入A的值)b=InputBox(请输入B的值)c=InputBox(请输入C的值)If a+b=c,继续输入)GoTo 1050:MessageBox.Show(a=&a&b=&b&_ c=&c&vbCrLf&a+bc,结束)行号10、50为转移语句提供了标志，行号30可以不用。,若a+b c 转向50语句,无条件转向10语句,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,【例315】设计程序，计算5的阶乘并显示结果。Dim I As Integer,N As IntegerN=1:I=1Again:N=N*II=I+1 If
16、I=5 Then GoTo AgainElse GoTo 500End If500:MessageBox.Show(I-1&!=&N),当I小于等于5时，程序转移到标号again处执行；,当I5时，程序转移到行号500处执行。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,【例316】学生分数统计。Dim s As Single,num As IntegerDim smax As Integer,smin As IntegerDim nummax As Integer,nummin As IntegerDim sum As Integer,ave As SingleDim ch
17、 As Stringnum=1:smax=-1:smin=10110:ch=请输入第&num&个学生的成绩s=InputBox(ch)输入学生成绩sum=sum+s 学生成绩累加If s smax Then smax=s:nummax=num 保留最高分及对应学号If s smin Then smin=s:nummin=num 保留最低分及对应学号If num=30 Then GoTo 20 输入30个数据后程序结束num=num+1GoTo 10,循环,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,20:MessageBox.Show(最高分=&smax&学号=&_ numm
18、ax&vbCrLf&最低分=&smin&学号=&nummin _&vbCrLf&总分=&sum&平均分=&sum/num)求最大值、最小值时必须注意初始值的选择。每输入一个数据都分别与smax、smin进行比较：大于smax当前值的数据将成为smax的新值（smax=s），同时保留其学号（nummax=num）。小于smin当前的数将取代smin的原值而成为新的当前值（smin=s:nummin=num）。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,请考虑：如何将【例39】改成由If-Goto构成的循环结构（假设循环10次）。学习要点1.熟练掌握：选择结构各语句的语法格式。2.熟练阅读：使用选择结构语句的程序。3.熟练使用：if语句、select语句、goto语句进行程序设计。,
