计算机二级资料--vb6.0课件05循环结构.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