新Visual Basic程序设计与实训 教学课件 苏玉雄 电子教案 第4章.pptVIP

第4章 VB的选择结构 本章学习目标 4.1 IF单分支、双分支结构 单分支条件语句的格式： If 条件表达式 Then 语句块 或 If 条件表达式 Then 语句块 End If 4.1.1 单分支条件语句结构说明 4.1.1 条件语句结构说明 条件表达式处应该是一个逻辑表达式，或者结果可以转换为逻辑值的表达式。 “语句块”处是一条或多条连续的语句(允许没有任何语句)。如果是第一种格式，那语句块只能是单条语句。 当程序执行到这条语句时，首先检查表达式的值是否为True。如果是True，则执行Then后的“语句块”，然后接着执行下面的语句。 如果“条件”为False,则不执行“语句块”中的任何语句，直接跳到下一条语句执行。 案例4-1 输入两个数值x、y，通过程序使x的值大于y的值。使用文本框输入并在文本框中显示结果界面设计如下。 案例4-1 【案例分析】：分析这个题目我们可以看出，其实这是一个需要判断的单分支语句结构，首先要判断的就是x和y哪一个值比较大，如果x本来就大，那么我们不需要做任何事，反之y比x大，我们就需要通过程序将x和y的值互换，以保证x的值大于y的值。x和y的互换中，我们要借助一个临时变量，其作用如图4-3所示。程序流程图参考下。 案例4-1 4.1.2 IF双分支结构 双分支条件语句结构 If 条件 Then 语句块1 Else 语句块2 或 If 条件 Then 语句块1 Else 语句块2 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^3+3*x End If MsgBox “计算结果为：” y End Sub 案例4-2运行效果 课堂练习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 概述没有平方根。 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 ‘判断是否为偶数 Text2.Text = 这是一个偶数! Else Text2.Text = 这是一个奇数! End If End Sub 课堂练习4-2运行效果 4.2 条件语句的嵌套 简单的来说“条件语句的嵌套”其实就是在一个条件语句中还有另外一个条件结构嵌在其中。条件语句的嵌套可以包含很多层，形成多重条件语句嵌套，但嵌套是有限制的。从下面这个图我们可以一起来分析一下条件语句的嵌套结构：我们可以看出每一个长方形就是一个选择语句，它包括了条件表达式、满足条件的语句块、不满足条件的语句块，而不满足条件的语句块却是另外一个条件语句，它也包括了条件表达式、满足条件的语句块、不满足条件的语句块，这样一直下去。这就是一个嵌套的条件结构。 4.2.1 条件语句的嵌套格式 4.2.1 条件语句的嵌套格式说明 案例4-3 某学校期末考试结束后，对学生的成绩进行成绩评定。方法是：90～100