VB(2.7)棋盤(pán)上的麥粒數(shù)

VisualBasic6.0程序設(shè)計(jì)第2章VisualBasic編程語(yǔ)言————任務(wù)7棋盤(pán)上的麥粒數(shù)2／9第5章目錄任務(wù)7棋盤(pán)上的麥粒數(shù)【知識(shí)回顧】例：評(píng)定成績(jī)等級(jí)90~100：“優(yōu)”80~89：“良”70~79：“中”60~69：“及格”60分以下為“不及格”3／9第5章目錄任務(wù)7棋盤(pán)上的麥粒數(shù)【知識(shí)點(diǎn)】For循環(huán)While循環(huán)4／9第5章目錄用輸入框輸入10個(gè)數(shù)字，并用Print方法輸出A=Val(InputBox("輸入第1個(gè)數(shù)"))B=Val(InputBox("輸入第2個(gè)數(shù)"))C=Val(InputBox("輸入第3個(gè)數(shù)"))D=Val(InputBox("輸入第4個(gè)數(shù)"))E=Val(InputBox("輸入第5個(gè)數(shù)"))……PrintAPrintBPrintCPrintDPrintE……ForI=1To5A=Val(InputBox("輸入10個(gè)數(shù)"))PrintANextI5／9第5章目錄一般循環(huán)結(jié)構(gòu)流程圖(1)進(jìn)入循環(huán)條件是什么？(2)循環(huán)體的算法是什么？(3)結(jié)束循環(huán)條件是什么？本節(jié)討論VB的兩種循環(huán)語(yǔ)句：計(jì)數(shù)循環(huán)語(yǔ)句

For-Next條件循環(huán)語(yǔ)句

While-Wend6／9任務(wù)7棋盤(pán)上的麥粒數(shù)1、For循環(huán)：(一般用于循環(huán)次數(shù)已知)按確定的次數(shù)執(zhí)行循環(huán)體。語(yǔ)法格式為：第5章目錄For<循環(huán)變量>=<初值>

To<終值>

[Step<步長(zhǎng)>]

[循環(huán)體]

[ExitFor]

Next[循環(huán)變量]7／9任務(wù)7棋盤(pán)上的麥粒數(shù)第5章目錄t=0For

I=2To10Step2t=t+IPrinttNext

II:循環(huán)變量2:初值10:終值2:步長(zhǎng)循環(huán)體I=I+2TFI>10?結(jié)束循環(huán)變量I的取值分別為:2,4,6,8,10完成t=2,6,12,20,30的計(jì)算8／9任務(wù)7棋盤(pán)上的麥粒數(shù)第5章目錄循環(huán)變量必須為數(shù)值型。循環(huán)次數(shù)步長(zhǎng)ExitFor:強(qiáng)制退出循環(huán)>0初值<終值(Step1可省略)<0初值>終值=0死循環(huán)ForI=1to100

S=S+INextIForI=100to1Step-1

S=S+INextI9／9任務(wù)7棋盤(pán)上的麥粒數(shù)第5章目錄PrivateSubForm_click()DimsAsSingle,iAsIntegern=Val(InputBox("請(qǐng)輸入n","提示"))s=0Fori=1TonStep1s=s+INextiPrint"1到";n;"之和為：";sEndSub10／9第5章目錄For-Next的流程圖—閱讀Nx=初值x>終值?循環(huán)體x=x+步長(zhǎng)Y開(kāi)始結(jié)束Nx=初值x<終值?循環(huán)體x=x+步長(zhǎng)Y開(kāi)始結(jié)束當(dāng)步長(zhǎng)＞0時(shí)當(dāng)步長(zhǎng)<0時(shí)ForX=1

To10

Step2

…NextXForX=10

To2

Step-2

…NextX11／9第5章目錄For-Next:必須成對(duì)出現(xiàn)，缺一不可。

(配對(duì)原則)

可以嵌套使用，但內(nèi)、外循環(huán)的變量不能同名，不能交叉'正確的循環(huán)嵌套ForI=1To9

