程序的循環(huán)結(jié)構(gòu)

關(guān)于程序的循環(huán)結(jié)構(gòu)第1頁，課件共11頁，創(chuàng)作于2023年2月掌握For循環(huán)語句的基本格式理解For循環(huán)語句的執(zhí)行過程掌握循環(huán)變量在執(zhí)行過程中的變化情況能用For循環(huán)結(jié)構(gòu)編寫簡單的程序第2頁，課件共11頁，創(chuàng)作于2023年2月實例1、編程求1+2+3+…+10的和按照順序結(jié)構(gòu)編寫程序如下：PrivateSubCommand1_Click()dimsasintegers=0s=s+1s=s+2……s=s+10printsendsub用這種方法能不能編程求出1+2+3……+100的和，1+2+3……+1000的和？實際這10條賦值語句在重復(fù)著同一個操作，都是將s加一個數(shù)和賦給s,如果用變量x表示每一個加數(shù)，那么這10條語句就可以用一條表示：s=s+x，然后讓x的取值分別為1到10這10個自然數(shù)，重復(fù)執(zhí)行這條語句，就可以實現(xiàn)該程序的編寫。這就要用到循環(huán)結(jié)構(gòu)。第3頁，課件共11頁，創(chuàng)作于2023年2月2.4.1用For～Next語句建立循環(huán)結(jié)構(gòu)

用循環(huán)語句編寫：PrivateSubCommand1_Click()Dimsasinteger,xasintegerS=0ForX=1to10step1

S=S+XnextXprintSEndsub循環(huán)變量初值終值步長循環(huán)體1、For－next循環(huán)語句的格式：用于建立已知循環(huán)次數(shù)的循環(huán)結(jié)構(gòu)For

循環(huán)變量=初值To

終值Step

步長循環(huán)體Next循環(huán)變量2、For循環(huán)語句的功能：執(zhí)行For語句：先將初值賦給循環(huán)變量，并記住終值和步長（兩數(shù)間隔）。然后進(jìn)行判斷，是否超出終值？如“超出”終值時，執(zhí)行Next下一語句，否則執(zhí)行循環(huán)體。執(zhí)行循環(huán)體

執(zhí)行Next語句：循環(huán)變量加步長，返回重新判斷

第4頁，課件共11頁，創(chuàng)作于2023年2月2.4.2For循環(huán)語句的執(zhí)行過程第5頁，課件共11頁，創(chuàng)作于2023年2月練一練針對for循環(huán)語句的語句格式，設(shè)置如下練習(xí)，指出下面程序中的錯誤:1、求1+2+3+4+5的和

s=0fori=1to5step1s=s+inextjprints2、在VB窗體界面上輸出1~10這10個自然數(shù)forI=1to10printij-i循環(huán)變量的名稱要相同。

For語句與Next語句必須成對出現(xiàn)，而且僅只步長為1時，才可以省略step1

第6頁，課件共11頁，創(chuàng)作于2023年2月3、求5+4+3+2+1的和s=0forI=5to1s=s+InextIprints4、求7+5+3+1的和：

S=0ForI=7to1Step2S=S+INextIPrintS當(dāng)初值小于終值時，步長為正數(shù)；當(dāng)初值大于終值時，步長為負(fù)數(shù)；補(bǔ)充：1、循環(huán)變量必須為數(shù)值型，

初值、終值：都是數(shù)值型，可以是數(shù)值表達(dá)式。2、循環(huán)體：在For語句和Next語句之間的語句序列?？梢允且粭l語句，也可以是多條語句。Step－1－2第7頁，課件共11頁，創(chuàng)作于2023年2月問題2求S=1+2+……+100和值分析

a、用循環(huán)產(chǎn)生1～100的自然數(shù)

b、每產(chǎn)生一個自然數(shù)將其累加到求和變量中

即：S=S+N

c、重復(fù)執(zhí)行S=S+N

即：循環(huán)體

d、打印和的值的語句應(yīng)在程序的末尾

即：Print"S=1+2+……+100=";S

程序：PrivateSubCommand1_Click()

DimNasinteger,Sasinteger

S=0

ForN=1To100

S=S+N

NextN

Print"S=1+2+……+100=";S

EndSub

第8頁，課件共11頁，創(chuàng)作于2023年2月P53問題（2）：

分析：

設(shè)i表示樓內(nèi)的10戶居民

d為用電量

m表示應(yīng)繳電費PrivateSubCommand1_Click()DimIAsInteger,d,mAsSingleForI=1To10d=InputBox("請輸入用電")m=0.7*dPrint"電費為:";m