[高等教育]VB第5章电子讲稿-循环结构设计.pptVIP

第5章 循环结构设计 理解循环结构设计的特点 熟练掌握For．．．Next和Do．．．Loop语句 掌握列表框与组合框的常用属性、方法和事件以及实际应用 教学重点与难点： 对For．．．Next和Do．．．Loop语句的运用，理解掌握并运用掌握列表框与组合框控件 5.1For…Next循环语句案例 5.1.1 案例实现过程 【案例说明】 1、在窗体上显示2-12间各偶数的平方数 程序运行效果如图5.1所示 分析：采用Print直接在窗体上输出结果，而且使用For..Next来实现 2、求S=1+2+3+...+1000，把结果显示在窗体上 程序运行后在窗体中输入为500500 5.1For…Next循环语句案例 3、求T=10!=123…10 程序运行后在窗体中输入为3628800 4、用级数= ， 求的近似值，要求取前5 000项来计算 分析：用Print直接在窗体上输出结果，程序运行后在窗体中输入为=3.141397 【案例目的】 【技术要点】 1．运用【案例说明】中的第一部份：在窗体上显示2-10间各偶数的平方数 （1）启动VB后，进入代码窗口（可以直接双击窗口） 采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_load() Dim k As Integer Show For k = 2 To 12 Step 2 Print k * k Next k End Sub 5.1For…Next循环语句案例 程序运行结果是：如图5.1所示。 分析：在上述For...Next循环语句中，循环变量k的初值、终值和步长值分别为2，12和2，即从2开始，每次加2，到10为止，控制循环6次。每次循环都将循环体（即语句Print k*k）执行一次，因此运行后的输出结果是4，16，36，64，100和144。 2．运用【案例说明】中的第二部份：求S=1+2+3+...+1000，把结果显示在窗体上。 （1）启动VB后，进入代码窗口（可以直接双击窗口）。 采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show s = 0 For k = 1 To 1000 s = s + k Next k Print s=; s End Sub 5.1For…Next循环语句案例 程序运行结果是：500500 分析：由于此题的循环中，循环终值为1000，不可能向上例中，一一分析，但读者可以分析前几个数据即可。步长为1所以此题中没有写出。 3．运用【案例说明】中的第三部份：求T=10!=123…10，把结果显示在窗体上。 （1）启动VB后，进入代码窗口（可以直接双击窗口）。 采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show t = 1 For c = 1 To 10 t = t * c Next c Print T=; t End Sub 5.1For…Next循环语句案例 程序运行结果是：3628800 分析：用For…Next实现阶乘，结构和过程都非常简单，读者在分析上述实现过程中，一定要注意t=1用法，如果不赋初值，t = t * 将永远等于0。原因就是，在VB中没有赋初值的变量为0。 5.1.2 应用扩展 我们在前面案例基础之上把For…Next语句引入到相对较复杂的问题中去，读者在处理这此问题的时候，要抓住问题的本盾，即无论问题有多复杂，但For…Next语句没有变化。 用级数=，求的近似值，要求取前5 000项来计算 要解答以上问题，首先我们要把复杂问题简单化，即怎样把以上计算式转化为可理解的，可执行的内容。第二，5000项我们不可能加5千次，所应该首先想到用循环来实现。 通过分析我们可以设=pi=，我们求出pi后，然后=pi*4，即为最后所求。 5.1For…Next循环语句案例 采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Dim pi As Single, c As Integer, s As Integer Show pi = 0 s = 1