VB教程---选择结构.ppt

1、程序结构,西南交通大学峨眉校区,一、结构化程序的结构,结构化程序设计核心，即三种基本的控制结构 顺序结构 分支结构 循环结构 流程图 程序执行的过程叫流程。 圆角矩形表示开始和结束 矩形表示某种处理 菱形表示条件判断 线条和箭头表示程序流程的方向,结构中的每个语句都按照顺序执行。,顺序结构流程图,1、顺序结构,也叫选择结构，根据给出的条件，决定流程的走向。 有三种语句结构：单分支、双分支、多分支,单分支语句的流程图,双分支语句的流程图,2、分支结构,多分支语句的流程图,当型循环语句的流程图,直到型循环语句的流程图,3、循环结构,循环就是指在一定的条件下，重复执行一组语句，直至条件不满足为止。

2、分为两种循环：当型循环、直到型循环,当条件第一次就不满足的时候，二者的结果不一样。,1、IF条件判断语句(三种格式）,IF 条件 Then 语句块 End If,IF 条件 Then 语句块1 Else 语句块2 End If,IF 条件1 Then 语句块1 Elseif 条件2 Then 语句块2 Elseif 条件3 Then Else 语句块n End If,IF 条件 Then 语句块1 else 语句块2,单行书写形式：没有End if,二、分支结构IF语句,2、IF条件语句说明 条件一般是关系或逻辑表达式。如果条件用数值表达式表示，则0表示False，所有非0的值都表示True。

3、 单行IF结构没有End If。 多分支IF语句中，Elseif可以有任意多个。 当If结构内有多个条件为True时，VB只执行第一个为True的条件后面的语句块。 条件语句可以嵌套。即把一个If Then Else 块放在另一个 If Then Else 块内。,3、双分支程序示例,If a b Then max = a Else max = b End If,If a b Then max = a Else max = b,求a，b中的较大数,单行书写,If score 60 Then print “过” Else print “不过” End If,将百分制转换成两级制,单行书写,请回答

4、,执行简单的条件判断操作，是If-Then-Else结构的简写。 格式： 结果=IIf(条件，True表达式，False表达式) 含义：当条件为True时，返回True表达式的值，当条件为False时，返回 False表达式的值。 比如：,IIF函数,If a b Then max = a Else max = b End If,max = IIf(a b, a, b),等价于,4、多分支程序示例,If score = 90 Then Print 优 ElseIf score = 80 Then Print 良 ElseIf score = 60 Then Print 及格 Else Prin

5、t 不及格 End If,将百分制转换为等级制,If score = 60 Then Print 及格 ElseIf score = 80 Then Print 良 ElseIf score = 90 Then Print “优 Else Print 不及格 End If,思考：下面形式是否正确？,If x = 1 And x = 2 Then y = (1 - x) * (2 - x) Else y = -(2 - x) End If,y =,根据下列公式求函数,1、Select Case条件分支语句格式,Select Case 变量或表达式 Case 条件值1 语句块1 Case 条件值2

6、 语句块2 Case 条件值n 语句块n Case Else 语句块n+1 End Select,二、分支结构Select语句,设计程序，输入班级所有学生的成绩，统计各个等级的人数并输出。,Private Sub cmdNext_Click() Select Case Val(txtScore) Case Is = 90 Text1.Text = Val(Text1.Text) + 1 Case 80 To 90 Text2.Text = Val(Text2.Text) + 1 Case 70 To 80 Text3.Text = Val(Text3.Text) + 1 Case 60 To

7、70 Text4.Text = Val(Text4.Text) + 1 Case Else Text5.Text = Val(Text5.Text) + 1 End Select Text6.Text = Val(Text6.Text) + 1 txtScore.Text = txtScore.SetFocus End Sub,2、Select Case语句程序举例,制作演示,3、Select Case语句说明 语句中的“条件值”可以是以下形式之一 表达式 , 表达式 例如：Case 2,4,6,8 表达式 To表达式 例如：Case 1 To 5 注意：只能 “小 to 大” Is关系运算表

8、达式 例如：Case Is5 And Is10 是不合法的。 以上3种形式可以混用 例如：Case Is5,8,9,20 to 30 如果同一个范围在多个Case子句中出现，则只执行符号要求的第一个Case子句的语句块。 Case Else子句必须放在所有的Case子句之后。,练习：,1.求闰年（能被4整除，不能被100整除的年，或者是能够被400整除的年是闰年。）(用if双分支语句做）,Year=val(text1.text) If year mod 4 =0 and year mod 100 0 or year mod 400 =0 then Msgbox (“是闰年!”) Else Ms

9、gBox (“这不是闰年！”) End If,2.设计一个程序，输入1900年以后的任意一个年份，计算该年的生肖。 （用select case语句做）,3.大学录取新生时，根据学生总分情况给与奖励，条件如下： （1）四门总分不低于700分，特等奖。 （2）四门总分680分（含680分）700分（不含700分），优秀奖。 （3）前三门单科不低于145分，第四门不低于280分），特别奖。 （4）奖励按特等奖、优秀奖、特别奖由高到低，不重复计奖（包括单科）。 要求：四科成绩（s1、s2、s3、s4）依次在四个文本框中输入，总分（sum）在标签控件上显示。单击命令按钮Command1后，在对话框中显示

10、获奖情况。(用if双分支语句做）,Private Sub Command1_Click() Dim sum As Integer, s1 As Integer Dim s2 As Integer, s3 As Integer, s4 As Integer s1 = val(Text1.Text) s2 = val(Text2.Text) s3 = val(Text3.Text) s4 = val(Text4.Text) sum = s1 + s2 + s3 + s4 Label3.Caption = sum If sum = 700 Then MsgBox “您获得了特等奖”, 64, “获奖

11、通知” ElseIf sum = 680 Then MsgBox “您获得了优秀奖”, 64, “获奖通知” ElseIf s1 = 145 Or s2 = 145 Or s3 = 145 Or s4 = 280 Then MsgBox “您获得了特别奖”, 64, “获奖通知” Else MsgBox “很遗憾，您没有获奖”, 64, “获奖通知” End If End Sub,上面学习了If语句的基本形式，可以通过这些基本形式加以复合，获得更为复杂的If结构，称为If语句的嵌套。,If语句复合结构的一般形式,在Else块中嵌套If结构的形式,if语句的嵌套,例：求a、b、c中三个实数的最大值、最小值。 a、b、c三值从三个文本框中输入，当单击命令按钮时将结果 显示在窗体上,例：求a、b、c中三个实数的