《VB程序设计基础》课程PPT教学课件（第3版）第6章 循环结构程序设计

【例6-1】输入N的值，求1+2+3+4+.+N 累加分析： 流程图： 第六章 累加器（变量）初始化 输入N Sum=0 0→Sum,1→I 循环结构程序设计 T 重复执行： I>N? F Sum=Sum+I Sum+I→Sum (I=1,2,.,N) I+1→I (循环体) 输出Sum 193 6

第 六 章 循 环 结 构 程 序 设 计 6 累加分析: 累加器(变量)初始化 Sum=0 重复执行: Sum=Sum+I (I=1,2,.,N) （循环体） 【例6-1】输入N的值，求1+2+3+4+.+N F 0Sum ,1I I>N? I+1I Sum+ISum T 输入N 输出Sum 流程图：

设计界面： 求1+2+3++的值 ▣ 请输入n: Text1 1+2+3+.+n= Label3 第六章循环结构程序设计 计算C) Command1 运行界面： 求1+2+3++的值 回☒ 请输入n: 100 1+2+3++n= 5050 计算延) 可 10t

第六章循环结构程序设计 7 设计界面： Text1 Label3 Command1 运行界面：

代码设计： Private Sub Command1 ClickO 第六章 Dim NAs Integer,IAs Integer, Sum As Integer N=Val(Text1.Text) '输入累加总项数 环结构程序设计 Sum =0 设累加和初值为0 For I=1To N Sum=Sum+I'循环体 Next I Label3.Caption=Sum'输出累加结果 End Sub 193 8

第 六 章 循 环 结 构 程 序 设 计 8 代码设计： 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+.+(2n-1)3 循环结构程序设计 3.求1-3+5-7+.+(-1)m+1(2n-1) 4.求 -+-+-0 2n- 5.求 1.2 2.3 n(n+1) 9

第六章循环结构程序设计 9 思考 : 1. 求 1 2+2 2+3 2+4 2+.+100 2 2. 求 1 3+3 3+5 3+.+(2n -1) 3 3. 求 1 -3+5 -7+.+( -1)n+1(2n -1) 2 1 1 1 51 31 11 1 − − + − + − + n n 4. 求  ( ) ( 1 ) 1 3 4 1 2 3 1 1 2 1 + + +  +  +  n n 5. 求 

练习：输入N值，求1×2×3X.XN(即N!) 累乘分析： 第六章 初始化：F=1 循环体：F=FXI I=1,2,3.N 代码如下： Private Sub Command1 ClickO 循环结构程序设计 Dim NAs Integer,IAs Integer, Dim F As Long N=Val(Text1.Text) F=1 For I=1To N F=F*I Next I Text2.Text F 193 End Sub 10

第 六 章 循 环 结 构 程 序 设 计 10 练习：输入N值,求 1×2×3×.×N (即N！) 代码如下: Private Sub Command1_Click() Dim N As Integer, I As Integer, Dim F As Long N = Val(Text1.Text) F = 1 For I = 1 To N F = F * I Next I Text2.Text = F End Sub 累乘分析: 初始化: F=1 循环体: F=F × I (I=1，2，3.N)