第03章循環(huán)結構

1、Visual Basic流程控制結構流程控制結構3.3 循環(huán)結構循環(huán)結構 為了解決這個問題，為了解決這個問題，Visual Basic中提供了循環(huán)語句來實現(xiàn)中提供了循環(huán)語句來實現(xiàn)程序段程序段的多次的多次反復反復執(zhí)行執(zhí)行 兩種類型的循環(huán)兩種類型的循環(huán)語句：語句： 循環(huán)循環(huán)次數(shù)已知次數(shù)已知的循環(huán)的循環(huán)語句：語句：For語語句句 條件條件控制的循環(huán)控制的循環(huán)語句語句：Do語句和語句和While語句。語句。 3.3.1 For循環(huán)語句循環(huán)語句 3.3.1 For循環(huán)語句循環(huán)語句 For、To、Next、Step都是關鍵都是關鍵字。字。 循環(huán)變量循環(huán)變量是一個是一個數(shù)值型變量數(shù)值型變量，用于控制用于控制

2、循環(huán)的次數(shù)循環(huán)的次數(shù)。 初值、終值代表循環(huán)變量的初初值、終值代表循環(huán)變量的初值和終值，可以是值和終值，可以是數(shù)值型常量數(shù)值型常量或或數(shù)值表達式數(shù)值表達式。3.3.1 For循環(huán)語句循環(huán)語句 步長是循環(huán)變量的增值，可以是數(shù)步長是循環(huán)變量的增值，可以是數(shù)值型常量或數(shù)值表達式。值型常量或數(shù)值表達式。步長的值可步長的值可正可負正可負，其取值與初值和終值有關。，其取值與初值和終值有關。若若步長為正步長為正，則，則初值必須小于終值，初值必須小于終值，否則無法進入循環(huán)否則無法進入循環(huán)，步長值為步長值為1時可時可省略省略“Step 1”；步長為負時，初值必步長為負時，初值必須大于終值，否則無法進入循環(huán)須大于終

3、值，否則無法進入循環(huán)；步步長的值為長的值為0，則出現(xiàn)無限循環(huán)（即死，則出現(xiàn)無限循環(huán)（即死循環(huán)），因此步長不能為循環(huán)），因此步長不能為0。3.3.1 For循環(huán)語句循環(huán)語句 For和和Next之間為之間為循環(huán)體循環(huán)體，它可以由，它可以由一一個或多個語句構成個或多個語句構成。 Next后的循環(huán)變量后的循環(huán)變量必須與必須與For后的循環(huán)后的循環(huán)變量變量相同相同，也，也可省略可省略不寫。不寫。 循環(huán)次數(shù)由初值、終值和步長決定，循環(huán)次數(shù)由初值、終值和步長決定，計算公式為：計算公式為： 循環(huán)次數(shù)循環(huán)次數(shù) = INT(終值終值 初值初值)/步長步長+1) 當當初值等于終值時初值等于終值時，不論步長是正數(shù)，不

4、論步長是正數(shù)還是負數(shù)，都還是負數(shù)，都執(zhí)行一次循環(huán)體執(zhí)行一次循環(huán)體。3.3.1 For循環(huán)語句循環(huán)語句 例：例：3.23 Dim sum as integer,I as integer Sum=0 For i=1 to 100 step 1 sum= sum+i Next I Print sum For I =1 to 100 step 2 sum = sum +i Next I For i= 1 to 100 step 2 sum=sum +i Next i 例例3.24 Dim f as double,I as integer,n as integer N= text1.text F=1 F

5、or i=1 to n f=f*i next3.3.2 Do循環(huán)語句循環(huán)語句 無法預先確定循環(huán)次數(shù)無法預先確定循環(huán)次數(shù)，使用，使用基于條件的循環(huán)語句基于條件的循環(huán)語句。 Do語句有兩種形式，即：語句有兩種形式，即： 形式形式1： Do While|Until 循環(huán)條件循環(huán)條件 循環(huán)體循環(huán)體 Loop 形式形式2： Do 循環(huán)體循環(huán)體 Loop While|Until 表達式表達式3.3.2 Do循環(huán)語句循環(huán)語句 Do，Loop，Until，While都是關都是關鍵字，鍵字，Do和和Loop共同構成共同構成Do循環(huán)循環(huán)語句。語句。 “循環(huán)條件循環(huán)條件”可為關系表達式、可為關系表達式、邏輯表達式或

