VB循環(huán)結(jié)構(gòu)復(fù)習(xí)學(xué)案

1、主題：循環(huán)結(jié)構(gòu)一、考點點擊：1、學(xué)會使用循環(huán)結(jié)構(gòu)設(shè)計程序的基本方法。二、學(xué)習(xí)目標(biāo)：1、掌握for循環(huán)語句、doloop循環(huán)語句的格式及執(zhí)行流程2、學(xué)會用循環(huán)控制結(jié)構(gòu)來解決實際問題三、活動形式在教師引導(dǎo)下的自主學(xué)習(xí)四、考點注解：學(xué)會使用循環(huán)結(jié)構(gòu)設(shè)計程序的基本方法。按條件重復(fù)執(zhí)行一種操作的結(jié)構(gòu)稱為循環(huán)結(jié)構(gòu)。循環(huán)結(jié)構(gòu)有兩種形式，即當(dāng)型循環(huán)結(jié)構(gòu)和直到型循環(huán)結(jié)構(gòu)。（ 1）當(dāng)型循環(huán)結(jié)構(gòu)：先進(jìn)行判斷，然后根據(jù)判斷結(jié)果（真或假）再決定是否執(zhí)行循環(huán)體的循環(huán)結(jié)構(gòu)稱為當(dāng)型循環(huán)結(jié)構(gòu)，如左圖所示。（ 2）直到型循環(huán)結(jié)構(gòu)：先執(zhí)行一次循環(huán)體，然后再根據(jù)判斷結(jié)果（真或假）決定是否繼續(xù)執(zhí)行循環(huán)體的循環(huán)結(jié)構(gòu)稱為直到型循環(huán)結(jié)構(gòu)，如

2、下圖所示。從上述兩種循環(huán)結(jié)構(gòu)的流程圖可以看出，對于當(dāng)型循環(huán)結(jié)構(gòu)，程序有可能一次也不執(zhí)行循環(huán)體；對于直到型循環(huán)結(jié)構(gòu)，程序至少要執(zhí)行一次循環(huán)體。循環(huán)語句實現(xiàn)循環(huán)結(jié)構(gòu)。 VB中循環(huán)語句有兩種：DoLoop語句和ForNext語句。DoLoop語句是條件型循環(huán)，當(dāng)循環(huán)的執(zhí)行是由條件控制，在循環(huán)的次數(shù)不確定時通常選用該語句；For語句是計數(shù)循環(huán)，在循環(huán)次數(shù)已知時選用該語句。（一）、doloop循環(huán)先執(zhí)行循環(huán)語句，再判斷條件表達(dá)式的值，當(dāng)條件條件表達(dá)式的值為False時繼續(xù)執(zhí)行循環(huán)體，直到條件為True結(jié)束循環(huán)轉(zhuǎn)而執(zhí)行Loop Until后面的語句。先執(zhí)行循環(huán)語句，再判斷條件表達(dá)式的值，當(dāng)條件條件表達(dá)式的

3、值為True時繼續(xù)執(zhí)行循環(huán)體，當(dāng)條件表達(dá)式的值為alse結(jié)束循環(huán)，轉(zhuǎn)而執(zhí)行Loop While后面的語句先計算條件表達(dá)式的值，當(dāng)其值為False時，執(zhí)行循環(huán)體中的語句序列，然后再重新計算條件表達(dá)式的值，直到條件表達(dá)式的值為True時，循環(huán)終止，執(zhí)行Do Until Loop 語句的下一條語句。先計算條件表達(dá)式的值，當(dāng)其值為True 時，執(zhí)行循環(huán)體中的語句序列，然后再重新計算條件表達(dá)式的值，當(dāng)條件表達(dá)式的值為False時，循環(huán)終止，執(zhí)行Loop語句后的語句。（二）ForNext 語句在循環(huán)次數(shù)已知的情況下，采用 ForNext語句實現(xiàn)循環(huán)結(jié)構(gòu)是比較合適的選擇。ForNext語句的格式如下：（三）

