实验八 循环结构程序设计.doc

实验七 循环结构程序设计 计数循环语句For…Next 当我们知道循环要执行多少次时，使用计数循环语句For…Next较为方便。在For…Next中使用一个变量来控制循环执行的次数，该变量称为控制变量，语句中有一个称为步长的表达式，每重复一次循环之后，控制变量的值就会增加一个步长，直到控制变量的值超过预设的终值时退出循环。 计数循环语句的格式如下： For 控制变量＝初值　To 终值 [Step 步长] 语句组 1　　 [Exit For]　　　 语句组2　　 Next [控制变量] For 控制变量＝初值　To 终值 [Step 步长] 与Next之间的语句称为循环体，循环体是每一次循环都要执行的语句。 VB按下列步骤执行计数循环语句： （1）首先将控制变量设置为初值 （2）判断控制变量是否超过终值，如果是，则退出循环，执行Next之后的语句；如果不是，则执行循环体 （3）控制变量的值增加一个步长 （4）返回步骤(2) 这里，控制变量、初值、终值和步长都是数值型的，其中，控制变量、初值和终值都不能省略，当步长为1时可以省略。 【题1】求2+4+…+2n，n是自然数。 分析：设控制变量为I，则从题意能够看出I的初值应为2，终值应为2n，步长应为2；设S来存放“和值”则计算S的程序应为 For I = 2 To 2 * n Step 2 S = S + I Next 解决了S的计算问题，还需要解决n的输入问题和S的输出问题，这两个问题通过程序界面来解决。 程序设计界面如图7-4 a)所示，n从文本框TxtN输入。单击“计算(C)”按钮求和，结果用标签LblOutput的标题(Caption)来显示。运行效果如图7-4 b) “计算(C)”按钮CmdCompute的Click事件过程如下： Private Sub CmdCompute_Click() Dim n As Integer, I As Integer, S As Integer n = Val(TxtN.Text) For I = 2 To 2 * n Step 2 S = S + I Next I LblOutput.Caption = S End Sub 把For I = 2 To 2 * n Step 2改为For I = 2 *n To 2 Step –2 程序的结果是相同的。 从例7-4中我们可以看到，使用For…Next语句的关键在于确定控制变量的初值、终值和步长。只要确定了控制变量的初值、终值和步长，就确定了For…Next的格式，接下来再设计循环体，就能正确使用For…Next语句。确定控制变量的初值、终值和步长以及设计循环体都是根据题目的要求来进行的。 【题2】求1?2?3?…?n 分析：这是一个累乘问题，道理与累加类似，我们用变量M来存放累乘结果，M的初值应设为1。用I来做控制变量，则I的初值为1，终值为n，步长为1。 计算累乘的程序如下： M=1 For I = 1 To n 步长为1时，step 1可省略 M = M* I Next I 计算累乘的按钮事件过程中的程序如下： Dim n As Integer, I As Integer, M As Integer n = Val(TxtN.Text) M=1 For I = 1 To n M = M* I Next I LblOutput.Caption = M 其中，TxtN是文框的名称，LblOutput是标签的名称。 自己设计程序界面。 7.2 条件循环语句Do…Loop 当我们不知道循环次数时，使用条件循环语句比较方便，条件循环语句有两种常用格式。Do和Loop之间的语句行称为循环体。 格式1: Do while 条件 语句组1 [Exit Do] 语句组2 Loop 功能: 先判断条件，条件不成立时，结束循环， 执行Loop之后的语句，条件成立时，执行循 环体，执行循环体后继续判断条件。执行过程 如图7-5所示 格式2: Do 语句组1 [Exit Do] 语句组2 Loop while 条件 功能: 先执行循环体，执行循环体后判断条件，条件不成立时，结束循环，执行Loop之后的语句，条件成立时，继续执行循环体。 执行过程如图7-6所示 Exit Do语句用于中途退出循环，执行Loop之后的语句，该语句应放在某种条件结构中，用于表示当某种条件成立时，强行退出循环。 为了对Do…Loop语句进行理解，下面举例来说明Do…Loop语句的功能。 【题3】写出下列程序的运行结果。 Dim I As In