第十六課-畫100個(gè)同心圓

1、第十六課 畫100個(gè)同心圓教學(xué)目標(biāo)1、讓學(xué)生體會(huì)并理解循環(huán)結(jié)構(gòu)解決問題的基本思想2、讓學(xué)生初步掌握畫圓語句的使用方法3、掌握循環(huán)語句的用法重點(diǎn)1、讓學(xué)生體會(huì)并理解循環(huán)結(jié)構(gòu)解決問題的基本思想2、讓學(xué)生初步掌握畫圓語句的使用方法難點(diǎn)讓學(xué)生體會(huì)并理解循環(huán)結(jié)構(gòu)解決問題的基本思想教學(xué)過程一、引入 前面，我們所學(xué)的內(nèi)容都是預(yù)先設(shè)定好控件，然后修改控件的屬性，本節(jié)課我們來換一個(gè)編程的方法，我們?cè)诔绦蛑胁挥每丶M(jìn)行編程。二、新課：畫一個(gè)紅色的圓 現(xiàn)在，我們來在窗體上畫一個(gè)紅色的圓：首先，我們來學(xué)習(xí)一下畫圓的語句： Circle (圓心橫坐標(biāo)，圓心縱坐標(biāo))，半徑，顏色。 例：Circle (1000,1000)

2、,100,vbRed就可以在窗體上畫一個(gè)紅色的圓，這個(gè)圓的圓心在1000,1000，圓的半徑為100。 擴(kuò)展：畫一個(gè)隨機(jī)顏色圓： Circle (1000,1000),100,RGB(Rnd * 255, Rnd * 255, Rnd * 255)。 這樣就可以畫一個(gè)隨機(jī)地方，隨機(jī)大小，隨機(jī)顏色的圓。三、學(xué)生模仿練習(xí)：完成在窗體中畫圓的程序。四、學(xué)生探究練習(xí)二：在屏幕中央畫十個(gè)隨機(jī)顏色的同心圓(每個(gè)圓都比它內(nèi)部的圓的半徑大30)。五、學(xué)生探究練習(xí)三：在屏幕中央畫一百個(gè)隨機(jī)顏色的同心圓(每個(gè)圓都比它內(nèi)部的圓的半徑大30)。六、新課：1、如果定位在屏幕中央 不少同學(xué)用的方法是先找到窗體的Heigh

3、t和Width屬性，然后除以2得到窗體的中心點(diǎn)，然后畫圓。但這種方法并不科學(xué)，而且如果我把窗體最大化了以后，你所定的點(diǎn)就已經(jīng)不再是中心點(diǎn)了。 其實(shí)在VB中定位在屏幕中間非常簡單，而且大家所用的方法也是正確的，只不過大家只是絕對(duì)地定位在當(dāng)前窗體的中心點(diǎn)而不是相對(duì)的中心點(diǎn)，因此，我們可以用同樣的方法來定位相對(duì)中心點(diǎn)的：Form1.Height/2,Form1.Width/2。這樣，無論窗體怎么變，都可以定位在窗體的中間了。2、如何畫圓 其實(shí)大家會(huì)發(fā)現(xiàn)，在畫同心圓的時(shí)候，其實(shí)語句是大致相同的，只是半徑有規(guī)律地增加而已。而且如果同心圓一多，就非常麻煩了。如何才能簡單地實(shí)現(xiàn)這種重復(fù)而又繁復(fù)的工作呢？我們

4、可以使用循環(huán)語句：ForNext語句，格式： For 變量=初值 to 終值 step 步長 循環(huán)體 Next 循環(huán)語句的運(yùn)行過程如右圖：、把初值賦值給循環(huán)變量、判斷循環(huán)變量是超過終值，如果超過則執(zhí)行第步，否則執(zhí)行第步、執(zhí)行循環(huán)體、循環(huán)變量加上步長再賦值給循環(huán)變量、重復(fù)執(zhí)行第步、離開循環(huán)，繼續(xù)執(zhí)行循環(huán)語句后面的語句注意：循環(huán)變量是否超過終值的意思有兩種，如果步長為正數(shù)，則超過的意思為大于；如果步長為負(fù)數(shù)，則超過的意思是小于。注意：步長的值可以是正數(shù)，也可以是負(fù)數(shù)，如果步長為1，則可以省略不寫。例：For i=1 to 100 Circle (Form1.Height/2,Form1.Width/2),i*30,RGB(Rnd * 255, Rnd * 255, Rnd * 255)Next這樣就可以畫100個(gè)隨機(jī)顏色的同心圓了。七、學(xué)