VB程序设计第2版第6章.ppt

第6章 循环结构程序设计 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 累加分析: 累加器(变量)初始化 Sum=0 重复执行（循环体） Sum=Sum+I (I=1,2,…,N) 代码： Private Sub Command1_Click() Dim N As Integer, I As Integer, Sum As Integer N = Val(Text1.Text) 输入累加总项数 Sum = 0 设累加和初值为0 For I = 1 To N Sum = Sum + I 循环体:和值=和值+累加项 Next I Label3.Caption = Sum 输出累加结果 End Sub 思考: 1. 求12+22+32+42+…+1002 2. 求13+33+53+…+n3 3. 求1-3+5-7+…+(-1)n+1(2n-1) 练习：输入N的值，求 1×2×3×…×N (即N！) 思考: 1. 求1×3 ×5 ×7……(共N项)。 【例6-2】打印斐波那契(Fibonacci)数列的前20项 斐波那契数列如下: 0，1，1，2，3，5，8，13，… 分析：产生斐波那契数列的方法是： 1）首先给出第一项、第二项的值0和1: A=0，B=1。 2）输出当前两个数A,B，求后两个数: A=A+B B=A+B 这样就产生了数列中新的两个数，且这两个数取代了其前两个数，仍存于变量A、B中。 3）重复步骤 2），直到输出所有的数。 流程图： 设用文本框Text1显示数据，每行显示两个数。 代码： Private Sub Form_Click() A = 0: 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 思考: 1. 在窗体上打印1、3、5、7、9、…、N。 2. 在窗体上显示1到500之间所有能被3整除的数，每行10个数。 3. 在带水平滚动条文本框中显示1到指定N之间所有能被3和7同时整除的数。 4. 在带垂直滚动条的文本框中显示00~3600之间的正弦和余弦值，每隔20求一组值。 【例6-3】从键盘任意输入30次字符，每次一个，分别统计字符A、B、C的个数（不区分大小写）。如果中途连续输入三个字符Q，则结束输入。 设计界面： ACount = 0 : BCount = 0 CCount = 0 : QCount = 0 For I = 1 To 30 CH = UCase(InputBox(请输入一个字符, 字符统计)) If CH = Q Then QCount = QCount + 1 Else QCount = 0 End If If QCount = 3 Then MsgBox 连续输入了三个字符Q,结束输入, , 注意 Exit For End If Select Case CH Case A ACount = ACount + 1 Case B BCount = BCount + 1 Case C CCount = CCount + 1 End Select Next I Text1.Text = Acount Text2.Text = Bcount Text3.Text = CCount End Sub 6.2 While...Wend循环结构 问题: 求12+22+