VB語言畫圓程序設(shè)計公開課一等獎省優(yōu)質(zhì)課大賽獲獎?wù)n件

VB語言畫圓程序設(shè)計1由圓組成標(biāo)志：2Circle(x,y),r畫圓語句格式PrivateSubForm_Click()

Circle(2500,),1000

EndSub圓心位置半徑大小3圓心與半徑·圓心(2500,)XYO·····1000300040005000·····400010003000PrivateSubForm_Click()

Circle(2500,),1000

EndSub程序:運行結(jié)果:半徑1000Circle(x,y),r格式:4實踐任務(wù)一(參考學(xué)案要求)2、編寫程序,畫以下指定圓心（，1500）圓:PrivateSubForm_Click()

Circle(,1500),800EndSub1、開啟VB程序，新建工程文件，調(diào)整“窗體窗口”到適當(dāng)大??；將“Load”事件過程修改為“Click”事件過程。5實踐任務(wù)二(參考學(xué)案要求)2、修改四個圓圓心，體會圓位置改變。PrivateSubForm_Click()

Circle(,1500),800Circle(3000,2500),1000……EndSub1、用復(fù)制、粘貼方法，畫出四個圓。6RGB(a,b,c)顏色參數(shù)設(shè)置①RGB顏色參數(shù)格式：RGB（a,b,c)

a,b,c值為：0-255RGB（0，0，0）表黑色RGB（255，0，0）表紅色RGB（0，255，0）表綠色RGB（0，0，255）表藍(lán)色RGB（255，255，255）表明色……了解更多顏色,請看學(xué)案。三基色圖黃7畫圓語句展現(xiàn)顏色方法PrivateSubForm_Click()

Circle(2500,),1000,RGB(255,0,0)

Circle(5000,4000),1000,RGB(0,255,0)

Circle(5500,3000),1000,RGB(0,0,255)EndSub畫紅圓畫綠圓畫藍(lán)圓8實踐任務(wù)三

(參考學(xué)案要求)1、給剛才畫四個圓加上RGB顏色參數(shù)，顯示不一樣顏色；2、改變RGB顏色參數(shù)，看一看相對應(yīng)圓是否改變顏色.9實踐任務(wù)四(參考學(xué)案要求)1、基本任務(wù):

設(shè)計由若干個彩圓組成有規(guī)律或創(chuàng)意圖案;2、探索性任務(wù)(選做):

有能力同學(xué)，依據(jù)學(xué)習(xí)資料提醒，可嘗試畫“奧運五環(huán)”等更有創(chuàng)意或復(fù)雜圖案。10Circle(,2500),1000Circle(4500,2500),1000Circle(7000,2500),1000Circle(3250,3500),1000Circle(5750,3500),100011Inputbox函數(shù)

r=inputbox(“請輸入圓半徑：”，“輸入圓半徑”）其作用是顯示一個提醒輸入圓半徑對話框，并把用戶所輸入圓半徑值賦給左邊變量r。12小結(jié)圓心和半徑是控制圓位置和大小關(guān)鍵;書寫程序要嚴(yán)格按照語法規(guī)則進(jìn)行;13直線粗細(xì)改變PrivateSubForm_Load()

Picture1.AutoRedraw=True

Picture1.DrawWidth=1

Picture1.Line(0,0)-(100,500),vbRed

Picture1.DrawWidth=5

Picture1.Line-(100