程序的循環(huán)結構上

代碼s = 0n = 2For i = 1 To 10 Step 1s = s + 1 / nn = n + 2Next iPrint sy = 1 / 2 + 1 / 4 + 1 / 6 + 1 / 8 + 1 / 10 + 1 / 12 + 1 / 14 + 1 / 16 + 1 / 18 + 1 / 20Print y 程序的循環(huán)結構For語句Do 語句 引入怎樣在屏幕上依次輸出10以內的所有偶數(shù)？Print 2Print 4Print 6Print 8Print 10如果要依次輸出100甚至1000以內的所有偶數(shù)，應該怎么辦？ 循環(huán)體 Print i輸出10以內的偶數(shù)i=i+2Print 2Print 4Print 6Print 8Print 10 For 循環(huán)語句的基本格式For 循環(huán)變量=初值 To 終值 Step 步長 語句組（循環(huán)體）Next 循環(huán)變量 循環(huán)變量=初值循環(huán)變量超過終值執(zhí)行循環(huán)體循環(huán)變量增加一個步長值否是 初值：i=2（循環(huán)變量用i表示）輸出數(shù)據(jù)：i循環(huán)體： i=i+2 Print i條件：i10i=i+2否是輸出i開始 結束 程序代碼 Private Sub Command1_Click() For i = 2 To 10 Step 2 Print i Next i End Sub 執(zhí)行過程循環(huán)次數(shù)循環(huán)前i值 i=10?輸出結果循環(huán)后i值1 2是2 2+2=42 4是4 4+2=63 6是6 6+2=84 8是8 8+2=105 10是10 10+2=126 12否（退出循環(huán)） Private Sub Command1_Click() s =0 For i = 1 To 10 step 1 s = s + i Next i Print s=; s End Sub s=55 課堂中練：教材p52實踐題：讀程序，分析程序中的循環(huán)體分別被執(zhí)行了多少次？其運行結果是什么？注意：循環(huán)體執(zhí)行次數(shù)（終值初值）步長 For a = 1 To 10a = a + 1Print aNext a 246810 For a = 1 To 10 Print a a = a + 1Next a 13579 For的嵌套For i=1 to 5 for j=1 to 5 print i+j, next j printNext i 1、for語句與next語句必須成對出現(xiàn)，缺一不可。 2、for語句必須在next語句之前。 3、for語句中的“循環(huán)變量”與next語句中的“循環(huán)變量”必須一致。 4、如果步長為1，則“step 1”可省略。注意：循環(huán)體執(zhí)行次數(shù)（終值初值）步長 For 代碼s = 0n = 2For i = 1 To 10 Step 1s = s + 1 / nn = n + 2Next iPrint sy = 1 / 2 + 1 / 4 + 1 / 6 + 1 / 8 + 1 / 10 + 1 / 12 + 1 / 14 + 1 / 16 + 1 / 18 + 1 / 20Print y Do 代碼 s=0 n=2 i=1 do while i=10 s=s+1/n n=n+2 i=i+1 loop Print s Do 循環(huán)語句 前面我們已經(jīng)學過FOR 循環(huán)語句，它適于知道重復次數(shù)的循環(huán)。但在許多實際問題中常常難以預先確定重復的次數(shù)，這時就不能使用FOR 循環(huán)語句。為此，VB語言還提供了一種稱為DO循環(huán)的語句，使得循環(huán)更加靈活方便。 Do 循環(huán)語句的基本格式Do 循環(huán)體Loop Until 循環(huán)終止條件其中：循環(huán)體是一組VB語句；循環(huán)終止條件是一個邏輯表達式。 執(zhí)行循環(huán)體滿足循環(huán)終止條件嗎？是否 實踐1已知S=1+2+3+N，找出一個最大的整數(shù)N，使得S= 30000 Print n-1 End Sub 課堂實踐：利用計算機計算出手折出珠峰高度需要的次數(shù)！想一想， 讓珠峰在你手中生成！假設一張紙足夠長，紙厚度為0.5毫米，問重疊幾次后的厚度大于珠穆瑯瑪峰的高度（8848.13m）分析：假設折疊第n次后超過珠峰：折疊n次折疊次0.5*2折疊次(0.5*2)*2折疊次(0.5*2)2)2 0.5*2n判斷條件：0.5*2n8848130 折出珠峰程序代碼實現(xiàn)： Private Sub Command1_Click() n = 1 h=0.5 Do h = (0.5 * 2 n)或h=h*2 n = n + 1 Loop Until h 8848130 Print n - 1 End Sub