VB程序設(shè)計(jì)圖形程序設(shè)計(jì)

會(huì)計(jì)學(xué)1VB程序設(shè)計(jì)圖形程序設(shè)計(jì)8.1知識(shí)要點(diǎn)1、圖形設(shè)計(jì)基礎(chǔ)（1）坐標(biāo)系統(tǒng)VisualBasic用坐標(biāo)來描述一個(gè)像素位于存放他的容器內(nèi)的位置。而每個(gè)容器都有自己的一個(gè)坐標(biāo)系，構(gòu)成一個(gè)坐標(biāo)系要包含三個(gè)基本要素，那就是：坐標(biāo)原點(diǎn)、坐標(biāo)度量單位和坐標(biāo)軸的長(zhǎng)度和方向。缺省情況下，坐標(biāo)系的坐標(biāo)原點(diǎn)在對(duì)象的左上角，橫向向右為X軸的正方向，縱向向下為Y軸的正方向。第1頁/共68頁用戶可以通過兩種方法來自行定義坐標(biāo)系。①通過修改ScaleTop、ScaleLeft、ScaleWidth和ScaleHeight的屬性值建立坐標(biāo)系。②使用Scale方法來設(shè)置坐標(biāo)系。Scale方法用于定義Form、PictureBox或Printer的坐標(biāo)系統(tǒng)，其語法格式為：[對(duì)象].Scale(x1,y1)-(x2,y2)其中：對(duì)象為可選項(xiàng)，它可以是Form、PictureBox或Printer對(duì)象。(x1,y1)為所定義坐標(biāo)系的左上角的坐標(biāo)。(x2,y2)為所定義坐標(biāo)系的右下角坐標(biāo)。第2頁/共68頁（2）圖形層VisualBasic在構(gòu)造圖形時(shí)，在三個(gè)不同的屏幕層次上放置可視的組成部分。工具箱中除了標(biāo)簽、直線、形狀外的控件放在最上層，標(biāo)簽、直線和形狀控件放在中間層，最下層放置的是由圖形方法所繪制的圖形。同一圖形層上控件對(duì)象的排列順序稱為Z-順序。調(diào)整Z-順序的方法有兩中：第3頁/共68頁①在窗體設(shè)計(jì)階段時(shí)，選中要調(diào)整的控件，單擊“格式”菜單，選擇“順序”菜單項(xiàng)，再選擇“置前”或“置后”命令即可。②代碼中使用Zorder方法。Zorder方法的語法格式為：[Object.]Zorder[position]其中：Object為要調(diào)整的窗體或其他控件對(duì)象。Position為一整數(shù)，用于指出一個(gè)控件相對(duì)于另一個(gè)控件的位置。如果Position為0或被省略，則Object位于Z-順序的前面；如果Position為1，則Object位于Z-順序的后面。第4頁/共68頁（3）顏色設(shè)置函數(shù)VisualBasic提供了兩個(gè)選擇顏色的函數(shù)RGB（）和QBColor（）。①RGB（）函數(shù)RGB（）函數(shù)通過紅、綠、藍(lán)三種基本色的混合來生成某種顏色，其語法格式為：

RGB（red,green,blue）其中，red、green和blue三個(gè)參數(shù)都是必要參數(shù)，分別表示紅、綠和藍(lán)色的顏色成分，它們的取值范圍都是0~255間的整數(shù)。第5頁/共68頁②QBColor（）函數(shù)QBColor（）函數(shù)能提供16中顏色，其語法格式為：

QBColor（color）其中，color為必要參數(shù)，是一個(gè)界于0~15間的整數(shù)，每個(gè)整數(shù)代表一種顏色。第6頁/共68頁2、圖形控件

VB提供了直線控件（Line）和形狀控件（Shape）兩種常用的圖形控件。用戶可以使用圖形控件方便地完成規(guī)則幾何圖形的繪制。（1）直線控件直線控件（Line）可以用來在窗體或圖片框上畫直線。分別用x1，y1和x2，y2來返回或控制線條起始點(diǎn)和終止點(diǎn)在X軸和Y軸方向上的位置。（2）形狀控件形狀控件（Shape）可以用來畫矩形、正方形、橢圓、圓、圓角矩形及圓角正方形，6種圖形分別對(duì)應(yīng)其Shape屬性的0~5的6個(gè)屬性值。第7頁/共68頁3、圖形方法

