VB循環(huán)語(yǔ)句課件

高一信息技術(shù)VB循環(huán)語(yǔ)句

——for語(yǔ)句VB循環(huán)語(yǔ)句例：編寫(xiě)VB程序，計(jì)算整數(shù)1+2+3……+10的值DimsasintegerPrintsS=1+2+3+4+5+6+7+8+9+10S=0S=s+1S=s+2S=s+3S=s+4S=s+5S=s+6S=s+7S=s+8S=s+9S=s+10VB循環(huán)語(yǔ)句PrivateSubCommand1_Click()Dims,iAsIntegers=0Fori=1To10Step1s=s+iNextiPrintsEndSubVB循環(huán)語(yǔ)句Fori=1To10Step1s=s+iNextiFor

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

to

終值

step

步長(zhǎng)

語(yǔ)句塊nextVB循環(huán)語(yǔ)句Fori=1To10Step1s=s+iNextiFor

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

to

終值

step

步長(zhǎng)

語(yǔ)句塊next1、For語(yǔ)句中步長(zhǎng)值可以是正數(shù)，也可以是負(fù)數(shù)，但不可以是0。2、但步長(zhǎng)值為1時(shí)，可省略，即可省略“step1”。3、一段for循環(huán)語(yǔ)句中for和next必定是成對(duì)出現(xiàn)的。VB循環(huán)語(yǔ)句1、在VB窗體界面上輸出1~10這10個(gè)自然數(shù)Fori=1to10printinextiVB循環(huán)語(yǔ)句2、求5+4+3+2+1和s=0forI=5to1s=s+InextIprintsstep-1VB循環(huán)語(yǔ)句3、求1+2+3+4+5的和s=0fori=1to5step1s=s+inextjprintsiVB循環(huán)語(yǔ)句4、求7+5+3+1的和：S=0ForI=7to1Step2S=S+INextIPrintS-2VB循環(huán)語(yǔ)句用for循環(huán)語(yǔ)句編程求1+1/2+1/3+……+1/99的和For

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

to

終值

step

步長(zhǎng)

語(yǔ)句塊nextDims,iAssingles=0Fori=1To1/99Step1s=s+iNextiPrints,k99k=1/is=s+kVB循環(huán)語(yǔ)句用for循環(huán)語(yǔ)句編程求1/2+2/3+3/4……+98/99的和答案：93.82265VB循環(huán)語(yǔ)句

阿基米德與國(guó)王下棋，國(guó)王輸了，國(guó)王問(wèn)阿基米德要什么獎(jiǎng)賞？阿基米德對(duì)國(guó)王說(shuō)：我只要在棋盤(pán)上第一格放一粒米，第二格放二粒，第三格放四粒，第四格放八粒???按這個(gè)比例放滿整個(gè)棋盤(pán)64個(gè)格子就行。國(guó)王以為要不了多少糧食，可一個(gè)糧倉(cāng)的米還擺不完一半的棋格子，全部擺滿后，你知道國(guó)王究竟付出了多少米嗎？米的總粒數(shù)S=2^0+2^1+2^2+……+2^63第N格放的米粒數(shù)量k=2^n實(shí)際應(yīng)用VB循環(huán)語(yǔ)句1．有如下VB程序段：s＝0Fori＝________To5s＝s＋iNexti該程序段運(yùn)行后，循環(huán)體s＝s＋i被執(zhí)行10次，則循環(huán)變量i的初值是(

)A．14 B．－5C．1 D．－4【答案】

DVB循環(huán)語(yǔ)句2．有如下循環(huán)結(jié)構(gòu)VB程序段s＝16Fori＝1To10Step________

s＝s/2Nexti程序執(zhí)行后，s的值為1，則循環(huán)語(yǔ)句的步長(zhǎng)應(yīng)為(

)A．1 B．2 C．3 D．4【答案】

CVB循環(huán)語(yǔ)句3．PrivateSubForm_Click()Forx＝1To2a＝0Fory＝1Tox＋1a＝a＋1NextyPrinta；NextxEndsub該程序的輸出結(jié)果是(

)A．1

1 B．0

0C．1

2 D．2

3【答案】

DVB循環(huán)語(yǔ)句4．下列VB程序運(yùn)行時(shí)，單擊命令按鈕Command1后，文本框Text1中顯示的內(nèi)容是____________________。PrivateSubCommand1_Click()Dima(1To10)AsInteger,iAsInteger,sAsIntegera(1)＝1:a(2)＝1Fori＝3To10