【正文】
Dim i As Integer,sum As Integer i=1 39。每次循環(huán)變量加1 Loop =Str(sum)End Sub解法二:采用直到型循環(huán)Do Until…LoopPrivate Sub Command1_Click() Dim i As Integer,sum As Integer i=1 39。六、小結(jié) 在這一講里,我們要掌握For…Next、Do…Loop循環(huán)的用法,其中循環(huán)的嵌套不容易理解。累加器初值置為0 Do Until i100 sum=sum+i i=i+1 Loop =Str(sum)End Sub While…Wend循環(huán)控制結(jié)構(gòu)此語句是為了保持與低版本Visaul Basic兼容而保留的。累加器初值置為0 Do While i=100 39。用For…Next循環(huán)結(jié)構(gòu)實(shí)現(xiàn) 程序代碼如下: Private Sub Command1_Click()Dim sum As Integer, I As Integer sum=0 For I=1 To 100 sum=sum+I Next I =Str(sum)End Sub Do…Loop循環(huán)結(jié)構(gòu)語句格式1:Do [{While | Until} condition][statements][Exit Do][statements]Loop語句格式2:Do[statements][Exi