VB编程6.0 循环结构.pptVIP

循环结构程序设计 累加分析: 累加器(变量)初值 Sum=0 循环体(重复执行) Sum=Sum+i (i=1,2,…,N) Private Sub Command1_Click() N = Val(Text1.Text) : Sum = 0 i=1 While i=100 Sum=Sum+i i=i+1 Wend Label3.Caption = Sum End Sub §2 For循环结构(循环次数为已知) 1. 格式(For循环语句) For 循环变量=初值 To 终值 [Step 步长] 语句组1 [Exit For] 语句组2 Next [循环变量] 累加分析: 已知量：累加器(变量)初值 Sum=0 N（输入） 初值、终值和增量: 1、N、1 重复执行(循环体) Sum=Sum+i (i=1,2,…,N) Private Sub Command1_Click() Dim N%, i As Integer, Sum% N = Val(Text1.Text) Sum = 0 For i = 1 To N Sum = Sum + i Next i Label3.Caption = Sum End Sub 【例2】求 N！( N!=1×2×3×…×N) 累乘分析: 初始化: F=i 循环体: F= F × i (i=1，2，3……N) 程序: Private Sub Command1_Click() Dim N %, i As Integer, F! ’F AS Long N = Val(Text1.Text) F = 1 For i= 1 To N F = F * i Next i label3.caption = F End Sub 例: 判断以下程序段的执行结果: For i = 5 To 1 Step -1 Print i * i; Next i Print Print i 思考1: 1.求1×3 ×5 ×7……(共N项)。 F=F*(2*I-1) ；循环变量I，循环终值N 思考2: 1. 求12+22+32+42+……+1002 2. 求13+33+53+……+n3 3. 求1-3+5-7+…+(-1)n+1(2n-1) 1.Sum=Sum+I*I; 3.Sum=Sum+(-1)^(I+1)*(2*I-1); 【例3】打印斐波那契(Fibonacci)数列的前20项 斐波那契数列如下: 0，1，1，2，3，5，8，13，… 分析: 即从第三项起每一项是其前两项之和。 打印斐波那契(Fibonacci)数列的前20项 斐波那契数列如下: 0，1，1，2，3，5，8，13，… 即从第三项起每一项是其前两项之和。 分析: …… Private Sub Form_Click() F0 = 0 : F1 = 1 Print F0 , F1 For i= 1 To 9 F0 = F0 + F1 F1 = F1 + F0 Print F0 , F1 Next End Sub 思考: 1. 在窗体上打印1、3、5、7、9、…、N。 2. 在窗体上显示1到500之间所有能被3整除的数，每行10个数。 问题: 求12+22+32+42+…小于某数N的最大值，N由用户 指定。 特点: 已知循环条件、未知循环次数，用Do … Loop循环 结构实现 1. 格式 2. 功能 使用While 条件: 条件为True时，执行循环体 条件为False时，退出循环 使用Until 条件: 条件为False时，执行循环体 条件为True时，退出循环 格式一、二:在循环起始处判断条件,为当型循环 格式三、四:在循环终止处判断条件, 为直到型循环