第六節 圣誕賀卡,粵教版 八年級下,粵教版初中信息技術,課件,新知導入,節日里，我們經常用賀卡送朋友、老師、家人；那么，能不能利用VB來制作一個漂亮的賀卡呢？,新知講解,一、分析圣誕彩燈的制作方法,1、彩燈顏色的變換,計算機中，每種顏色都是由紅（R）、綠（G）、藍（B）三種基本顏色按不同的比例生成的。VB中使用RGB函數來設置顏色。格式為： RGB（紅色值，綠色值，藍色值） 每種顏色值的取值范圍：0255。,新知講解,2、多只彩燈的控制,添加Shape控件，屬性設置為3-Circle作為第一個彩燈； 添加Timer控件，周期性重復執行12只彩燈的變色，使顏色不停變換。,新知講解,二、For循環語句,假設打印數字1、2、3.10，每個數字占一行，順序執行10條print語句。,新知講解,若將10改為100，,1000呢？該怎么編寫？VB中用For循環語句專門做重復的工作。,新知講解,for循環語句的格式如下： For循環變量=初值 To 終值 Step 步長值 語句組 Next 初值、終值、步長值均為數值型。 步長值：循環變量每次的增量，可為負數,新知講解,（1）將循環變量賦初值 （2）比較循環變量是否大于終值。如大于，退出Next后面語句，如小于等于，運行一次循環體的語句。 （3）遇到Next語句，循環變量增加步長值，轉步驟（2）繼續循環。,循環變量=初值,循環變量超過終值,語句組,循環變量增加一個步長值,是,否,新知講解,（1）試用For循環編寫計算1+2+3+.100,代碼： Private Sub Form_Click() For i = 1 To 100 s = s + i Next i End Sub,新知講解,（2）結合For語句的執行過程，說說當步長值為負數時，For循環的執行過程。,如： For i=20 to 0 Step -2 循環體 Next i 說明從20到0，以步長為-2，循環10次,新知講解,三、用循環結構優化彩燈控制,12只彩燈，都是重復性的工作，可用循環結構描述。,j=0,j11?,隨機設置第i只燈的顏色,j=j+1,是,否,（1）對循環變量j賦初值。 （2）比較j是否大于11。如大于，退出Next后面語句，如小于等于，運行一次循環體的語句，將j個彩燈變換顏色。,新知講解,（1）閱讀圖2-38“圣誕賀卡”代碼編輯窗口，將彩燈增加到15個，下列代碼如何修改？ 改：For j=0 to 16 step 1,新知講解,（2）程序輸入完畢后，按F8鍵逐步語句執行程序，將鼠標指向循環體中變量j，稍停片刻，就會顯示變量j的當前值。通過此方式，監視循環變量j的變化，并將結果填入表中。,新知講解,（1）設計一個M*N的方格，要求每個格子能隨機變換顏色，如圖：,新知講解,（2）執行下面代碼，變量s的值是：______,新知講解,重復循環除了For語句，還可以用Do循環語句,格式： Do While 循環體 Loop,循環條件滿足嗎？,循環體,否,是,課后習題,1、For.Next循環結構中（ C）用來控制變量. A.for B. step C. next D. to,2、For.Next循環結構中step用來控制（D） A.循環變量 B.循環變量初值 C.循環變量終值 D.T循環變量增量,課后習題,3、For.Next循環結構中循環變量初值大于終值時，步長為（A）。 A、負數 B、非負數 C、正整數 D、正數,課堂總結,1、for循環語句的格式如下： For循環變量=初值 To 終值 Step 步長值 語句組 Next 初值、終值、步長值均為數值型。 步長值：循環變量每次的增量，可為負數 2、RGB（紅色值，綠色值，藍色值） 每種顏色值的取值范圍：0255。,板書設計,一、分析圣誕彩燈的制作方法。 二、For循環語句。 三、用循環結構優化彩燈控制