VB提供了繪制點(diǎn)、線、圓等方法，利用它們可以使繪制圖形更加靈活。（1）Line方法Line方法的基本功能是在窗體或圖片框上畫直線和矩形。此外，利用Line方法還可以繪制出各種曲線，因?yàn)槿魏吻€都可以近似地看成是由無數(shù)條小線段組成的。第8頁/共68頁Line方法的語法格式為：[對(duì)象.]Line[[Step](x1,y1)]-[Step](x2,y2)[,顏色][,B][F]其中：對(duì)象可以是窗體或圖片框，缺省為窗體。(x1,y1)和(x2,y2)分別表示線段的起始坐標(biāo)和終止坐標(biāo)。第9頁/共68頁（2）Circle方法Circle方法的基本功能是在窗體或圖片框上繪制圓、橢圓、弧或扇形。它的語法格式如下：[對(duì)象.]Circle[Step](x,y),radius[,color,start,end,aspect]其中：對(duì)象是調(diào)用Circle方法的對(duì)象名稱。(x,y)用來指定圓心坐標(biāo)。Radius表示半徑的長(zhǎng)度。Color為所畫圖形的顏色。start和end分別表示圓弧或橢圓弧的開始和終止角度。aspect是所畫圓的縱橫尺寸比。第10頁/共68頁（3）Pset與Point方法①Pset方法Pset方法的基本功能是在窗體或圖片框上繪制點(diǎn)。它的語法格式如下：[對(duì)象.]Pset[Step](x,y)[,color]其中：對(duì)象是調(diào)用Pset方法的對(duì)象名稱。(x,y)用來指定點(diǎn)的水平和垂直坐標(biāo)。

Color用來指定點(diǎn)的顏色。第11頁/共68頁②Point方法Point方法用來返回窗體或圖片框上指定位置的顏色值，用長(zhǎng)整型數(shù)據(jù)來表示。它的語法格式如下：[對(duì)象.]Point(x,y)其中：對(duì)象和(x,y)的用法和Pset方法相同。第12頁/共68頁③PaintPicture方法PaintPicture方法可以訪問內(nèi)置操作系統(tǒng)中的位塊傳送機(jī)制快速地操作像素，具體來說PaintPicture方法可以在窗體、圖片框或打印機(jī)上繪制文件的內(nèi)容（圖形文件的格式可以是“.bmp”、“.wmf”、“.emf”、“.cur”、“.ico”或“.dib”）。PaintPicture方法的語法格式如下：[對(duì)象.]PaintPicturepicture,x1,y1,width1,height1,x2,y2,width2,height2,opcode第13頁/共68頁其中：對(duì)象為調(diào)用該方法的對(duì)象名稱，通常是目標(biāo)圖形對(duì)象。picture為繪制到對(duì)象上的圖形源，可以是圖形框、圖像框或窗體的picture屬性。x1,y1指定在對(duì)象上繪制picture的目標(biāo)坐標(biāo)，即目標(biāo)矩形區(qū)域的左上角坐標(biāo)，它可以是目標(biāo)控件的任意位置。第14頁/共68頁width1,height1分別指定picture的目標(biāo)寬度和目標(biāo)高度。x2,y2指定picture內(nèi)剪貼區(qū)的位置，即傳送圖形矩形的左上角坐標(biāo)。width2,height2指定picture內(nèi)剪貼區(qū)的寬度和高度，從而確定傳送圖形的大小。第15頁/共68頁第8章圖形程序設(shè)計(jì)

8.1知識(shí)要點(diǎn)

8.2習(xí)題與解答

8.3實(shí)訓(xùn)指導(dǎo)

