VB第3章第3节2-If语句

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,本节的学习内容,学点什么呢?,熟练掌握用,VB,语言的,选择语句,进行选择结构程序设计的方法,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,P,A,B,真,假,选择结构,双分支选择结构,单分支选择结构,P,A,真,假,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,选择结构,k,A1,A2,Ai,An,k=k2,k=k1,k=,kn,k=,ki,.,.,多分支选择结构,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,选择结构 语句,1、,If,语句,2、,Select,语句,3、,Goto,语句,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,选择结构的应用场合,当我们不知向何处走时，会抬头,看看路牌，当某个方向满足了我们的,要求，则会向此方向走去。,在程序设计中当某条件成立，执,行一段程序；某条件不成立，执行另,一段程序。这就是选择结构。选择结,构可使用,If,或,Select,语句完成。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,例：,计算分段函数,主要代码：,If x0 Then,y=Math.sin(x)+Math.,sqrt,(x*x+1)Else y=Math.,cos,(x)x3+3*xEnd If,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,结构化程序设计语句,语句类别,语句名称,顺序语句,赋值语句,结束语句,条件语句,条件语句（,If,语句）,选择语句（,Select,语句）,转移语句,Goto,语句,循环语句,计数循环（,For/Next,语句）,条件循环（,DoLoop,语句）,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,3.3.2 选择结构语句,一、条件语句（,If,语句）,功能：在程序中根据条件,是否满足,选择执行相应的语句。,例如，,若变量,A,的值大于变量,B,的值，将,B,的数值赋予,A,。,If,AB,Then A=B,If,语句的多种格式：,（,一）,格式1,（单分支结构）,If,条件,Then,语句,EndIf,或：,If,条件,Then,语句,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,例如：,Dim x As Integer,y As Integer,x=3:y=2,If x+y Then x=y,其中，,If,语句的条件是一个数值表达式，由于该表达式的值等于5（非0为,True），,因此条件满足，将,y,的值赋给,x。,说明：,(1),If,语句中的条件为关系表达式、逻辑表达式、数值表达式。,若数值表达式的值非0，则,If,语句中的条件为,True；,若数值表达式的值为0，则,If,语句中的条件为,False。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,(2)若,Then,后面有多个语句，则语句之间用冒号分隔（或并列多行）。,例如：,If xy Then,MessageBox,.Show(,x=,&x,vbCrLf,&,y=,&y):x=y,或：,If xy Then,MessageBox,.Show(,x=,&x,vbCrLf,&,y=,&y),x=y,EndIf,该语句功能：若,x,的值大于,y,的值，输出,x、y,的值，然后将,y,的值赋给变量,x。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,(3)计算机执行,If,语句的过程：,首先计算,If,和,Then,之间的表达式（条件），得到一个逻辑值（,True,或,False）。,若值是,True,（,满足条件），执行,Then,后面的语句。接着执行,If,语句的,后继,语句。,若值是,False,（,不满足条件），不执行,Then,后面的语句，直接执行,If,语句的,后继,语句。,(4),If,语句的流程图：,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,（二）,格式2,（双分支结构）,If,条件,Then,语句1,Else,语句2,EndIf,或：,If,条件,Then,语句1,Else,语句2,说明：,(1)语句中的条件、书写规则与格式1相同。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,例如：,If xy Then,x=y,Else y=x,EndIf,或：,If xy Then x=y Else y=x,语句功能：若,x,的值大于,y,的值，则将,y,的值赋给变量,x；,否则将,x,的值赋给变量,y。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,(2)计算机执行,If-Then-Else,语句的过程：,首先计算,If,和,Then,之间的表达式（条件），得到一个逻辑值（,True,或,False）,若值是,True,（,满足条件），则执行,Then,后面的语句1。接着执行,If,语句的后继语句。,若值是,False,（,不满足条件），则执行,Else,后面的语句2，接着执行,If,语句的后继语句。,(3),Then,部分的语句和,Else,部分的语句都可以是多个语句。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,语句2,N,语句1,Y,条 件,P,(4),If-Then-Else,语句的流程图：,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,例：,计算分段函数,单分支结构实现：,y=Math.,cos,(x)x3+3*x,If x0 Then y=Math.sin(x)+Math.,sqrt,(x*x+1),双分支结构实现：,If x0 Then,y=Math.sin(x)+Math.,sqrt,(x*x+1)Else y=Math.,cos,(x)x3+3*xEnd If,请思考：条件,x0,换成,x=0,，,程序该做何改动,？,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,（三）,格式3,（多分支结构）,If,条件1,Then,语句1,ElseIf,条件2,Then,语句2,Else,语句,n+1,EndIf,说明：,(1)语句中的条件、书写规则与格式1相同。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,(2)计算机执行,If-Then-,ElseIf,语句的一般过程：,首先计算,If,和,Then,之间的表达式（条件1），得到一个逻辑值（,True,或,False）。,若值是,True,（,满足条件），则执行,Then,后面的语句1。接着执行,If,语句的后继语句。,若值是,False,（,不满足条件），则计算,ElseIf,后面的,条件2,，得到一个逻辑值（,True,或,False）：,若值是,True（,满足条件），则执行语句2，若值是,False（,不满足条件），则继续后面的,ElseIf,的,条件3,；,依此不断计算判断，直到所有的条件均不满足，执行语句,n+1。,例如：,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,If x=1 Then,MessageBox,.Show（x）,ElseIf,x=2 Then,MessageBox,.Show（,x*x）,ElseIf,x=3 Then,MessageBox,.Show（,x*x*x）,Else,MessageBox,.Show（,x+x）,EndIf,(3),语句1、语句2、语句,n+1,都可以是多个语句。,该语句的执行过程：,若,x=1，,则输出,x；,若,x=2，,则输出,x,的平方；,若,x=3，,则输出,x,的立方；否则输出,x,加,x,的和。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,（四）嵌套,If,语句,在,If,语句的,Then,部分或,Else,部分的语句是另一个,If,语句，这种语句结构称为,If,语句的嵌套。,各种嵌套情况：讲义45页,例：,If a0 Then If b0 Then,If b0,，,则与变量,s,中的数据相加；,否则,与变量,p,中的数据相加。在文本框内输出,s、p,的结果及正数、负数的个数。,Private Sub Form1_Click(,ByVal,sender As Object,ByVal,e As _,System.,EventArgs,)Handles,MyBase,.Click,Dim a As Single,Static s As Single,p As Single,i As Integer,j As Integer,a=,InputBox,(,请输入,a,的值,例3-9,),If a 0 Then,s=s+a:i=i+1,TextBox1.Text=s,TextBox2.Text=,共输入正数&,i&,个,Else,p=p+a:j=j+1,TextBox3.Text=p,TextBox4.Text=,共输入负数&,j&,个,End If,End Sub,用,Static,声明,变量,s、p、i、j,，,使这些变量保留前一次的计算结果。,用,If,语句,判断,a,是否,大于0,，并分别做相应的处理。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,【例310】,计算分段函数的值,Dim a As Single,x As Single,y As Single,TextBox1.Text=,TextBox2.Text=,TextBox3.Text=,a=,InputBox,(,请输入,a,的值,计算分段函数),x=,InputBox,(,请输入,x,的值,计算分段函数),If x -a)And(x a/2 Then y=x,TextBox1.Text=a=&a,TextBox2.Text=x=&x,TextBox3.Text=y=&y,也可以使用下列的,If-Then-,ElseIf,语句得到相同的结果：,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,If x -a)And(x a/2 Then,y=x,End If,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,【例311】求一元两次方程,ax,2,+,bx,+c=0,的两个实根，并在消息对话框上显示计算结果。,执行事件过程时，先出现3次输入对话框，用户依次输入,a、b、c,的值，若输入的值符合求实根的要求，则通过计算求出并显示方程的根；否则显示“无实根”，并不做任何计算退出程序（过程）。,程序执行后，,若,依次输入变量,a、b、c,的值为1、3、2；则输出结果如图所示：,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,二、程序结束语句（,End,语句）,功能：,结束程序的运行,。,例如：,If x0 Then End,该语句判断,x,是否小于0，若小于0，程序运行结束。,语句格式：,End,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,学习要点,1.熟练掌握：,If,语句、,End,语句的语法格式。,2.熟练阅读：使用选择结构语句的程序。,3.熟练使用：,If,语句,、,End,语句,进行程序设计。,第3章 VB.NET面向对象程序设计第3节 2 选择结构语句,