【例3.2】求sum=1+2+3+…+100。用For.Next循环结构实现 程序代码如下 Private Sub Commandl Click Dim sum as integer i as integer For l=l To 100 Next I Label2 Caption=Str(sum) End Sub 322Do.Loop循环结构 语句格式 Do [While Until; condition Exit Do] 语句格式2: Exit Do] Loop [ While Until; condition 说明:在循环次数不能确定的情况下进行的,那么这时便需要用到循环控制结构Do.….Loop 循环语句 条件表达式 False 条件表达式 循环语句 【例3.5】用Do.Loop循环结构实现求和sum=1+2+3+…+100 编写程序代码 解法一:采用当型循环 Do While…Loop Private Sub Commandl Click Dim iAs Integer, sum As Integer =1计数器初值置为 um=0'累加器初值置为0 Do While i<=100'当型循环 ⅰ=i计+1每次循环变量加1【例 3.2】 求 sum=1+2+3+…+100。用 For…Next 循环结构实现 程序代码如下： Private Sub Command1_Click() Dim sum As Integer, I As Integer sum=0 For I=1 To 100 sum=sum+I Next I Label2.Caption=Str(sum) End Sub 3.2.2 Do…Loop 循环结构 语句格式 1： Do [{While | Until} condition] [statements] [Exit Do] [statements] Loop 语句格式 2： Do [statements] [Exit Do] [statements] Loop [{While | Until} condition] 说明：在循环次数不能确定的情况下进行的，那么这时便需要用到循环控制结构 Do…Loop 循环语句 条件表达式 True False 条件表达式 循环语句 True False 【例 3.5】用 Do…Loop 循环结构实现求和 sum=1+2+3+…+100。 编写程序代码。 解法一：采用当型循环 Do While…Loop Private Sub Command1_Click() Dim i As Integer,sum As Integer i=1 '计数器初值置为 1 sum=0 '累加器初值置为 0 Do While i<=100 '当型循环 sum=sum+i i=i+1 '每次循环变量加 1