8.4測(cè)驗(yàn)題第16頁/共68頁8.2習(xí)題與解答1、描述VB缺省的坐標(biāo)系，用戶自定義坐標(biāo)系的方法有哪些？答案：缺省情況下，坐標(biāo)系的坐標(biāo)原點(diǎn)在對(duì)象的左上角，橫向向右為X軸的正方向，縱向向下為Y軸的正方向。用戶可以通過兩種方法來自行定義坐標(biāo)系。一種是通過修改ScaleTop、ScaleLeft、ScaleWidth和ScaleHeight的屬性值建立坐標(biāo)系；另一種是使用Scale方法來設(shè)置坐標(biāo)系。

第17頁/共68頁2、VB提供了幾個(gè)圖形控件？它們的功能分別是什么？

答案：VB提供了直線控件（Line）和形狀控件（Shape）兩種常用的圖形控件。分別用來在窗體或圖片框上畫直線和矩形、正方形、橢圓、圓、圓角矩形及圓角正方形第18頁/共68頁3、熟悉利用Line畫圖的方法，說出下面幾個(gè)語句的含義。（1）Form1.Line(1000,1000)-(3000,3000)（2）Form1.Line-(3000,3000),RGB(255,0,0)（3）Form1.LineStep(1000,1000)-(3000,3000)（4）Form1.Line(1000,1000)-(3000,3000),RGB(255,0,0),B（5）Form1.Line(1000,1000)-(3000,3000),RGB(255,0,0),BF答案：略（讀者可以自行上機(jī)驗(yàn)證）。第19頁/共68頁4、熟悉利用Circle畫圖的方法，說出下面幾個(gè)語句的含義（pi=3.1415926）。（1）Form1.CircleStep(2000,2000),1000,QBColor(1)（2）Form1.Circle(2000,2000),1000,,3*pi/2,pi/3（3）Form1.Circle(2000,2000),1000,,3*pi/2,,0.5（4）Form1.Circle(2000,2000),1000,QBColor(2),-3*pi/2,-pi答案：略（讀者可以自行上機(jī)驗(yàn)證）。第20頁/共68頁5、說出Pset方法和Point方法的基本功能和使用方法。

答案：Pset方法的基本功能是在窗體或圖片框上繪制點(diǎn)；Point方法用來返回窗體或圖片框上指定位置的顏色值，用長(zhǎng)整型數(shù)據(jù)來表示。（使用方法略）6、怎樣通過PaintPicture方法實(shí)現(xiàn)像素操作。答案：PaintPicture方法可以訪問內(nèi)置操作系統(tǒng)中的位塊傳送機(jī)制快速地操作像素。PaintPicture方法常常用來從一個(gè)窗體或圖片框控件中向另一個(gè)對(duì)象復(fù)制一個(gè)矩形區(qū)域的像素。

continue…第21頁/共68頁

在復(fù)制時(shí)，如果設(shè)置要傳送的圖形寬度位負(fù)數(shù)，則復(fù)制后的圖像水平翻轉(zhuǎn)；如果設(shè)置要傳送的圖形高度位負(fù)數(shù)，則復(fù)制后的圖像上下翻轉(zhuǎn)；設(shè)置要傳送的圖形寬度和高度均為位負(fù)數(shù)，則復(fù)制后的圖像在兩個(gè)方向上翻轉(zhuǎn)。目標(biāo)圖形的大小，可以通過目標(biāo)圖形與源圖像大小的比例而得，即如果目標(biāo)圖形比源圖形大，就可得到放大的圖形。第22頁/共68頁第8章圖形程序設(shè)計(jì)

8.1知識(shí)要點(diǎn)

8.2習(xí)題與解答

8.3實(shí)訓(xùn)指導(dǎo)

