第3章 控制结构课程.ppt

第3章 控制结构 本章内容 3.1 程序结构与流程图 3.2 选择控制结构 3.2.1 单行结构条件语句 3.2.2 多行结构条件语句 3.2.3 多分支选择控制结构 3.3 循环控制结构 3.3.1 For…Next循环 3.3.2 While…Wend循环 3.3.3 Do…Loop循环 3.3.4 多重循环 3.1 程序结构与流程图 3.1 程序结构与流程图 三种基本结构的共同特点： 只有一个入口，一个出口。 无死语句，所谓“死语句”是指始终不执行的语句。 无死循环，即循环次数是有限的。 顺序结构是程序中最简单、最基本的结构。在顺序结构中，程序的执行过程是从上往下一行一行地执行。执行的顺序与程序中语句的排列顺序相同。 3.2 程序结构与流程图 3.2.1 单行结构条件语句 3.2.2 多行结构条件语句 3.2.3 多分支选择控制结构 3.2.1 单行结构条件语句 单行If语句的格式如下： If 条件 Then 语句块1 [Else 语句块2] 该语句的功能是：当条件成立时执行语句块1，否则执行语句块2；Else和语句块2可以缺省。 说明： （1）单行If 语句必须在同一行内写完。 （2）“条件”可以是关系表达式或布尔表达式，还可以是任何计算数值的表达式，Visual Basic会将其结果转换成True或False。如果该值是0，则被视为False，所有非0值被视为True。 （3）“语句块”可以是一条语句，也可以是多条语句；如果是多条语句，那么语句与语句之间用冒号分割。 3.2.1 单行结构条件语句 【例3-1】编程，在文本框中输入你的身高，如果小于165，那么显示“你的身高不够”。 3.2.1 单行结构条件语句 【例3-1】编程，在文本框中输入你的身高，如果小于165，那么显示“你的身高不够”。 在窗体上建立文本框控件Text1和命令按钮Command1。编制事件过程 Command1_Click 如下： Private Sub Command1_Click() If Text1.Text 165 Then Print 你的身高不够 End Sub 3.2.1 单行结构条件语句 【例3-2】输入x，计算y的值，其中： 3.2.1 单行结构条件语句 分析：该题是数学中的一个分段函数，它表示当时，用公式来计算y的值；当x 0时，用公式 y = 1 - 3 x 来计算y的值。在选择条件时，我们即可以选择作为条件，也可以选择 x 0作为条件。在这里，我们选作为选择条件。这时，当为真时，执行；为假时，执行y = 1 - 3 x。 3.2.1 单行结构条件语句 写出按钮Command1的单击Click事件代码为： Private Sub Command1_Click() Dim x As Single, y As Single x = Text1.Text If x = 2 Then y = x * x + 3 * x Else y = 1 - 3 * x Text2.Text = y End Sub 3.2.2 多行结构条件语句 多行IF语句格式为： If 条件1 Then 语句块1 [ElseIf 条件2 Then 语句块2 [ElseIf 条件3 Then 语句块3 …… [Else 语句块n] End If 执行过程：Visual Basic首先测试条件1，如果它为False，Visual Basic就测试条件2，依次类推，直到找到一个为True的条件。当它找到一个为True的条件时，Visual Basic就会执行相应的语句块，然后执行End If后面的代码。作为选择，可以包含Else语句块，如果所有条件都为False，则执行Else语句块。 3.2.2 多行结构条件语句 我们把例3-2用多行If语句完成，程序代码如下： Private Sub Command1_Click() Dim x As Single, y As Single x = Text1.Text If x = 2 Then y = x * x + 3 * x Else y = 1 - 3 * x End If Text2.Text = y End Sub 3.2.2 多行结构条件语句 【例3-3】输入学生成绩（百分制），判断该成绩的等级（优、良、中、及格、不及格）。 界面设计略，程序代码如下： Private Sub Command1_Click() Dim score As Single, temp As String score