思考： 1.求1×3×5×7.（共N项）。 第六章 2.求：x1×1 13 ×5 2n-1 循环结构程序设计 3.求：2x2 6 2k 2k X. 57 2k-1 2k+1 11
第六章循环结构程序设计 11 思考 : 1. 求 1 ×3 ×5 ×7.( 共 N 项 ) 。 2 1 1 51 31 11 − n 2. 求: 3. 求: 2 k 1 2 k 2 k 1 2 k 76 56 54 34 32 12 + −
【例6-2】打印斐波那契Fibonacci)数列的前 20项。斐波那契数列如下： 第六章 1,1,2,3,5,8,13,. 分析：产生斐波那契数列的方法是： 1)首先给出第一项、第二项的值1和1： 环结构程序设计 A=1,B=1。 2)输出当前两个数A,B,求后两个数： A=A+B B=A+B 这就产生了数列中新的两个数，且这两个 数取代了其前两个数，仍存于A、B中。 3)重复步骤2)，直到输出所有的数。 193 12
第 六 章 循 环 结 构 程 序 设 计 12 【例6-2】打印斐波那契(Fibonacci)数列的前 20项。斐波那契数列如下: 1，1，2，3，5，8，13，. 分析：产生斐波那契数列的方法是： 1）首先给出第一项、第二项的值1和1: A=1，B=1。 2）输出当前两个数A,B，求后两个数: A=A+B B=A+B 这就产生了数列中新的两个数，且这两个 数取代了其前两个数，仍存于A、B中。 3）重复步骤2），直到输出所有的数
流程图： 1→A,1→B 输出A,B 第六章循环结构程序设计 1→I >9? F A+B→A A+B→B 输出A,B +1→I 13
第六章循环结构程序设计 13 流程图： F 1 A ， 1 B I>9? I+1 I A+B A T 输出A,B A+B B 1 I 输出A,B
设计界面： 显示斐波郢契数列一口X 第六章循环结构程序设计 Textl 193 14
第六章循环结构程序设计 14 设计界面： Text1
代码设计： Private Sub Form ClickO 第六章 A=1:B=1 Text1.Text=Str(A)&Str(B)&vbCrLf For I=1 To9 循环结构程序设计 A=A+B B=A+B Text1.Text=Text1.Text Str(A)& Str(B)&vbCrLf Next I End Sub 15
第 六 章 循 环 结 构 程 序 设 计 15 Private Sub Form_Click() A = 1: B = 1 Text1.Text = Str(A) & Str(B) & vbCrLf For I = 1 To 9 A = A + B B = A + B Text1.Text=Text1.Text & Str(A) & _ Str(B) & vbCrLf Next I End Sub 代码设计：