8.4測(cè)驗(yàn)題第23頁/共68頁8.3實(shí)訓(xùn)指導(dǎo)8.3.1技能訓(xùn)練目的☆掌握建立用戶自定義坐標(biāo)系的方法?！钫莆罩本€和形狀控件的使用方法?！钫莆绽肔ine方法在窗體或圖片框上畫直線和矩形的技巧?！钫莆绽肅ircle方法在窗體或圖片框上繪制圓、橢圓或弧等圖形的技巧?！钫莆绽肞set與Point方法對(duì)點(diǎn)操作的方法。☆掌握利用PaintPicture方法實(shí)現(xiàn)像素操作的方法。第24頁/共68頁8.3.2技能訓(xùn)練內(nèi)容【實(shí)訓(xùn)8.1】利用直線和形狀控件模擬兩個(gè)小球相撞過程。程序運(yùn)行白球和黑球分別向右和左運(yùn)動(dòng)，當(dāng)兩球相撞后，分別向相反方向運(yùn)動(dòng)，如圖8-1所示。提示：在窗體上添加直線控件（Line1）、圖形控件（Shape1）、圖形控件（Shape2）、時(shí)鐘控件（timer1）和時(shí)鐘控件（timer2）。Line1的BorderWidth屬性設(shè)置為2，Shape1的FillColor和BorderColor屬性設(shè)置為黑色，Shape1的FillColor和BorderColor屬性設(shè)置為白色，timer1和timer2的Interval屬性設(shè)置為100。第25頁/共68頁圖8-1第26頁/共68頁參考代碼：'兩個(gè)小球相向而行PrivateSubTimer1_Timer()IfShape1.Left>Shape2.Left+Shape2.Width+400ThenShape1.Left=Shape1.Left-200Shape2.Left=Shape2.Left+200ElseTimer2.Enabled=TrueTimer1.Enabled=FalseEndIfEndSub'兩個(gè)小球背向而行PrivateSubTimer2_Timer()Shape1.Left=Shape1.Left+200Shape2.Left=Shape2.Left-200EndSub第27頁/共68頁【實(shí)訓(xùn)8.2】在窗體上畫出從同一起點(diǎn)出發(fā)的100條長(zhǎng)度不等的射線，如圖8-2所示。圖8-2第28頁/共68頁參考代碼：PrivateSubForm_Click()DimiAsIntegerForm1.ClsFori=1To100RandomizeCurrentX=Rnd()*Form1.ScaleWidthCurrentY=Rnd()*Form1.ScaleHeightForm1.Line-(0,0)NextiEndSub第29頁/共68頁【實(shí)訓(xùn)8.3】在窗體上畫出螺旋線，如圖8-3所示。圖8-3第30頁/共68頁參考代碼：PrivateSubForm_Paint()Dimpiassinglepi=4*Atn(1)Form1.Scale(-60,60)-(60,-60)Form1.Line(0,60)-(0,-60)Form1.Line(-60,0)-(60,0)Form1.Circle(0,0),5,,pi,2*piForm1.Circle(-3,0),8,,0,piForm1.Circle(0,0),11,,pi,2*piForm1.Circle(-3,0),14,,0,piForm1.Circle(0,0),17,,pi,2*piForm1.Circle(-3,0),20,,0,piForm1.Circle(0,0),23,,pi,2*piForm1.Circle(-3,0),26,,0,piForm1.Circle(0,0),29,,pi,2*piEndSub第31頁/共68頁【實(shí)訓(xùn)8.4】窗體上兩個(gè)按鈕的功能分別是在圖片框里畫出同心圓和同心矩形，如圖8-4和圖8-5所示。提示：在窗體上添加圖片框（picture1）、兩個(gè)命令按鈕（command1和command2），命令按鈕的Caption屬性分別設(shè)置為“同心圓”和“同心矩形”。第32頁/共68頁圖8-4圖8-5第33頁/共68頁參考代碼：'畫同心圓PrivateSubCommand1_Click()Form1.Caption="同心圓"Picture1.ClsPicture1.Scale(-100,100)-(100,-100)r=10Fori=1To10Picture1.Circle(0,0),r+5*iNextiEndSub'畫同心矩形PrivateSubCommand2_Click()Form1.Caption="同心矩形"Picture1.ClsPicture1.Scale(-100,100)-(100,-100)r=10Fori=1To10r=r+5*iPicture1.Line(r+5,r)-(-r-5,-r),,BNextiEndSub第34頁/共68頁【實(shí)訓(xùn)8.5】分別利用點(diǎn)和小線段模擬y=(sin(x)+cos(2x))/2數(shù)學(xué)函數(shù)曲線，如圖8-6所示。圖8-6第35頁/共68頁參考代碼：1、利用點(diǎn)實(shí)現(xiàn)PrivateSubForm_Paint()DimiAsSingle,piAsDoublepi=4*Atn(1)Form1.Scale(-2*pi,1)-(2*pi,-1)Form1.Line(-2*pi,0)-(2*pi,0)Form1.Line(0,1)-(0,-1)Fori=-2*piTo2*piStep0.01Form1.PSet(i,(Sin(i)+Cos(2*i))/2)NextiEndSub第36頁/共68頁2、利用小線段實(shí)現(xiàn)PrivateSubForm_Paint()DimiAsSingle,piAsDoublepi=4*Atn(1)'計(jì)算圓周率Form1.Scale(-2*pi,1)-(2*pi,-1)'建立新坐標(biāo)系Form1.Line(-2*pi,0)-(2*pi,0)'繪制x軸Form1.Line(0,1)-(0,-1)'繪制y軸CurrentX=-2*piCurrentY=(Sin(CurrentX)+Cos(2*CurrentX))/2Fori=-2*piTo2*piStep0.01'用小線段來模擬曲線Form1.Line-(i,(Sin(i)+Cos(2*i))/2)NextiEndSub第37頁/共68頁【實(shí)訓(xùn)8.6】利用point方法把標(biāo)簽中的文本復(fù)制到窗體上，如圖8-7所示。提示：在窗體上添加圖片框（picture1），設(shè)置合適的字體，AutoRedraw屬性設(shè)置為“true”。圖8-7第38頁/共68頁參考代碼：PrivateSubForm_Activate()Picture1.Print"我愛北京天安門！"圖8-7EndSubPrivateSubForm_Click()Form1.Scale(0,0)-(500,500)Picture1.Scale(0,0)-(500,500)Fori=1To500Forj=1To500Form1.PSet(i,j),Picture1.Point(i,j)NextjNextiEndSub第39頁/共68頁【實(shí)訓(xùn)8.7】利用學(xué)過的畫圖方法畫出顏色漸變背景，如圖8-8所示。圖8-8第40頁/共68頁參考代碼：PrivateSubForm_Paint()DimiAsInteger,xAsSingle,yAsSingle,hAsSinglex=Form1.ScaleWidthy=Form1.ScaleHeighth=255/yFori=0ToyForm1.Line(0,i)-(x,i),RGB(i*h,i*h,255)NextiEndSub讀者可以分析下面代碼，然后上機(jī)驗(yàn)證代碼所產(chǎn)生的效果。第41頁/共68頁P(yáng)rivateSubForm_Paint()DimxAsSingle,yAsSingle,tAsSingleDimiAsSingleForm1.DrawWidth=2x=Form1.ScaleWidthy=Form1.ScaleHeightIfx>yThent=y\2Elset=x\2Form1.ScaleMode=1Form1.DrawStyle=0Form1.FillStyle=1Fori=0TotForm1.Line(i,i)-(x-i,y-i),RGB(0,0,255-(i*255)\t),BFNextiEndSub第42頁/共68頁【實(shí)訓(xùn)8.8】模擬帶有時(shí)針、分針、秒針及刻度的時(shí)鐘，如圖8-9所示。提示：在窗體上添加時(shí)鐘控件（timer1）、直線控件數(shù)組（Line1，只畫出line1（0），長(zhǎng)度、位置任意）。圖8-9第43頁/共68頁參考代碼：OptionExplicitPrivateSubForm_Load()Timer1.Interval=1000Form1.Width=4000Form1.Height=4000Form1.Left=Screen.Width\2-2000Form1.Top=(Screen.Height-Height)\2EndSubPrivateSubForm_Resize()Dimi,AngleStaticflagAsBooleanIfflag=FalseThenflag=True'畫出表盤12個(gè)點(diǎn)和時(shí)、分、秒共15個(gè)Line第44頁/共68頁Fori=0To14Ifi>0ThenLoadLine1(i)Line1(i).Visible=TrueLine1(i).BorderWidth=5Line1(i).BorderColor=RGB(0,128,0)'設(shè)置Line的粗細(xì)和顏色

