【正文】
le | Until} condition]說明:在循環(huán)次數(shù)不能確定的情況下進行的,那么這時便需要用到循環(huán)控制結(jié)構(gòu)Do…Loop【】用Do…Loop循環(huán)結(jié)構(gòu)實現(xiàn)求和sum=1+2+3+…+100。編寫程序代碼。解法一:采用當(dāng)型循環(huán)Do While…LoopPrivate Sub Command1_Click() Dim i As Integer,sum As Integer i=1 39。計數(shù)器初值置為1 sum=0 39。累加器初值置為0 Do While i=100 39。當(dāng)型循環(huán) sum=sum+i i=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。計數(shù)器初值置為1 sum=0 39。累加器初值置為0 Do Until i100 sum=sum+i i=i+1 Loop =Str(sum)End Sub While…Wend循環(huán)控制結(jié)構(gòu)此語句是為了保持與低版本Visaul Basic兼容而保留的。在實際應(yīng)用中,它與Do While…Loop結(jié)構(gòu)非常相似。六、小結(jié) 在這一講里,我們要掌握For…Next、Do…Loop循環(huán)的用法,其中循環(huán)的嵌套不容易理解。大家要多自己編些程序來熟悉它七、作業(yè) ,8 / 8