2.3.3循環(huán)結(jié)構(gòu)-for語句

2.3.3

循環(huán)結(jié)構(gòu)—for語句第三節(jié)程序的基本結(jié)構(gòu)溫故而知新

程序編寫一般有幾種基本結(jié)構(gòu)？

一、順序結(jié)構(gòu)----順序執(zhí)行二、選擇結(jié)構(gòu)----if語句多分支case語句三、循環(huán)結(jié)構(gòu)？？大家一起玩游戲猜字母我的游戲我做主怎么控制猜字母的范圍和次數(shù)呢？Fori=1To3Randomizeascii=Int((67-65+1)*Rnd+65)s=Chr(ascii)Ifs=Text1.TextThenMsgBox"恭喜你猜對(duì)了",vbExclamationEndElseMsgBox"很遺憾，你還有"&3-i&"次機(jī)會(huì)"j=MsgBox("進(jìn)入下一輪游戲，還用這個(gè)字母繼續(xù)猜？",vbYesNo,"友情提示")EndIfPrintsNexti你能舉些關(guān)于循環(huán)的例子嗎？一天24小時(shí)循環(huán)人體血液循環(huán)水循環(huán)衛(wèi)星繞地球火箭發(fā)射小程序體驗(yàn)代碼有重復(fù)語句嗎，怎么簡(jiǎn)化呢？PrivateSubCommand1_Click()Label1.FontSize=20Label1.ForeColor=vbRedLabel1.Caption="發(fā)射倒計(jì)時(shí)5秒"Sleep(1000)ClsLabel1.Caption="發(fā)射倒計(jì)時(shí)4秒"Sleep(1000)ClsLabel1.Caption="發(fā)射倒計(jì)時(shí)3秒"Sleep(1000)ClsLabel1.Caption="發(fā)射倒計(jì)時(shí)2秒"Sleep(1000)ClsLabel1.Caption="發(fā)射倒計(jì)時(shí)1秒"Sleep(1000)ClsMsgBox"火箭發(fā)射成功！"EndSub自主探究Forn=5To1Step-1Label1.Caption="發(fā)射倒計(jì)時(shí)"&n&"秒"Sleep(1000)ClsNextnn=__to__step-1Label1.Caption="發(fā)射倒計(jì)時(shí)"&n&"秒"Sleep(1000)ClsNextn512024/2/1013認(rèn)識(shí)新知1、格式：For循環(huán)變量

=

初值To

終值［Step步長(zhǎng)］

［循環(huán)體］Next［循環(huán)變量］循環(huán)變量的增量①賦值②比較③執(zhí)行④+步長(zhǎng)2、說明：(1)For與Next必須成對(duì)出現(xiàn)，Next必須位于For語句之后。(2)循環(huán)變量必須是數(shù)值型，且最好為整型變量。(3)For循環(huán)分遞增循環(huán)和遞減循環(huán)兩種。遞增循環(huán)：當(dāng)初值小于等于終值，步長(zhǎng)值>0。遞減循環(huán)：當(dāng)初值大于等于終值，步長(zhǎng)值<0。思考：步長(zhǎng)值能否為0？答案：不能！步長(zhǎng)值為0是死循環(huán)！！(4)當(dāng)步長(zhǎng)值=1時(shí)，［Step步長(zhǎng)值］部分可以省略

。(5)Next后面的變量可以省略

，F(xiàn)or、Next后面的循環(huán)變量是同一個(gè)。(6)可以在循環(huán)體中的任何位置放置任意個(gè)ExitFor語句，隨時(shí)退出循環(huán)體。注：本節(jié)課先講解For遞增循環(huán)的相關(guān)內(nèi)容。2024/2/1014Fori=1To5Step1Printi;NextiFori=5To1Step-2Printi;NextiFori=1To5Step1Printi;Nexti等同于Fori=1To5Printi;NextiFori=1To5Step1Printi;Nexti等同于Fori=1To5Step1

Printi;Next2024/2/1015

For循環(huán)變量=初值To終值[Step步長(zhǎng)值] <循環(huán)體>Next[循環(huán)變量]3、For…next循環(huán)的執(zhí)行：1、將初值賦給循環(huán)變量2、判斷循環(huán)變量值是否小于等于終止值若為真（True），則執(zhí)行循環(huán)語句，而后轉(zhuǎn)到3執(zhí)行