NextiEndIfScale(-1,1)-(1,-1)Fori=0To14Angle=i*2*Atn(1)/3Line1(i).X1=0.9*Cos(Angle)Line1(i).Y1=0.9*Sin(Angle)Line1(i).X2=Cos(Angle)Line1(i).Y2=Sin(Angle)NextiEndSub第45頁/共68頁P(yáng)rivateSubtimer1_Timer()ConstHH=0ConstMH=13ConstSH=14DimAngleAngle=0.5236*(15-(Hour(Now)+Minute(Now)/60))'設(shè)置時(shí)針

Line1(HH).X1=0Line1(HH).Y1=0Line1(HH).X2=0.3*Cos(Angle)Line1(HH).Y2=0.3*Sin(Angle)第46頁/共68頁Angle=0.1047*(75-(Minute(Now)+Second(Now)/60))'設(shè)置分針

Line1(MH).BorderWidth=3Line1(MH).X1=0Line1(MH).Y1=0Line1(MH).X2=0.7*Cos(Angle)Line1(MH).Y2=0.7*Sin(Angle)Angle=0.1047*(75-Second(Now))'設(shè)置秒針

Line1(SH).BorderWidth=1Line1(SH).X1=0Line1(SH).Y1=0Line1(SH).X2=0.8*Cos(Angle)Line1(SH).Y2=0.8*Sin(Angle)Form1.Caption=Str(Date+Time())'窗口顯示精確的日期和數(shù)字化的時(shí)間EndSub第47頁/共68頁第8章圖形程序設(shè)計(jì)