4、、循環(huán)結(jié)構(gòu)例題對比求1+2+3+100的值1、當(dāng)for語句中省略step時默認(rèn)值是12、在doloop 循環(huán)中要注意變量初值的設(shè)置和循環(huán)變量的增值問題五、習(xí)題訓(xùn)練：1 . 單選題 1 分 在VB中，某同學(xué)要計算1+3+5+9的值，他應(yīng)用循環(huán)結(jié)構(gòu)語句如下：s=0 FOR i1 TO 9 STEP? s=s+i請問語句中的“？”代表的值是（） A、-1 B、-2 C、2 D、12. 多選題 2 分如下VisualBasic程序段，用到了哪些控制結(jié)構(gòu)（）。Private Sub command1_click() S=0 i=16 Do S=S+I i=i+1 Until S>=100 Prin

5、t"i的值為:"I EndSub A、順序結(jié)構(gòu) B、循環(huán)結(jié)構(gòu) C、層次結(jié)構(gòu) D、選擇結(jié)構(gòu)3. 單選題 1 分 .以下是一段VisualBasic程序，它的基本結(jié)構(gòu)屬于（）Do S=S+I i=i+1 Loop Until S>=100A、順序結(jié)構(gòu) B、選擇結(jié)構(gòu) C、循環(huán)結(jié)構(gòu) D、樹型結(jié)構(gòu)4. 單選題 1 分 執(zhí)行下列VB程序段后，變量j的值為（ ）S=0 For j=1 to 10 Step 2 S=S+j Next jA、1 B、10 C、11 D、125. 單選題 1 分 有如下VB程序段，對該程序段執(zhí)行過程描述正確的是（ ）Do S=S+1 Loop Until

6、 S>100A、如果S>100，則退出循環(huán) B、如果S<=100，則重復(fù)執(zhí)行S=S+1C、如果S>100，則重復(fù)執(zhí)行S=S+1 D、不論S初值為多少，至少執(zhí)行一次S=S+16. 單選題 1 分 在結(jié)構(gòu)化程序設(shè)計中通常包含三種不同的控制結(jié)構(gòu)，即：順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。下列說法正確的是（）A、一個程序只能包含一種結(jié)構(gòu) B、一個程序最多可以包含兩種結(jié)構(gòu)C、一個程序可以包含以上三種結(jié)構(gòu) D、一個程序必須包含以上三種結(jié)構(gòu)7. 單選題 1 分 求解S=2+4+6+8+10的VB程序如下，試問程序中的“step”表示（）。S=0 For i=2 to 10 step 2S=s

7、+I Next iA、函數(shù) B、步長 C、表達(dá)式 D、變量8.閱讀下列程序段，程序運(yùn)行后在文本框中顯示的結(jié)果是Private Sub Form_Click()Dim s As IntegerDim i As Integers = 0For i = 1 To 100s = s + iNext iText1.Text = sEnd Sub A 、5051 B 、5050 C 、10101 D 、101009.執(zhí)行以下語句后，a的值是Dim a As Integera = 1Do While a <> 100a = a + 2Loop A 、101 B 、溢出 C 、99 D 、1001

8、0.補(bǔ)充完善下列程序段求s=2+4+6+100之和。Dim i As IntegerDim s As Integers=0For i=2 To 100 Step 2   s=_Next iPrint s輸出100以內(nèi)（包含100）能被3整除的數(shù)。Dim I As IntegerI=1Do  If  I  Mod 3=0 Then Print I  End IfI=I+1Loop Until _Function func() Dim i As Integer Dim s As Integer s = 0 For i = 10 To 10

9、0 Step 10 s = _ Next i func = "s=" & sEnd Function算法描述'某學(xué)校組織一次讀書活動，計劃購買各種各樣書寫筆作為獎品。'用100元買100支筆，其中鋼筆每支5元，圓珠筆每支1元，鉛筆1元買6支，'求可行的方案數(shù)有多少種?'注：請不要更改原程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼Function func()Dim i, j, k As Integer 'i,j,k變量分別存儲購買三種筆所用的總金額 func = (1) For i = 0 To 100 F

10、or j = 0 To 100 For k = 0 To 100 If (i + j + k) = 100 (2) (i / 5 + j + 6 * k) = 100 Then func = func + 1 End If Next k Next (3) Next iEnd FunctionPrivate Sub Command1_Click()Dim sum sum = (1) For i = 1 To 6 k = 2 i sum = (2) + k NextText1.Text = sumout (sum)End SubPrivate Sub Command1_Click()s = 1 For i = 1 To 10 s = s * (1) Next func = s