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

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

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

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

To<終值>

[Step<步長>]

[循環(huán)體]

[ExitFor]

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

I=2To10Step2t=t+IPrinttNext

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

S=S+INextIForI=100to1Step-1

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

To10

Step2

…NextXForX=10

To2

Step-2

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

(配對原則)

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

ForJ=1To9

PrintI,J

NextJ

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

ForJ=1To9

PrintI,J

NextI

NextJ循環(huán)的嵌套12／9任務7棋盤上的麥粒數(shù)第5章目錄Mcs=5ForI=1ToMcsMcs=Mcs+1printI，McsNextI當循環(huán)終值是一個變量時，在循環(huán)第一次運行時取走變量中的值后，此變量中的值就不再影響循環(huán)。在循環(huán)體內(nèi),循環(huán)變量可多次引用；但建議不要對其賦值，否則將會導致死循環(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閱讀程序，寫出運行結(jié)果14／9任務7棋盤上的麥粒數(shù)1、While循環(huán)：（循環(huán)執(zhí)行的次數(shù)不確定，但循環(huán)結(jié)束條件知道時使用。）按指定條件重復執(zhí)行循環(huán)體。語法格式為：第5章目錄While

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

歸納區(qū)別如下：pk2、step（步長）來實現(xiàn)對循環(huán)變量的控制和變化1、循環(huán)次數(shù)未知的情況“當型循環(huán)”2、單獨列出一個語句來表示循環(huán)變量的變化，從而實現(xiàn)對循環(huán)變量的控制1、循環(huán)次數(shù)已知的情況VisualBasic6.0程序設計本節(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="