8.1知識(shí)要點(diǎn)

8.2習(xí)題與解答

8.3實(shí)訓(xùn)指導(dǎo)

8.4測(cè)驗(yàn)題第48頁/共68頁8.4測(cè)驗(yàn)題8.4.1選擇題1．下面幾個(gè)控件中能充當(dāng)容器的控件是

。

A．圖像框B．標(biāo)簽C．圖片框D．文本框答案：C2．下列關(guān)于坐標(biāo)系的說法錯(cuò)誤的是

。

A．只有正方形的窗體才可以用Scale方法自定義坐標(biāo)系。

B．若要在窗體上畫出規(guī)則的圖形，必須先自定義坐標(biāo)系。C．在一段代碼中只能建立一次坐標(biāo)系，否則會(huì)產(chǎn)生沖突。D．Scale方法不是設(shè)置坐標(biāo)系的唯一方法。答案：D第49頁/共68頁3．若要在窗體上畫一個(gè)扇形，必須使用到的方法是

。A．LineB．CircleC．PsetD．Line和Circle答案：B４．若要改變坐標(biāo)系的度量單位，應(yīng)通過來

修改。A．Scale方法B．ScaleWidth屬性

C．DrawWidth屬性D．ScaleMode屬性答案：D第50頁/共68頁5．代碼“form1.line–（100,200）”將繪制出

。A．從坐標(biāo)（0，0）至坐標(biāo)（100,200）的一條線段。B．從窗體form1的中心坐標(biāo)點(diǎn)至坐標(biāo)（100,200）的一條線段。C．從坐標(biāo)（CurrenetX，CurrentY）至坐標(biāo)（100,200）的一條線段。D．產(chǎn)生語法錯(cuò)誤提示。答案：C6．通過使用Line方法不能繪制出的圖形是

。A．扇形B．線段C．矩形D．三角函數(shù)圖像答案：A第51頁/共68頁7．代碼“Form1.Circle（2000,2000）,800,,1,3,2”將繪制出

。A．扇形B．橢圓弧C．圓形D．圓弧答案：B8．關(guān)于Line方法的B和F參數(shù)使用方法敘述正確的是