6、數(shù)值表達式。若其邏輯表達式或數(shù)值表達式。若其為數(shù)值表達式，則表達式的值為為數(shù)值表達式，則表達式的值為非非0時表示為真時表示為真，為為0時表示為假時表示為假。3.3.2 Do循環(huán)語句循環(huán)語句 關鍵字關鍵字While表示當循環(huán)條件表示當循環(huán)條件為真時則執(zhí)行循環(huán)體為真時則執(zhí)行循環(huán)體，若循環(huán)，若循環(huán)條件為假則結束循環(huán)條件為假則結束循環(huán)； 關鍵字關鍵字Until表示若循環(huán)條件表示若循環(huán)條件為為假則執(zhí)行循環(huán)體假則執(zhí)行循環(huán)體，一旦循環(huán)條，一旦循環(huán)條件為真則結束循環(huán)。件為真則結束循環(huán)。3.3.2 Do循環(huán)語句循環(huán)語句 形式形式1與形式與形式2的的區(qū)別區(qū)別在于，形在于，形式式1為為先判斷后執(zhí)行先判斷后執(zhí)行，即先

7、判斷循，即先判斷循環(huán)條件，而后根據條件的真或假環(huán)條件，而后根據條件的真或假來決定是否執(zhí)行循環(huán)體來決定是否執(zhí)行循環(huán)體； 形式形式2為為先執(zhí)行后判斷先執(zhí)行后判斷，即先執(zhí)行，即先執(zhí)行一次循環(huán)體，而后判斷循環(huán)條件，一次循環(huán)體，而后判斷循環(huán)條件，根據條件的真或假再決定是否繼根據條件的真或假再決定是否繼續(xù)執(zhí)行循環(huán)體。續(xù)執(zhí)行循環(huán)體。3.3.2 Do循環(huán)語句循環(huán)語句 Do與與Loop應成對出現(xiàn)，當省應成對出現(xiàn)，當省略略“While|Until 循環(huán)條件循環(huán)條件”時，時，循環(huán)結構僅由循環(huán)結構僅由Do和和Loop構成，構成，表示表示無條件循環(huán)無條件循環(huán)，此時應在循，此時應在循環(huán)體中有環(huán)體中有Exit Do語句用于

8、終止語句用于終止循環(huán)，否則循環(huán)語句將永遠無循環(huán)，否則循環(huán)語句將永遠無法終止，導致死循環(huán)。法終止，導致死循環(huán)。3.3.2 Do循環(huán)語句循環(huán)語句 例例3.25 Dim sum as integer,I as integer Sum =0 i=1 Do while i100 sum= sum+1 i=i+1 loop Dim sum as integer,I as integer Sum =0 i=1 Do sum= sum+1 i=i+1 Loop while i1003.3.3 While循環(huán)語句循環(huán)語句 While循環(huán)語句用于循環(huán)次數(shù)不可知的循環(huán)結構，循環(huán)語句用于循環(huán)次數(shù)不可知的循環(huán)結構，該語

9、句和該語句和Do WhileLoop結構的功能完全相同，其結構的功能完全相同，其語句格式為：語句格式為： While 表達式表達式 循環(huán)體循環(huán)體 Wend 該語句的執(zhí)行過程為：首先計算表達式的值，該語句的執(zhí)行過程為：首先計算表達式的值，當表達式的值為真（非零）時，執(zhí)行循環(huán)體，而當表達式的值為真（非零）時，執(zhí)行循環(huán)體，而后由后由Wend語句控制返回再次計算語句控制返回再次計算While后的表達后的表達式，若為真則繼續(xù)執(zhí)行循環(huán)體，若表達式的值為式，若為真則繼續(xù)執(zhí)行循環(huán)體，若表達式的值為假，則結束循環(huán)，執(zhí)行假，則結束循環(huán)，執(zhí)行Wend后面的語句。后面的語句。 Dim sum as integr,I

10、as integer Sum=0 i=1 While i=100 sum=sum+I i=i+1 wend3.3.4 循環(huán)的強制退出循環(huán)的強制退出 Exit For和和Exit Do 均用于退出循均用于退出循環(huán)結構環(huán)結構。 Exit For只能用于只能用于For循環(huán)語句的循環(huán)語句的循環(huán)體循環(huán)體中中 Exit Do只能用于只能用于Do循環(huán)語句的循環(huán)語句的循環(huán)體循環(huán)體中中 Dim sum as integr,I as integer Sum=0 i=1 While i 2000 then exit do end if sum=sum+I i=i+1 wend3.3.5 循環(huán)的嵌套循環(huán)的嵌套 當一個循環(huán)的循環(huán)體內包含有當一個循環(huán)的循環(huán)體內包含有另一個完整的循環(huán)時，稱為循另一個完整的循環(huán)時，稱為循環(huán)的嵌套，也稱為多重循環(huán)環(huán)的嵌套，也稱為多重循環(huán)。 Exit Do或或Ex