vb第5章New.pptVIP

第5章 循环结构程序设计 5.1 For…Next循环结构 1. 格式 For 循环变量=初值 To 终值 [Step 步长] 语句组1 [Exit For] 语句组2 Next [循环变量] 累加分析: 累加器(变量)初值 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) 例: 判断以下程序段的执行结果: For i = 5 To 1 Step -1 Print i * i; Next i Print Print i 【例5-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项)。 【例5-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 思考: 1. 在窗体上打印1、3、5、7、9、…、N。 2. 在窗体上显示1到500之间所有能被3整除的数，每行10个数。 3. 在带水平滚动条文本框中显示1到指定N之间所有能被3和7同时整除的数。 4. 在带垂直滚动条的文本框中显示00~3600之间的正弦和余弦值，每隔20求一组值。 5.2 Do…Loop循环结构 问题: 求12+22+32+42+…小于某数N的最大值，N由用户指定。 特点: 已知循环条件、未知循环次数， 用Do … Loop循环结构实现较方便 1. 格式 2. 功能 使用While 条件: 条件为True时，执行循环体 条件为False时，退出循环 使用Until 条件: 条件为False时，执行循环体 条件为True时，退出循环 格式一、二:在循环起始处判断条件,为当型循环 格式三、四:在循环终止处判断条件, 为直到型循环 Private Sub Command1_Click() Dim n As Long , S As Long N = Val(Text1.Text) I = 0 S = 0 Do While S N I = I + 1 S = S + I * I Loop Text2.Text= S – I * I End