若為假（False），則轉(zhuǎn)到4執(zhí)行3、將變量的值加上步長(zhǎng)值，而后返回2執(zhí)行4、循環(huán)結(jié)束，順序執(zhí)行Next后面的語句2024/2/1016循環(huán)變量賦初值循環(huán)變量<=終值循環(huán)體循環(huán)變量加上一個(gè)步長(zhǎng)TrueFalse①賦值②比較③執(zhí)行④+步長(zhǎng)4、流程圖：2024/2/10171）For循環(huán)語句是“先判斷后執(zhí)行”。2）For語句和Next語句必須成對(duì)出現(xiàn)，缺一不可。3）每次循環(huán)，循環(huán)變量的值都會(huì)發(fā)生變化。當(dāng)退出循環(huán)后，循環(huán)變量的值保持退出時(shí)的值。4）循環(huán)次數(shù)計(jì)算公式為：循環(huán)次數(shù)=Int（（終值-初值）/步長(zhǎng)）+1注意：第幾次循環(huán)x與終值比較2024/2/1018

Forx=1To10Step3printx,

Nextx

X為循環(huán)變量11<1017104<10427<10310=10413>105停止分析:例1：例題講解2024/2/1019在窗體上顯示10行*（每行10個(gè)*）順序結(jié)構(gòu)PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")循環(huán)結(jié)構(gòu)forn=1to10PrintString(10,"*")nextn'n是循環(huán)控制變量Forn=1To10'n的初值1，終值10，每循環(huán)1次增加1PrintString(10,"*")'循環(huán)體語句Nextn'循環(huán)結(jié)束小試牛刀-修改程序

例2:求S=1+2+3+…10，把結(jié)果顯示在窗體上。

2024/2/1020累加器

s=s+i舊值。前n項(xiàng)之和新加的數(shù)…s=s+i1+2

3s=s+i1+2+…910s=s+i

1

2

s=0Fori=1To10s=s+iNexti

Print"s=";s'累加器初值為0'累加器，在原有和的基礎(chǔ)上每次加一個(gè)數(shù)程序執(zhí)行結(jié)果是：s＝55分析:s=s+i

0

1第一次循環(huán)第二次循環(huán)第三次循環(huán)第十次循環(huán)i=2i=3i=4i=11i=1i<=10i<=10i<=10i<=10i>10退出循環(huán)2024/2/10211.完善程序。編程計(jì)算1+4+7+10+…+100的值。

DimsAsInteger,iAsIntegers=0Fori=____To____step____

s=s+iNextiPrints13100熱身練習(xí)，我能行！你能說出s=s+1執(zhí)行了幾次嗎？(100-1)/3+1=34例3：計(jì)算s=5！(5*4*3*2*1)的值。PrivateSubCommand1_Click()DimsAsInteger,nAsInteger

s=____

Forn=__To__Step__s=_____

NextnLabel2.Caption=sEndSub2024/2/1022小結(jié)：累加和初值s=0；累乘積初值s=1。上機(jī)操作2024/2/10231、以下是一段VisualBasic程序，它的基本結(jié)構(gòu)屬于()…Fori=0to100s=s+iNexti…A、順序結(jié)構(gòu)B、選擇結(jié)構(gòu)C、循環(huán)結(jié)構(gòu)D、樹型結(jié)構(gòu)挑戰(zhàn)自我：

2、在VB程序中有以下程序段，語句Print"VB"的執(zhí)行次數(shù)是()Fori=1To3Step2Print"VB"NextiA、1B、2C、3 D、4BC2024/2/10244、下列程序段中，循環(huán)體執(zhí)行的次數(shù)是()，F(xiàn)ori=2To8Step2i=i+iNextiA、2B、3C、4D、55、在上題中，循環(huán)結(jié)束時(shí)，i的值是（）

。A、8 B、10C、14D、12AC3、在VB中，假定有以下程序段:Fori=3To1Print"VB"Nexti則語句Print“VB”的執(zhí)行次數(shù)是:()A、出錯(cuò)B、2C、1D、0D2024/2/1025核心代碼快速入門：Circle(x,y),r,vbcolor

1.畫圓就要確定圓心和半徑，畫圓函數(shù)里參數(shù)x、y即代表圓心所在點(diǎn)的橫、縱坐標(biāo)，r代表半徑，vbcolor即畫圓線條的顏色哦，可自選，比如vbred是紅色，vbblue是綠色，很簡(jiǎn)單吧2.Circle(Width/2,Height/2),100,vbBlue就是以當(dāng)前窗體正中心為圓心，以100長(zhǎng)為班級(jí)畫藍(lán)色圓3.請(qǐng)大家打開老師發(fā)送的文件夾“畫圓”，按要求畫10個(gè)同心圓！4.把代碼改為for語句興趣小組--畫圓2024/2/1026課堂小結(jié)：1、本節(jié)課主要學(xué)習(xí)了For…Next循環(huán)的基本語法，并使用該循環(huán)結(jié)構(gòu)編寫簡(jiǎn)單的程序，解決實(shí)際問題。2、探討了相關(guān)的難點(diǎn)問題：循環(huán)體執(zhí)行過程中時(shí)，循環(huán)變量的值；循環(huán)結(jié)束時(shí)循環(huán)變量的值；循環(huán)體執(zhí)行的次