Label2 Caption=Str(sum) End Sub 解法二:采用直到型循环 Do Until-Loop Private Sub Commandl Click Dim i As Integer sum As Integer =1计数器初值置为 sum=0'累加器初值置为0 Do Until i>100 sum=sum+I Loop Label2 Caption=Str(sum) End Sub 3.2.3 While.. Wend循环控制结构 此语句是为了保持与低版本Ⅴ i saul basic兼容而保留的。在实际应用中,它与Do While.Lop结构非常相似 六、小结 在这一讲里,我们要掌握For…Next、Do…Loop循环的用法,其中循环的嵌套不容易理 解。大家要多自己编些程序来熟悉它 作业 习题3.2,3.6Loop Label2.Caption=Str(sum) End Sub 解法二：采用直到型循环 Do Until…Loop Private Sub Command1_Click() Dim i As Integer,sum As Integer i=1 '计数器初值置为 1 sum=0 '累加器初值置为 0 Do Until i>100 sum=sum+i i=i+1 Loop Label2.Caption=Str(sum) End Sub 3.2.3 While…Wend 循环控制结构 此语句是为了保持与低版本 Visaul Basic 兼容而保留的。在实际应用中，它与 Do While…Loop 结构非常相似。 六、小结 在这一讲里，我们要掌握 For…Next、Do…Loop 循环的用法，其中循环的嵌套不容易理 解。大家要多自己编些程序来熟悉它 七、作业 习题 3.2,3.6