《Visual Basic程序设计与实训 教学课件 ppt 作者 苏玉雄 电子教案 第4章》由会员分享，可在线阅读，更多相关《Visual Basic程序设计与实训 教学课件 ppt 作者 苏玉雄 电子教案 第4章（78页珍藏版）》请在金锄头文库上搜索。
1、第4章,VB的选择结构,本章学习目标,4.1 IF单分支、双分支结构,单分支条件语句的格式： If Then 或 If Then 语句块 End If,4.1.1 单分支条件语句结构说明,4.1.1 条件语句结构说明,处应该是一个逻辑表达式，或者结果可以转换为逻辑值的表达式。 “语句块”处是一条或多条连续的语句(允许没有任何语句)。如果是第一种格式，那语句块只能是单条语句。 当程序执行到这条语句时，首先检查的值是否为True。如果是True，则执行Then后的“语句块”，然后接着执行下面的语句。 如果“条件”为False,则不执行“语句块”中的任何语句，直接跳到下一条语句执行。,案例4-1,输
2、入两个数值x、y，通过程序使x的值大于y的值。使用文本框输入并在文本框中显示结果界面设计如下。,案例4-1,【案例分析】：分析这个题目我们可以看出，其实这是一个需要判断的单分支语句结构，首先要判断的就是x和y哪一个值比较大，如果x本来就大，那么我们不需要做任何事，反之y比x大，我们就需要通过程序将x和y的值互换，以保证x的值大于y的值。x和y的互换中，我们要借助一个临时变量，其作用如图4-3所示。程序流程图参考下。,案例4-1,程序设计如下： Private Sub Command1_Click() Dim x As Integer,y As Integer x=Val(Text1.Text)
3、 : y=Val(Text2.Text) If xy是否为真如果为真执行下面程序 t=x 使用临时变量记录x的值 x=y 将y值付给x y=t 将t中记录的x的值付给y，完成整个交换过程 End If Text1.Text=x : Text2.Text=y End sub 或者： Private Sub Command1_Click() Dim x As Integer,y As Integer x=Val(Text1.Text) : y=Val(Text2.Text) If xy Then t=x: x=y: y=t 将三条语句使用分隔符冒号隔开 Text1.Text=x : Text2.T
4、ext=y End sub,4.1.2 IF双分支结构,双分支条件语句结构 If Then Else 或 If Then Else End If,双分支结构说明,案例4-2,计算分段函数，使用输入框输入x的值，用消息框输出y的值。 ：,案例4-2,【案例分析】：通过这个案例我们可以发现判断条件是x是否为0，不同的x得出不同的值。所以我们选择双分支条件语句结构。 【程序设计】： Private Sub Command1_Click() x = Val(InputBox(“请输入x的值“) If x0 Then 判断x是否为0 y=sin(x)+sqr (x*x+1) Else y=cos(x)x
5、3+3*x End If MsgBox “计算结果为：” & y End Sub,案例4-2运行效果,输入需计算的X的值,计算得到的结果,课堂练习4-1,使用输入框输入一个实数，使用消息框输出该实数的平方根。 【案例分析】：首先要判断该实数是否小于0，如果小于0则没有实数根，否则使用Sqr函数计算出该数的平方根。 【程序设计】： Private Sub command1_Click() Dim x As Single x = Val(InputBox(“请输入x的值“) If x = 0 Then MsgBox “概述的平方根为：“ & Sqr(x) Else MsgBox “概述没有平方根。
6、“ End If End Sub,课堂练习4-1运行效果,计算得出结果,输入实数,课堂练习4-2,在文本框Text1中输入一个整数，并判断该数的奇偶性，将结果显示在文本框。 【案例分析】：本案例中使用除法取余数来判断奇偶性，将输入数据除2取余数，如果余数为1则该数为奇数，余数为0则该数为偶数。,界面效果,课堂练习4-2,【程序设计】： Private Sub command1_Click() Dim int1 As Integer, int2 As Integer int1 = Val(Text1.Text) int2 = int1 Mod 2 整除2取余数 If int2 = 0 Then
7、判断是否为偶数 Text2.Text = “这是一个偶数!“ Else Text2.Text = “这是一个奇数!“ End If End Sub,课堂练习4-2运行效果,程序运行结果,4.2 条件语句的嵌套,简单的来说“条件语句的嵌套”其实就是在一个条件语句中还有另外一个条件结构嵌在其中。条件语句的嵌套可以包含很多层，形成多重条件语句嵌套，但嵌套是有限制的。从下面这个图我们可以一起来分析一下条件语句的嵌套结构：我们可以看出每一个长方形就是一个选择语句，它包括了条件表达式、满足条件的语句块、不满足条件的语句块，而不满足条件的语句块却是另外一个条件语句，它也包括了条件表达式、满足条件的语句块、不
8、满足条件的语句块，这样一直下去。这就是一个嵌套的条件结构。,4.2.1 条件语句的嵌套格式,4.2.1 条件语句的嵌套格式说明,案例4-3,某学校期末考试结束后，对学生的成绩进行成绩评定。方法是：90100分为“优秀”，8089分为“良好”，7079分为“中等”，6069分为“合格”，其余为“不合格”。在一个文本框中输入学生的成绩，在另一个文本框中显示学生成绩的等级。,案例4-3,【案例分析】：我们对这个程序可以先判断输入的成绩是否大于90，如果是，那么学生成绩为“优秀”，如果不是，那么我们再用一个条件结构判断是否大于80，这样一直下去，直到我们把所有的条件都判断一次，就可以实现从多个条件中进
9、行选择。,案例4-3,Private Sub Command1_click() Dim x As Single x = Text1.Text If x = 90 Then 判断值是否在90100之间 Text2.Text = “优秀“ Else If x = 80 Then 判断值是否在8090之间 Text2.Text = “良好“ Else If x = 70 Then Text2.Text = “中等“ Else If x = 60 Then Text2.Text = “及格“ Else 其他情况 Text2.Text = “不合格“ End If End If End If End I
10、f End Sub,程序运行结果,案例4-4,使用文本框输入三条边的长度，使用消息框显示计算的出的面积。 【案例分析】：应先判断3条线段是否能组成三角形，所以首先判断两个条件：（1）、3条线段均大于0；（2）、任意两边之和大于第三条边。如果条件都满足那么就使用海伦公式计算面积其中。,界面设计,案例4-4,Private Sub Command1_Click() Dim a, b, c, s, m As Single a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) If a 0 And b 0 And c 0 Then
11、判断三边大于0 判断两边之和大于第三边 If (a + b) c And (b + c) a And (a + c) b Then s = (a + b + c) / 2 m = Sqr(s * (s - a) * (s - b) * (s - c) MsgBox “三角形面积为：“ & m End If Else MsgBox “这三边不能构成三角形“, , “计算“ End If End Sub,案例4-4运行效果,课堂练习4-3,使用文本框输入3个数，并将这三个数从大到小输出到屏幕上。 【案例分析】：设有3个数a，b，c，判断这3个数的大小，如果每个都进行比较的话工作量太大。我们采用一种
12、方法，先将a和b进行比较，如果b比a大则两个数调换，确保a是这两个数的最大数。然后a再和c比较，如果a比c大则比较b和c；否则顺序就是c，a，b。,课堂练习4-3 程序设计,Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, t As Single Cls 清除屏幕 a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) If a c Then If b c Then 判断b和c的小 Print “这三个数从大到小依次是：“ Print
13、 a, b, c Else Print “这三个数从大到小依次是：“ Print a, c, b End If Else Print “这三个数从大到小依次是：“ Print c, a, b End If End Sub,程序运行结果,4.3 多分支条件语句,多分支选择结构主要应用在有多个条件并能根据所满足的条件的不同选择相应的不同选项，它相比较单分支和双分支结构有更多的选择条件和更多的选项。例如：还是对一个学生的成绩进行评定，评定出“优秀”，“良好”，“合格”和“不合格”。在这个例子中就有5种情况供我们选择。单、双分支语句均不能满足要求。怎么办呢？我们可以使用多分支选择语句解决问题。,4.3
14、.1 多分支语句结构,多分支if语句的格式为： If Then 语句块1 ElseIf Then 语句块2 ElseIf Then 语句块3 Else 语句块n End If,4.3.1 多分支语句流程图,4.3.1 多分支语句结构说明,多分支if语句的执行顺序是：若表达式1的值为True，则执行语句块1，否则，若表达式2的值为True，则执行语句块2，依次类推。 在多分支结构中，每一个语句块执行后，均直接转去执行End If 的下一条语句； 结构中的ElseiIf项可以有多个，但else项只能有一个，并且ElseIf是连着写，中间没有空格； 结构中End If表示多分支选择语句的结束，不可省
15、略。,案例4-5,重做案例4-3：某学校期末考试结束后，对学生的成绩进行成绩评定。方法是：90100分为“优秀”，8089分为“良好”，7079分为“中等”，6069分为“合格”，其余为“不合格”。在一个文本框中输入学生的成绩，在另一个文本框中显示学生成绩的等级。 【案例分析】：让我们来分析一下。在本题中，需要先输入学生的分数，然后根据分数的多少评定等级，共有5种等级。分别有4个条件： 90分分数=100分； 80分分数=89分； 70分分数=79分； 60分分数=69分。对应有五个选项：“优秀”；“良好”；“中等”；“合格”； 如果四个条件都不满足则为“不合格”。显然需要使用多分支条件语句。,案例4-5 程序设计,Private sub Command1_click() Dim x as single x=Text1.Text If x= 90 and x=80 and x=70 and x=60 and x70 then Text2.Text= “及格” Else 其他情况 Text2.Text= “不合格” End If End sub,案例4-5,思考：简化后，能不能将程序中的条件的位置随意放置？例如先判断是否大于60，再判断是否大于70。如果要将条件顺序改变，又要如何设置这些条件？,案例4-6,银行定期存款利率有一
