Visual Basic程序设计 第三版 教学课件 作者 丁爱萍 第1 5章 项目五.pptVIP

项目五　循环结构程序设计 　　　　　　任务5.1 　Do循环语句　　任务导入　　Do语句有两种语法形式：前测型循环结构和后测型循环结构。本任务将学习使用Do语句进行程序设计的方法。 　　学习目标　　(1) 理解前测型循环结构、后测型循环结构的特点。　　(2) 能熟练使用Do循环语句进行程序设计。 　　任务实施　　1．掌握前测型Do语句的语法格式　　前测型Do循环结构的循环特点是：先判断循环条件，根据条件决定是否执行循环体，执行循环体的最少次数为0。 　　其语法格式为　　Do [{ While | Until } 〈条件〉]　　 [〈语句组1〉]　　 [ Exit Do ]　　 [〈语句组2〉]　　Loop 　　2．理解前测型Do语句的执行过程　　前测型循环语句是先判断条件，再执行循环体。根据条件不同，可分为当型和直到型循环结构。　　? 当型Do While...Loop：当条件为真时执行循环体，条件为假时终止循环。　　? 直到型Do Until…Loop：当条件为假时执行循环体，直到条件为真时终止循环。 　　在Do…Loop循环体中，可以放置任意个数的Exit Do语句，以随时跳出Do…Loop循环。Exit Do语句通常位于条件判断之后，如If…Then语句，在这种情况下，Exit Do语句将控制权转移到紧接在Loop命令之后的语句。如果Exit Do被使用在嵌套的Do…Loop语句中，则Exit Do会将控制权转移到Exit Do所在位置的外层循环。 　　【课堂演练】　　【实例5-1】 用Do…Loop语句计算1 + 2 + 3 + … + 100的值。　　【实现步骤】　　(1) 建立用户界面，如图5.1所示。　　(2) 设置对象属性，参见图5.1。 图5.1 建立用户界面 　　(3) 编写事件代码。采用当型循环结构编写“计算”命令按钮Command1的Click事件代码：　　Private Sub Command1_Click()　　 Dim S As Integer, n As Integer　　 S = 0 : n = 1 累加器S赋初值0，计数器n赋初值1 Do While n = 100 当型循环 S = S + n 累加和 n = n + 1 计数器累加1 Loop Label2.Caption = SEnd Sub 　　“计算”命令按钮Command1的Click事件代码还可以改为直到型循环结构：　　Private Sub Command1_Click()　　 Dim S As Integer , n As Integer　　 S = 0 : n = 1　　 Do Until n 100 ‘ 直到型循环　　 S = S + n　 　 n = n + 1　　 Loop　　 Label2.Caption = S　　End Sub 　　该事件代码还可以利用Exit Do语句来编写：　　Private Sub Command1_Click()　　 Dim S As Integer , n As Integer　　 S = 0 : n = 1　　 Do　　 S = S + n 　　　 n = n + 1 　　 If n 100 Then Exit Do ‘ 如果n100，则跳出循环　　 Loop　　 Label2.Caption = S　　End Sub　　(4) 运行程序，结果如图5.2所示。 图5.2 程序运行结果 　　【实例5-2】 设有一张厚为x毫米，面积足够大的纸，将它不断地对折。试问对折多少次后，其厚度可达珠穆朗玛峰的高度(8848 m)。　　【实现步骤】　　(1) 问题分析。设对折后纸的厚度为h毫米，计数器为n。在没有对折时，纸厚为x毫米，每对折一次，其厚度是上一次的2倍，在未到达8848 m时，重复进行对折。 　　(2) 建立应用程序用户界面，并设置对象属性，如图5.3所示。　　(3) 编写程序代码。命令按钮Command1的Click事件代码为　　Private Sub Command1_Click()　　 n = 0 ‘ 对折次数初值　　 h = Text1.Text ’ 纸的厚度　　 Do While h 8848000 　　 n = n +