ForJ=1To9

PrintI,J

NextJ

NextI'錯(cuò)誤的循環(huán)嵌套ForI=1To9

ForJ=1To9

PrintI,J

NextI

NextJ循環(huán)的嵌套12／9任務(wù)7棋盤(pán)上的麥粒數(shù)第5章目錄Mcs=5ForI=1ToMcsMcs=Mcs+1printI，McsNextI當(dāng)循環(huán)終值是一個(gè)變量時(shí)，在循環(huán)第一次運(yùn)行時(shí)取走變量中的值后，此變量中的值就不再影響循環(huán)。在循環(huán)體內(nèi),循環(huán)變量可多次引用；但建議不要對(duì)其賦值，否則將會(huì)導(dǎo)致死循環(huán)。表示:I=1To5若增:I=I-1,則出現(xiàn)死循環(huán)13／9第5章目錄PrivateSubCommand1_Click()s=0Fork=1To3Ifk<=1Thenx=1ElseIfk<=2Thenx=2ElseIfk<=3Thenx=3Elsex=4EndIf

Printxs=s+xNextkPrintsEndSub閱讀程序，寫(xiě)出運(yùn)行結(jié)果14／9任務(wù)7棋盤(pán)上的麥粒數(shù)1、While循環(huán)：（循環(huán)執(zhí)行的次數(shù)不確定，但循環(huán)結(jié)束條件知道時(shí)使用。）按指定條件重復(fù)執(zhí)行循環(huán)體。語(yǔ)法格式為：第5章目錄While

<條件>循環(huán)體Wend開(kāi)始條件判斷循環(huán)體（包含循環(huán)變量的變化）結(jié)束成立不成立15／9任務(wù)7棋盤(pán)上的麥粒數(shù)第5章目錄例1：求1+2+3+……+20=？代碼如下：s=0i=1Whilei<=20s=s+ii=i+1WendText1=s流程圖：條件循環(huán)體開(kāi)始i<=20s=s+i結(jié)束成立不成立i=i+116／9第5章目錄For循環(huán)語(yǔ)句：While循環(huán)語(yǔ)句：代碼：代碼：??17／9任務(wù)7棋盤(pán)上的麥粒數(shù)第5章目錄求1+2+3+……+100=？For循環(huán)語(yǔ)句：While循環(huán)語(yǔ)句：代碼：代碼：s=0Fori=1To100Step1s=s+iNextiText1=ss=0i=1Whilei<=100s=s+ii=i+1WendText1=s18／9任務(wù)7棋盤(pán)上的麥粒數(shù)第5章目錄1+2+3+……+X>100,求X的最小值？For循環(huán)語(yǔ)句：While循環(huán)語(yǔ)句：代碼：代碼：Whiles<=100x=x+1s=s+xWendText1=x?。?！無(wú)法實(shí)現(xiàn)功能19／9第5章目錄For循環(huán)語(yǔ)句：While循環(huán)語(yǔ)句：

歸納區(qū)別如下：pk2、step（步長(zhǎng)）來(lái)實(shí)現(xiàn)對(duì)循環(huán)變量的控制和變化1、循環(huán)次數(shù)未知的情況“當(dāng)型循環(huán)”2、單獨(dú)列出一個(gè)語(yǔ)句來(lái)表示循環(huán)變量的變化，從而實(shí)現(xiàn)對(duì)循環(huán)變量的控制1、循環(huán)次數(shù)已知的情況VisualBasic6.0程序設(shè)計(jì)本節(jié)內(nèi)容結(jié)束謝謝Ifmark>=90then Label1.Text="優(yōu)"ElseIfmark>=80Then

Label1.Text=

"良"ElseIfmark>=70Then

Label1.Text="中"ElseIfmark>=60Then

Label1.Text=

"及格"Else

Label1.Text="不及格"EndIf21／126SelectCasemark

Case90To100

Label1.Text="