。A．B和F參數(shù)可以單獨(dú)使用，沒有限制。B．若要使用B，則必須使用F。C．若要使用F，則必須使用B。D．B和參數(shù)F連續(xù)使用時(shí)，必須用逗號(hào)分開。答案：C第52頁/共68頁9．如果改變了窗體的DrawWidth屬性，將對(duì)

產(chǎn)生影響。

A．Line、Circle和Pset方法B．Line、Circle、Pset和Point方法C．Line和Shape控件D．Line、Circle、Pset方法和Line和Shape控件答案：A10．代碼“Form1.cls”將不能清除

。A．窗體上由Print方法產(chǎn)生的文字。B．窗體上由Line、Circle、Pset方法繪制的圖形。C．窗體上由圖形控件構(gòu)成的圖形。D．窗體上由PaintPicture方法復(fù)制的圖形。答案：C第53頁/共68頁11．設(shè)置Shape控件的

屬性可以改變圖形的形狀。

A．ShapeB．FillStyleC．DrawStyleD．BorderStyle答案：A12．若要使窗體在被其他窗體覆蓋后，再次顯現(xiàn)時(shí)，能重新繪制窗體上的所有圖形，應(yīng)該令

屬性為True。A．WidowStateB．AutoRedrawC．DrawModeD．DrawStyle答案：B第54頁/共68頁8.4.2填空題1．使用Line方法畫線段后，CurrentX和CurrrenetY的值分別是（1）和（2）。答案：（1）線段終點(diǎn)的橫坐標(biāo)（2）線段終點(diǎn)的縱坐標(biāo)2．當(dāng)我們使用Circle方法畫弧線時(shí)，從圓弧起點(diǎn)到鐘點(diǎn)采用（3）時(shí)針方向。答案：（3）逆時(shí)針3．執(zhí)行代碼Form1.Scale（-150，200）-（200，-150）后，F(xiàn)orm1.ScaleLeft=

（4），F(xiàn)orm1.ScaleTop=

（5），F(xiàn)orm1.ScaleWidth=

（6），F(xiàn)orm1.ScaleHeight=

（7）。答案：（4）-150（5）200（6）350（7）-350

第55頁/共68頁4．在下面程序的空白處填寫合適的代碼，實(shí)現(xiàn)如下功能。單擊“畫圓”按鈕（Command1），在窗體上隨機(jī)畫出100個(gè)不同顏色的半徑最大為300的圓形（半徑和顏色具有隨機(jī)性）；單擊“清除”按鈕（Command2），清除窗體上所有圖形；單擊“結(jié)束”按鈕（Command3），退出程序。如圖8-10所示。圖8-10第56頁/共68頁P(yáng)rivateSubForm_Load()Form1.BackColor=vbWhiteEndSubPrivateSubCommand1_Click()DimxAsInteger,yAsInteger,rAsInteger,iAsIntegerFori=1To100Randomizex=Rnd*Form1.ScaleWidth

（8）

r=300*RndForm1.Circle(x,y),r,RGB(Rnd*255,Rnd*255,Rnd*255)圖8-10

（9）EndSubPrivateSubCommand2_Click()

（10）EndSubPrivateSubCommand3_Click()EndEndSub第57頁/共68頁答案：（8）y=Rnd*Form1.ScaleHeight（9）Nexti（10）Form1.Cls

第58頁/共68頁5．在下面程序的空白處填寫合適的代碼，實(shí)現(xiàn)如下功能。繪制如圖8-11所示的圖形。當(dāng)窗體大小發(fā)生變化時(shí)，圖形的大小也隨著窗體一同調(diào)整。圖8-11第59頁/共68頁P(yáng)rivateSub

（11）Form1.Scale(-100,100)-(100,-100)Form1.DrawWidth=2Form1.ForeColor=vbRed

（12）（13）（14）EndSubPrivateSubForm_Resize()Form1.Cls

（15）EndSub第60頁/共68頁

答案：(11)Form_Paint()（12）Form1.Line(-100,100)-(100,-100)（13）Form1.Line(-100,-100)-(100,1