高中信息技術 2.4 程序的循環(huán)結構課件 粵教版選修1.ppt

《高中信息技術 2.4 程序的循環(huán)結構課件 粵教版選修1.ppt》由會員分享，可在線閱讀，更多相關《高中信息技術 2.4 程序的循環(huán)結構課件 粵教版選修1.ppt（14頁珍藏版）》請在裝配圖網上搜索。

2.4 程序的循環(huán)結構,袁隆平 Yuan Longping (1930.9.7 -) 出生于北平，1953年畢業(yè)于西南農學院。1964年開始研究雜交水稻，1973年實現三系配套，1974年育成第一個雜交水稻強優(yōu)組合南優(yōu)2號，1975年研制成功雜交水稻制種技術，從而為大面積推廣雜交水稻奠定了基礎。1985年提出雜交水稻育種的戰(zhàn)略設想，為雜交水稻的進一步發(fā)展指明了方向。1987年任863計劃兩系雜交稻專題的責任專家，1995年研制成功兩系雜交水稻，1997年提出超級雜交稻育種技術路線，2000年實現了農業(yè)部制定的中國超級稻育種的第一期目標，2004年提前一年實現了超級稻第二期目標。1995年當選為中國工程院院士。先后獲得“國家特等發(fā)明獎”、“首屆最高科學技術獎”等多項國內獎項和聯合國“科學獎”、“沃爾夫獎”、“世界糧食獎”等11項國際大獎。出版中、英文專著6部，發(fā)表論文60余篇。,已知某個因素M種水平5次試驗的畝產量如下表所示，求各種水平影響下的平均畝產量。,某個因素M種水平5次試驗的畝產量（單位：千克）,1、分析問題,求各種水平影響下5次試驗的平均畝產量，實際上就是一個簡單重復求5次試驗的平均畝產量問題。5次試驗的平均畝產量可為 Average=(Crop1+Crop2Crop3+Crop4+Crop5)/5 所以，只要輸入水平數M，重復計算M次就可以了。,2、設計算法,輸入水平數M。,對于每一個I(I=1,2,3M)做如下第步 輸入第一次實驗的畝產量Crop1. 輸入第二次實驗的畝產量Crop2. 輸入第三次實驗的畝產量Crop3. 輸入第四次實驗的畝產量Crop4. 輸入第五次實驗的畝產量Crop5.,計算Average=(Crop1+Crop2+Crop3+Crop4+Crop5)/5的值。,輸出水平數I的平均畝產量Average。,結束,循環(huán)結構：根據條件判斷是否成立，如果條件成立則重復執(zhí)行循環(huán)結構中某語句序列功能，直到條件不成立，退出循環(huán)結構為止。,循環(huán)的本質：不斷地重復某種動作,在VB語言中，用于循環(huán)結構程序設計的語句有For循環(huán)語句和Do循環(huán)語句。,For循環(huán)語句主要用于描述預先知道循環(huán)次數的循環(huán)結構，是一種計數循環(huán)；Do循環(huán)語句是根據條件是否滿足而決定循環(huán)是否繼續(xù)進行。,1、 循環(huán)語句格式 For 循環(huán)變量=初值 To 終值 step 步長 語句組 next 循環(huán)變量,For循環(huán)語句,（1）循環(huán)變量為數值型變量。 （2）初值、終值、步長均為數值表達式。 （3）當初值小于終值時，步長應為正數；當初值大于終值時，步長應為負數；如果省略Step，則步長為1。 （4）語句組可以是一個或者多個語句，又稱作循環(huán)體。 （5）循環(huán)體執(zhí)行的次數為（終值初值）/步長1的整數部分。,Private Sub Command1_Click(),M = InputBox(“請輸入水平數M：“),For I = 1 To M,Crop1 = Val(InputBox(“請輸入第一次實驗的畝產量：“) Crop2 = Val(InputBox(“請輸入第二次實驗的畝產量：“) Crop3 = Val(InputBox(“請輸入第三次實驗的畝產量：“) Crop4 = Val(InputBox(“請輸入第四次實驗的畝產量：“) Crop5 = Val(InputBox(“請輸入第五次實驗的畝產量：“),Average = (Crop1 + Crop2 + Crop3 + Crop4 + Crop5) / 5,Print “水平“; I; “ 的平均畝產量Average=“; Average,Next I,End Sub,2、For循環(huán)語句的執(zhí)行過程,For,Next,Do循環(huán)語句,1、Do循環(huán)語句的基本格式 Do 循環(huán)體 Loop Until 循環(huán)終止條件,其中：循環(huán)體是一組VB語句；循環(huán)終止條件是一個邏輯表達式。,2、Do語句的執(zhí)行過程,練習：用Do循環(huán)語句設計求“100以內能被3整除的所有正整數”的VB程序。,Private Sub Command1_Click( ),i=1,Do,If i Mod 3 = 0 Then Print i,i=i+1,Loop Until i100,End Sub,實踐： P52、,For _To _,Sum = 0 For i = 1 To 100 Sum = Sum + i Next i Print “sum=“; Sum,