第3章程序的基本控制结构课件

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,3.1 算法的三种基本结构,3.2 语句,3.3 选择结构,3.4 循环结构,3.5 非正常流程控制,3.6 Timer组件,第3章 程序的基本控制结构,.,3.1 算法的三种基本结构,顺序结构：各操作块按照书写的先后顺序逐个执行，先执行A在执行B。,.,选择结构：根据某个给定条件是否成立来决定执行哪个操作。通过E判断后分支，满足条件执行A，不满足条件的执行B。（单分支）,.,循环结构：在一个地方反复执行一连串的操作。,当型循环结构,直到型循环结构,.,三种基本结构都具有共同的性质：,1、有且仅有一个入口,2、有且仅有一个出口,3、无死块（永远执行不到的操作块）。,4、无死循环块。,.,3.2 语句,语句为完成某种功能的完整的指令，可以包含关键字、运算符、变量、常数以及表达式等，以回车键结束。,按功能分为：声明语句与可执行语句。,通常在书写时一行中只有一条语句，若要一行中包含多条，各语句间用冒号（：）分隔，一条语句占多行时要使用续行符（_）。,注释以（）或REM开始。,.,3.3 选择结构,1If.Then结构,If.Then结构表示“如果.就”，是条件转移语句，根据条件测试后的结果，决定程序的下一步。,语法：,If 条件 Then 语句,或者：,If 条件 Then,语句块,End If,.,例：编写一个简单的程序，验证IF语句是如何起作用的。用户界面如下：两个标签、两个文本、两个命令按钮。,.,Private Sub btnTest_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btnTest.Click,Dim Number As Integer,Number=CInt(txtNumber.Text),txtResult.Text=偶数,If Number Mod 2=1 Then,txtResult.Text=奇数,End If,End Sub,.,2If.Then.Else结构,If.Then.Else结构表示“如果.就.否则”，比前面的If.Then结构的条件选择和范围更广。,语法：,If 条件1 Then,语句块1,ElseIf 条件2 Then,语句块2.,.,Else,语句块n,End If,.,例：设计一个查询是否中奖的程序。通过该程序查询是否中奖以及所中奖的等级。,界面设计：,界面由四个控件组成，分别是标签(labResult)、文本框(txtInput)、命令按钮“查询”(btnCheck)和标签(Label1)。,功能说明：,在文本框中输入奖券号码，单击查询按钮后察看是否中奖以及等级。中奖号码为2362，号码相同的为一等奖，前三位相同的为二等奖，前两位相同的为三等奖。,.,.,Private Sub btnCheck_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btnCheck.Click,Dim strInput As String,strInput=txtInput.Text,If strInput=2362 Then,lblResult.Text=恭喜你,中了一等奖！,ElseIf strInput Like 236?Then,lblResult.Text=恭喜你，中了二等奖！,ElseIf strInput Like 23?Then,lblResult.Text=恭喜你，中了三等奖！,Else,lblResult.Text=谢谢你的参与！,End If,End Sub,.,3Select Case结构,Select Case 结构与 If.Then.Else 结构类似，但对多重选择的情况，用Select Case 语句,代码效率更高，更易读。,语法：,Select Case 变量|表达式,Case 值1,语句块1,Case 值2,语句块2,.,Case Else,语句块n,End Select,.,Select Case语句中几个重要部分的规定：,（1）变量|表达式用作测试条件，为必要的参数,（2）值1、值2可以取以下几种形式：,1）具体常数。例如，1、2、“A”等。,2）一组用逗号分隔的枚举值,3）连续的数据范围，例如，1 To 100、A To Z等。,4）Is关系表达式,Select case语句计算“变量|表达式”的值，与各case子句的值进行比较，若与其中的某个值匹配，则执行相应的语句块。如果与多个case中的值匹配，按自上而下的原则，只执行第一个语句块。找不到匹配的值，则执行case else中的语句块。,.,（1）select case语句的变型,Select case myMonth 用变量来设置一月中的天数,Case 2,Days=28+leapYear()自写函数，闰年返回1，否则为0,Case 4,6,9,11,Days=30,Case else,Days=31,End select,.,（2）带值范围的select case语句,Select case Number,Case 1,2,Answer=4,Case 3 to 6,Answer=6,Case 11,13 to15,Answer=8,Case else,Answer=0,End select,(To关键字允许为case语句指定值范围，注意范围是包含性的）,.,（3）带限制范围的select case语句,Select case Number,Case 1,txtResult.Text=“1”,Case 2 to10,txtResult.Text=“2”,Case Is20,txtResult.Text=“4”,End select,（注意：按自上而下的原则，只执行第一个匹配的语句块）,什么时候用select case而不是if?,.,3.4 循环结构,1、WhileEnd While语句,While,语句块,End While,.,例：求解1！+2！+3！+n!,.,Private Sub btnCal_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btnCal.Click,Dim n As Integer,i As Integer,sum As Integer,Dim k As Integer,n=Val(txtN.Text),i=1,k=1,While i=5000 Then Exit For,当和大于等于5000时跳出循环,Next I,.,（3）With语句 用于对某个对象执行一系列的操作而不必重复指出对象的名称。,With Listbox1.Items,.Add(IDstu),.Add(Namestu),.Add(Grade),End with,.,3.6 Timer组件,可以利用计算机内部的时钟来计时，以实现每隔一个时间段自动触发一个事件。,Interval属性表示定时的时间间隔，即各时钟事件之间的时间，以毫秒为单位，取值范围为0-65535毫秒。,Enabled属性用来设置Timer的禁用和启用。,.,例：电子时钟,.,Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load,Timer1.Interval=1000,Timer1.Enabled=True,End Sub,Private Sub Timer1_Tick(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Timer1.Tick,Label2.Text=Hour(Now),Label4.Text=Minute(Now),Label6.Text=Second(Now),End Sub,.,