1“VisualBasic語(yǔ)言程序設(shè)計(jì)”第六章2015年10月1日第二節(jié)FOR循環(huán)的程序設(shè)計(jì)2

用順序結(jié)構(gòu)編程輸出3個(gè)“OK！”放到一列上，想想在前面的學(xué)習(xí)中是如何來(lái)編寫(xiě)這個(gè)程序的？

CLSPRINT“OK！”P(pán)RINT“OK！”P(pán)RINT“OK！”END

大家思考：如果我想用語(yǔ)言編程打印VisualBasic出1000個(gè)“OK！”放到一列上，怎么辦？3教學(xué)目標(biāo)：①掌握FOR循環(huán)語(yǔ)句的基本語(yǔ)法格式。

②理解并掌握FOR循環(huán)語(yǔ)句的執(zhí)行過(guò)程。

4

1、用FOR循環(huán)語(yǔ)句給出“實(shí)例一用VisualBasic語(yǔ)言編程打印出3個(gè)“OK！”放到一列上”程序的源代碼。

CLSPRINT“OK！”P(pán)RINT“OK！”P(pán)RINT“OK！”END

如何改動(dòng)能實(shí)現(xiàn)VisualBasic語(yǔ)言編程打印出1000個(gè)“OK！”放到一列上？1000FOR循環(huán)變量=初值

To終值

Step步長(zhǎng)（增量）循環(huán)體NEXT循環(huán)變量

52．上面例子一循環(huán)語(yǔ)句的執(zhí)行過(guò)程（1）循環(huán)語(yǔ)句的執(zhí)行過(guò)程：

思考：程序中最后變量X的值是多少？6（2）下面程序，可以打印出多少個(gè)“OK”呢？CLSFORX=1.25to999.25STEP0.1PRINT“OK！”NEXTX9801次計(jì)算循環(huán)語(yǔ)句次數(shù)的公式：次數(shù)=INT（（終值-初值）/步長(zhǎng)）+17討論：例子一中的步長(zhǎng)如果為0時(shí)會(huì)出現(xiàn)什么情況呢？

CLSFORX=1to3

STEP0PRINT“OK！”

NEXTX

總結(jié)：①當(dāng)循環(huán)語(yǔ)句能夠循環(huán)時(shí)，如果步長(zhǎng)的值為0，就會(huì)出現(xiàn)循環(huán)無(wú)數(shù)次，也叫做“死循環(huán)”。

②思考：如果是初值大于終值時(shí)，步長(zhǎng)的值為0時(shí)，本程序會(huì)怎么樣？8編寫(xiě)小程序

1、如何求S=1+2+3+…+100的和？DIMPFORN=1to100STEP1P=P+NNEXTN

PRINTP2、編程計(jì)算1——100之間所有奇數(shù)的和？29知識(shí)延伸

3、綜合提升練習(xí)題：求1—100之間所有整數(shù)的積L=1FORX=1to100L=L*XNEXTX

PRINTS討論：如何編程計(jì)算S=1！+2！+3！+……100！FORI=1TO________FORN=1to_____P=P*INEXTN

S=______NEXTI10高考練兵：1、下列程序中語(yǔ)句a=a-1執(zhí)行的次數(shù)是________a=0Forb=1to-2Step-1a=a-1Nextb2、下列程序中s=s+j語(yǔ)句共執(zhí)行了_______次DimsasInteger,Iasinteger,jasintegerFORi=1to10step2forj=1to5step2s=s+jnextjnextIprints11高考練兵：3、以下程序段執(zhí)行后，變量X的值為（

）X=0Fori=1To5Forj=1To5X=x+1NextjNextiPrintxA.15B.20C.25D.3012高考練兵：4、以下程序段的執(zhí)行結(jié)果是（

）Forx=1To2a=0Fory=1Tox+1a=a+1NextyPrintaNextxA．11B.00C12D2313課堂小結(jié)