[工学]第6章循环结构程序设计.pptVIP

第6章 循环结构程序设计▲* 循环控制结构 Dim S As Integer S=0 S=S+1 S=S+2 …… S=S+(n-2) S=S+n 循环控制结构 6.1 For…Next循环结构 1. 格式 For 循环变量=初值 To 终值 [Step 步长] 语句组1 [Exit For] 语句组2 Next [循环变量] 例: 判断以下程序段的执行结果: For i = 5 To 1 Step -1 Print i * i; Next i Print Print i 累加分析: 累加器(变量)初值 S=0 循环体(重复执行) S=S+I (I=1,2,…,N) Private Sub Command1_Click() Dim N As Integer, I As Integer, S As Integer N = Val(Text1.Text) S = 0 For I = 1 To N S = S + I Next I Label3.Caption = S End Sub 思考: 1. 求12+22+32+42+……+1002 2. 求13+33+53+……+n3 3. 求1-3+5-7+…+(-1)n+1(2n-1) 【例6-2】求 N！( N!=1×2×3×…×N) 累乘分析: 初始化: F=1 循环体: F=F × I (I=1，2，3……N) 程序: Private Sub Command1_Click() Dim N As Integer, I As Integer, F As Long N = Val(Text1.Text) F = 1 For I = 1 To N F = F * I Next I Text2.Text = F End Sub 思考: 1. 求1×3 ×5 ×7……(共N项)。 【例6-3】打印斐波那契(Fibonacci)数列的前20项 斐波那契数列如下: 0，1，1，2，3，5，8，13，… 即从第三项起每一项是其前两项之和。 分析: …… Private Sub Form_Click() A = 0: B = 1 Text1.Text=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 6.2 While...Wend循环结构 问题: 求1+2+3+4+…小于某数N的最大值，N由用户指定。 特点: 已知循环条件、未知循环次数， 用While...Wend循环结构实现较方便 1. 格式 While 条件 [语句组] Wend 2. 功能 问题1：计算 s= 1+2+3+······+100 （用While Wend改写如下） Dim s As Integer, count As Integer s = 0 ‘初始化 count = 1 ‘初始化 While count = 100 ‘循环开始 s = s + count ‘循环体语句 count = count + 1 ‘循环体语句 Wend ‘循环结束 print s 6.2 Do…Loop循环结构 适用：事先不知道循环次数的操作 四种语法格式： ⑴ Do … Loop While语句 ⑵ Do …Loop Until语句 ⑶ Do While … Loop语句 ⑷ Do Until …Loop 语句 Do 〈循环体〉 [Exit Do] 〈循环体〉 Loop While〈条件表