Visual Basic程序设计第6章选择结构与循环结构程序设计 .pptVIP

说明： (1)语句中的条件与If语句的条件一样，即：除了关系表达式、逻辑表达式外，也可以是数值表达式。数值表达式的值非0，则条件值为True(真)；数值表达式的值为0，则条件值为False(假)。 (2)Do While…Loop是前测型中的当型循环语句。 (3)Do Until…Loop是前测型中的直到型循环语句，当条件值为True(真)时终止循环，当条件值为False(假)时才执行循环体。 要注意的是，Do While…Loop语句与Do Until…Loop语句对条件的逻辑设置是相反的。 (4)语句列可以是一条语句也可以是多条语句，甚至没有语句也可以。 (5)用 Exit 语句可以直接退出 For 循环、Do 循环、子过程或函数过程。用 Exit Do语句可以直接退出Do 循环。Exit Do 在Do…Loop循环中出现的次数和位置没有限制，它经常用于条件判断之后， 2．前测型Do…Loop语句应用实例 下面看一个前测型Do…Loop语句的应用实例，本实例模拟银行存款，输入一年期存款利率后，系统可以计算出本金多少年可以翻一倍。 设计步骤如下： (1)建立应用程序用户界面和设置对象属性。 选择“新建工程”，进入窗体设计器，设计好的程序用户界面如图6-12所示。 图6-12前测型Do…Loop应用实例设计界面 (2)编写代码。 编写命令按钮Command1的Click 事件代码如下： Private Sub Command1_Click() Dim p, r As Single Dim n As Integer p = 1 r = Val(Me.Text1.Text) n = 0 Do Until p = 2 n = n + 1 p = p * (1 + r) Loop Me.Label2.Caption = 结果提示：翻倍需要 + Str(n) + 年 End Sub 程序执行后，输入一年期存款利率，系统可计算出本金多少年可以翻一倍，如图6-13所示。 图6-13前测型Do…Loop应用实例运行界面 6.3.2后测型Do…Loop语句 后测型Do…Loop语句，首先执行循环体，然后判断条件，根据条件决定是否继续执行循环，因此执行循环的最少次数为1。 1．后测型Do…Loop语句介绍 后测型循环结构流程图其语法为： Do [〈语句列1〉] [Exit Do] [〈语句列2〉] Loop[{ While | Until }〈条件〉] 说明： (1)语句中的条件与If语句的条件一样，即：除了关系表达式、逻辑表达式外，也可以是数值表达式。数值表达式的值非0，则条件值为True(真)；数值表达式的值为0，则条件值为False(假)。 (2)Do…Loop While是后测型中的当型循环语句。 (3)Do…Loop Until是后测型中的直到型循环语句，当条件值为True(真)时，终止循环；当条件值为False(假)时，才执行循环体。 (4)语句列可以是一条语句也可以是多条语句，甚至没有语句也可以。 (5)用 Exit 语句可以直接退出 For 循环、Do 循环、子过程或函数过程。用 Exit Do语句可以直接退出Do 循环。 2．后测型Do…Loop语句应用实例 下面看一个后测型Do…Loop语句的应用实例，本实例的功能是根据用户输入的精度要求，依据公式计算圆周率π的近似值。 计算圆周率π的近似值的公式如下： 分析： 设第n项的分母为pn(n=2)，第2项的分母p2= ，第3项的分母p3= ，不难看出，……，第n项的分母为pn= 设前n项(n=2)乘积为Sn，初值S1=2，前2项乘积为S2=S1×2/P2，前n项乘积为Sn=Sn-1×2/Pn-1。Sn的计算要到相邻两项相差一个很小的数为止，这里假设很小的数为0.1^m，m为有效数字位数。 π= 计算圆周率程序的设计步骤如下： （1）窗体界面的设计参见前面章节，不再赘述。 （2）编写计算命令按钮Command1的Click 事件代码如下： Private Sub Command1_Click() Dim m As Integer Dim p, s, t As Double m = 1