VB程序设计图形程序设计.pptx

《VB程序设计图形程序设计.pptx》由会员分享，可在线阅读，更多相关《VB程序设计图形程序设计.pptx（68页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 8.1知识要点知识要点1、图形设计基础、图形设计基础（1）坐标系统）坐标系统Visual Basic用坐标来描述一个像素位于用坐标来描述一个像素位于存放他的容器内的位置。而每个容器都有自存放他的容器内的位置。而每个容器都有自己的一个坐标系，构成一个坐标系要包含三己的一个坐标系，构成一个坐标系要包含三个基本要素，那就是：坐标原点、坐标度量个基本要素，那就是：坐标原点、坐标度量单位和坐标轴的长度和方向。单位和坐标轴的长度和方向。缺省情况下，坐标系的坐标原点在对象的左缺省情况下，坐标系的坐标原点在对象的左上角，横向向右为上角，横向向右为X轴的正方向，纵向向下轴的正方向，纵向向下为为Y轴的正方向。轴

2、的正方向。第1页/共68页用户可以通过两种方法来自行定义坐标系。用户可以通过两种方法来自行定义坐标系。通过修改通过修改ScaleTop、ScaleLeft、ScaleWidth和和ScaleHeight的属性值的属性值建立坐标系。建立坐标系。使用使用Scale方法来设置坐标系。方法来设置坐标系。Scale方法用于定义方法用于定义Form、PictureBox或或Printer的坐标系统，其语法格式的坐标系统，其语法格式为：为：对象对象.Scale(x1,y1)-(x2,y2)其中：其中：对象为可选项，它可以是对象为可选项，它可以是Form、PictureBox或或Printer对象。对象。(x

3、1,y1)为所定义坐标系的左上角的坐标。为所定义坐标系的左上角的坐标。(x2,y2)为所定义坐标系的右下角坐标。为所定义坐标系的右下角坐标。第2页/共68页（2）图形层）图形层Visual Basic在构造图形时，在三个不同的屏幕层次上放置可在构造图形时，在三个不同的屏幕层次上放置可视的组成部分。工具箱中除了标签、直线、形状外的控件放在视的组成部分。工具箱中除了标签、直线、形状外的控件放在最上层，标签、直线和形状控件放在中间层，最下层放置的是最上层，标签、直线和形状控件放在中间层，最下层放置的是由图形方法所绘制的图形。由图形方法所绘制的图形。同一图形层上控件对象的排列顺序称为同一图形层上控件对

4、象的排列顺序称为Z-顺序。顺序。调整调整Z-顺序的方法有两中：顺序的方法有两中：第3页/共68页在窗体设计阶段时，选中要调整的控件，单击在窗体设计阶段时，选中要调整的控件，单击“格式格式”菜单，选择菜单，选择“顺序顺序”菜单项，再选择菜单项，再选择“置前置前”或或“置后置后”命令即可。命令即可。代码中使用代码中使用Zorder方法。方法。Zorder方法的语法格式为：方法的语法格式为：Object.Zorder position其中：其中：Object为要调整的窗体或其他控件对象。为要调整的窗体或其他控件对象。Position为一整数，用于指出一个控件相对于另一个控件的位置。如果为一整数，用于

5、指出一个控件相对于另一个控件的位置。如果Position为为0或被省略，则或被省略，则Object位于位于 Z-顺序的前面；如果顺序的前面；如果Position为为1，则，则Object位于位于 Z-顺序的后面。顺序的后面。第4页/共68页（3）颜色设置函数）颜色设置函数Visual Basic提供了两个选择颜色的函数提供了两个选择颜色的函数RGB（）和（）和QBColor（）。（）。RGB（）函数（）函数RGB（）函数通过红、绿、蓝三种基本色的混合来生成某种颜色，其语法格式为：（）函数通过红、绿、蓝三种基本色的混合来生成某种颜色，其语法格式为：RGB（red,green,blue）其中，其中

6、，red、green和和blue三个参数都是必要参数，分别表示红、绿和蓝色的颜色成分，它们的取值范围三个参数都是必要参数，分别表示红、绿和蓝色的颜色成分，它们的取值范围都是都是0255间的整数。间的整数。第5页/共68页QBColor（）函数（）函数QBColor（）函数能提供（）函数能提供16中颜色，其语法格式为：中颜色，其语法格式为：QBColor（color）其中，其中，color为必要参数，是一个界于为必要参数，是一个界于015间的整数，每个整间的整数，每个整数代表一种颜色。数代表一种颜色。第6页/共68页2、图形控件、图形控件 VB提供了直线控件（提供了直线控件（Line）和形状控件

7、（）和形状控件（Shape）两种常用的图形控件。）两种常用的图形控件。用户可以使用图形控件方便地完成规则几何图形的绘制。用户可以使用图形控件方便地完成规则几何图形的绘制。（1）直线控件）直线控件直线控件（直线控件（Line）可以用来在窗体或图片框上画直线。分别用）可以用来在窗体或图片框上画直线。分别用x1，y1和和x2，y2来返回或控制线条起始点和终止点在来返回或控制线条起始点和终止点在X轴和轴和Y轴方向上的位置。轴方向上的位置。（2）形状控件）形状控件形状控件（形状控件（Shape）可以用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正）可以用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形，方

8、形，6种图形分别对应其种图形分别对应其Shape属性的属性的05的的6个属性值。个属性值。第7页/共68页3、图形方法、图形方法 VB提供了绘制点、线、圆等方法，利用它提供了绘制点、线、圆等方法，利用它们可以使绘制图形更加灵活。们可以使绘制图形更加灵活。（1）Line方法方法 Line方法的基本功能是在窗体或图片框上方法的基本功能是在窗体或图片框上画直线和矩形。此外，利用画直线和矩形。此外，利用Line方法还可以绘方法还可以绘制出各种曲线，因为任何曲线都可以近似地看制出各种曲线，因为任何曲线都可以近似地看成是由无数条小线段组成的。成是由无数条小线段组成的。第8页/共68页Line方法的语法格式

9、为：方法的语法格式为：对象对象.Line Step(x1,y1)-Step(x2,y2),颜色颜色,B F其中：其中：对象可以是窗体或图片框，缺省为窗体。对象可以是窗体或图片框，缺省为窗体。(x1,y1)和和(x2,y2)分别表示线段的起始坐标和终止坐标。分别表示线段的起始坐标和终止坐标。第9页/共68页（2）Circle方法方法Circle方法的基本功能是在窗体或图片框上绘制圆、椭圆、弧或扇形。它的语方法的基本功能是在窗体或图片框上绘制圆、椭圆、弧或扇形。它的语法格式如下：法格式如下：对象对象.Circle Step(x,y),radius,color,start,end,aspect 其中

10、：其中：对象是调用对象是调用Circle方法的对象名称。方法的对象名称。(x,y)用来指定圆心坐标。用来指定圆心坐标。Radius表示半径的长度。表示半径的长度。Color为所画图形的颜色。为所画图形的颜色。start 和和end分别表示圆弧或椭圆弧的开始和终止角度。分别表示圆弧或椭圆弧的开始和终止角度。aspect是所画圆的纵横尺寸比。是所画圆的纵横尺寸比。第10页/共68页（3）Pset与与Point方法方法 Pset方法方法Pset方法的基本功能是在窗体或图片框上绘制点。它的语法格式如下：方法的基本功能是在窗体或图片框上绘制点。它的语法格式如下：对象对象.Pset Step(x,y),c

11、olor其中：其中：对象是调用对象是调用Pset方法的对象名称。方法的对象名称。(x,y)用来指定点的水平和垂直坐标。用来指定点的水平和垂直坐标。Color用来指定点的颜色。用来指定点的颜色。第11页/共68页 Point方法方法Point方法用来返回窗体或图片框上指定位置的颜色值，用长整型数据来表示。它的语法格式如下：方法用来返回窗体或图片框上指定位置的颜色值，用长整型数据来表示。它的语法格式如下：对象对象.Point(x,y)其中：对象和其中：对象和(x,y)的用法和的用法和Pset方法相同。方法相同。第12页/共68页 PaintPicture方法方法PaintPicture方法可以访问

12、内置操作系统中的位块传送机制快速地操作像素，方法可以访问内置操作系统中的位块传送机制快速地操作像素，具体来说具体来说PaintPicture方法可以在窗体、图片框或打印机上绘制文件的内容方法可以在窗体、图片框或打印机上绘制文件的内容（图形文件的格式可以是（图形文件的格式可以是“.bmp”、“.wmf”、“.emf”、“.cur”、“.ico”或或“.dib”）。）。PaintPicture方法的语法格式如下：方法的语法格式如下：对象对象.PaintPicture picture,x1,y1,width1,height1,x2,y2,width2,height2,opcode第13页/共68页其

13、中：其中：对象为调用该方法的对象名称，通常是目对象为调用该方法的对象名称，通常是目标图形对象。标图形对象。picture为绘制到对象上的图形源，可以为绘制到对象上的图形源，可以是图形框、图像框或窗体的是图形框、图像框或窗体的picture属性。属性。x1,y1指定在对象上绘制指定在对象上绘制picture的目标的目标坐标，即目标矩形区域的左上角坐标，它坐标，即目标矩形区域的左上角坐标，它可以是目标控件的任意位置。可以是目标控件的任意位置。第14页/共68页width1,height1分别指定分别指定picture的目标宽度和目标高度。的目标宽度和目标高度。x2,y2指定指定picture内剪贴

14、区的位置，内剪贴区的位置，即传送图形矩形的左上角坐标。即传送图形矩形的左上角坐标。width2,height2指定指定picture内剪内剪贴区的宽度和高度，从而确定传送图贴区的宽度和高度，从而确定传送图形的大小。形的大小。第15页/共68页 第第8章章 图形程序设计图形程序设计 8.1 知识要点知识要点 8.2 习题与解答习题与解答 8.3 实训指导实训指导 8.4 测验题测验题第16页/共68页 8.2习题与解答习题与解答1、描述、描述VB缺省的坐标系，用户自定义坐标系的方法有哪些？缺省的坐标系，用户自定义坐标系的方法有哪些？答案：缺省情况下，坐标系的坐标原点在对象的左上角，横向向右为答案

15、：缺省情况下，坐标系的坐标原点在对象的左上角，横向向右为X轴的正方向，纵向向下为轴的正方向，纵向向下为Y轴的正方轴的正方向。向。用户可以通过两种方法来自行定义坐标系。一种是通过修改用户可以通过两种方法来自行定义坐标系。一种是通过修改ScaleTop、ScaleLeft、ScaleWidth和和ScaleHeight的属性值建立坐标系；另一种是使用的属性值建立坐标系；另一种是使用Scale方法来设置坐标系。方法来设置坐标系。第17页/共68页2、VB提供了几个图形控件？它们的功能分别是什么？提供了几个图形控件？它们的功能分别是什么？答案：答案：VB提供了直线控件（提供了直线控件（Line）和形状

16、控件（）和形状控件（Shape）两种常用的图形控件。分别用来在窗体或图片）两种常用的图形控件。分别用来在窗体或图片框上画直线和矩形、正方形、椭圆、圆、圆角矩形及圆角正方形框上画直线和矩形、正方形、椭圆、圆、圆角矩形及圆角正方形第18页/共68页3、熟悉利用、熟悉利用Line画图的方法，说出下面几个语句的含义。画图的方法，说出下面几个语句的含义。（1）Form1.Line(1000,1000)-(3000,3000)（2）Form1.Line-(3000,3000),RGB(255,0,0)（3）Form1.Line Step(1000,1000)-(3000,3000)（4）Form1.Lin

17、e(1000,1000)-(3000,3000),RGB(255,0,0),B（5）Form1.Line(1000,1000)-(3000,3000),RGB(255,0,0),BF答案：略（读者可以自行上机验证）。答案：略（读者可以自行上机验证）。第19页/共68页4、熟悉利用、熟悉利用Circle画图的方法，说出下面几个语句的含义（画图的方法，说出下面几个语句的含义（pi=3.1415926）。）。（1）Form1.Circle Step(2000,2000),1000,QBColor(1)（2）Form1.Circle(2000,2000),1000,3*pi/2,pi/3（3）Form

18、1.Circle(2000,2000),1000,3*pi/2,0.5（4）Form1.Circle(2000,2000),1000,QBColor(2),-3*pi/2,-pi答案：略（读者可以自行上机验证）。答案：略（读者可以自行上机验证）。第20页/共68页5、说出、说出Pset方法和方法和Point方法的基本功能和使用方法。方法的基本功能和使用方法。答案：答案：Pset方法的基本功能是在窗体或图片框上绘制点；方法的基本功能是在窗体或图片框上绘制点；Point方法用来返回窗体或图片框上指定位置方法用来返回窗体或图片框上指定位置的颜色值，用长整型数据来表示。（使用方法略）的颜色值，用长整型

19、数据来表示。（使用方法略）6、怎样通过、怎样通过PaintPicture方法实现像素操作。方法实现像素操作。答案：答案：PaintPicture方法可以访问内置操作系统中的位块传送机制快速地操作像素。方法可以访问内置操作系统中的位块传送机制快速地操作像素。PaintPicture方方法常常用来从一个窗体或图片框控件中向另一个对象复制一个矩形区域的像素。法常常用来从一个窗体或图片框控件中向另一个对象复制一个矩形区域的像素。continue第21页/共68页 在复制时，如果设置要传送的图形宽度位负数，则复制后的在复制时，如果设置要传送的图形宽度位负数，则复制后的图像水平翻转；如果设置要传送的图形高

20、度位负数，则复制后图像水平翻转；如果设置要传送的图形高度位负数，则复制后的图像上下翻转；设置要传送的图形宽度和高度均为位负数，的图像上下翻转；设置要传送的图形宽度和高度均为位负数，则复制后的图像在两个方向上翻转。目标图形的大小，可以通则复制后的图像在两个方向上翻转。目标图形的大小，可以通过目标图形与源图像大小的比例而得，即如果目标图形比源图过目标图形与源图像大小的比例而得，即如果目标图形比源图形大，就可得到放大的图形。形大，就可得到放大的图形。第22页/共68页 第第8章章 图形程序设计图形程序设计 8.1 知识要点知识要点 8.2 习题与解答习题与解答 8.3 实训指导实训指导 8.4 测验

21、题测验题第23页/共68页 8.3实训指导实训指导8.3.1技能训练目的技能训练目的 掌握建立用户自定义坐标系的方法。掌握建立用户自定义坐标系的方法。掌握直线和形状控件的使用方法。掌握直线和形状控件的使用方法。掌握利用掌握利用Line方法在窗体或图片框上画直线和矩形的技巧。方法在窗体或图片框上画直线和矩形的技巧。掌握利用掌握利用Circle方法在窗体或图片框上绘制圆、椭圆或弧等图形的技巧。方法在窗体或图片框上绘制圆、椭圆或弧等图形的技巧。掌握利用掌握利用Pset与与Point方法对点操作的方法。方法对点操作的方法。掌握利用掌握利用PaintPicture方法实现像素操作的方法。方法实现像素操作

22、的方法。第24页/共68页8.3.2技能训练内容技能训练内容【实训实训8.1】利用直线和形状控件模拟两个小球相撞过程。程序运行白球和黑利用直线和形状控件模拟两个小球相撞过程。程序运行白球和黑球分别向右和左运动，当两球相撞后，分别向相反方向运动，如图球分别向右和左运动，当两球相撞后，分别向相反方向运动，如图8-1所示。所示。提示：在窗体上添加直线控件（提示：在窗体上添加直线控件（Line1）、图形控件（）、图形控件（Shape1）、图形控件）、图形控件（Shape2）、时钟控件（）、时钟控件（timer1）和时钟控件（）和时钟控件（timer2）。）。Line1的的BorderWidth属性设置

23、为属性设置为2，Shape1的的FillColor和和BorderColor属性设属性设置为黑色，置为黑色，Shape1的的FillColor和和BorderColor属性设置为白色，属性设置为白色，timer1和和timer2的的Interval属性设置为属性设置为100。第25页/共68页图图8-1第26页/共68页参考代码：参考代码：两个小球相向而行两个小球相向而行Private Sub Timer1_Timer()If Shape1.Left Shape2.Left+Shape2.Width+400 Then Shape1.Left=Shape1.Left-200 Shape2.Lef

24、t=Shape2.Left+200Else Timer2.Enabled=True Timer1.Enabled=FalseEnd IfEnd Sub两个小球背向而行两个小球背向而行Private Sub Timer2_Timer()Shape1.Left=Shape1.Left+200 Shape2.Left=Shape2.Left-200End Sub第27页/共68页【实训实训8.2】在窗体上画出从同一起点出发的在窗体上画出从同一起点出发的100条长度不等的条长度不等的射线，如图射线，如图8-2所示。所示。图图8-2第28页/共68页参考代码：参考代码：Private Sub Form_

25、Click()Dim i As IntegerForm1.ClsFor i=1 To 100RandomizeCurrentX=Rnd()*Form1.ScaleWidthCurrentY=Rnd()*Form1.ScaleHeightForm1.Line-(0,0)Next iEnd Sub第29页/共68页【实训实训8.3】在窗体上画出螺旋线，如图在窗体上画出螺旋线，如图8-3所所示。示。图图8-3第30页/共68页参考代码：参考代码：Private Sub Form_Paint()Dim pi as singlepi=4*Atn(1)Form1.Scale(-60,60)-(60,-60

26、)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*piEnd Sub第3

27、1页/共68页【实训实训8.4】窗体上两个按钮的功能分别是在图片框里画出同心窗体上两个按钮的功能分别是在图片框里画出同心圆和同心矩形，如图圆和同心矩形，如图8-4和图和图8-5所示。所示。提示：在窗体上添加图片框（提示：在窗体上添加图片框（picture1）、两个命令按钮（）、两个命令按钮（command1和和command2），命令按钮的），命令按钮的Caption属性分别设置为属性分别设置为“同心圆同心圆”和和“同心矩形同心矩形”。第32页/共68页图图8-4图图8-5第33页/共68页参考代码：参考代码：画同心圆画同心圆Private Sub Command1_Click()Form1.

28、Caption=同心圆同心圆Picture1.ClsPicture1.Scale(-100,100)-(100,-100)r=10For i=1 To 10Picture1.Circle(0,0),r+5*iNext iEnd Sub画同心矩形画同心矩形Private Sub Command2_Click()Form1.Caption=同心矩形同心矩形Picture1.ClsPicture1.Scale(-100,100)-(100,-100)r=10For i=1 To 10r=r+5*iPicture1.Line(r+5,r)-(-r-5,-r),BNext iEnd Sub第34页/共6

29、8页【实训实训8.5】分别利用点和小线段模拟分别利用点和小线段模拟y=(sin(x)+cos(2x)/2数学函数曲线，如图数学函数曲线，如图8-6所示。所示。图图8-6第35页/共68页参考代码：参考代码：1、利用点实现、利用点实现Private Sub Form_Paint()Dim i As Single,pi As Doublepi=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)For i=-2*pi To 2*pi Step 0.01Form1.PSet(i

30、,(Sin(i)+Cos(2*i)/2)Next iEnd Sub第36页/共68页2、利用小线段实现、利用小线段实现Private Sub Form_Paint()Dim i As Single,pi As Doublepi=4*Atn(1)计算圆周率计算圆周率Form1.Scale(-2*pi,1)-(2*pi,-1)建立新坐标系建立新坐标系Form1.Line(-2*pi,0)-(2*pi,0)绘制绘制x轴轴Form1.Line(0,1)-(0,-1)绘制绘制y轴轴CurrentX=-2*piCurrentY=(Sin(CurrentX)+Cos(2*CurrentX)/2For i=-

31、2*pi To 2*pi Step 0.01 用小线段来用小线段来模拟曲线模拟曲线Form1.Line-(i,(Sin(i)+Cos(2*i)/2)Next iEnd Sub第37页/共68页【实训实训8.6】利用利用point方法把标签中的文本复方法把标签中的文本复制到窗体上，如图制到窗体上，如图8-7所示。所示。提示：在窗体上添加图片框（提示：在窗体上添加图片框（picture1），设置合适的字体，），设置合适的字体，AutoRedraw属性设置为属性设置为“true”。图图8-7第38页/共68页参考代码：参考代码：Private Sub Form_Activate()Picture1.

32、Print 我爱北京天安门！我爱北京天安门！图图8-7End SubPrivate Sub Form_Click()Form1.Scale(0,0)-(500,500)Picture1.Scale(0,0)-(500,500)For i=1 To 500 For j=1 To 500 Form1.PSet(i,j),Picture1.Point(i,j)Next jNext iEnd Sub第39页/共68页【实训实训8.7】利用学过的画图方法画出颜色渐变背景，如图利用学过的画图方法画出颜色渐变背景，如图8-8所示。所示。图图8-8第40页/共68页参考代码：参考代码：Private Sub

33、Form_Paint()Dim i As Integer,x As Single,y As Single,h As Singlex=Form1.ScaleWidthy=Form1.ScaleHeighth=255/yFor i=0 To y Form1.Line(0,i)-(x,i),RGB(i*h,i*h,255)Next iEnd Sub读者可以分析下面代码，然后上机验证代码所产生的效果。读者可以分析下面代码，然后上机验证代码所产生的效果。第41页/共68页Private Sub Form_Paint()Dim x As Single,y As Single,t As SingleDim

34、i As SingleForm1.DrawWidth=2x=Form1.ScaleWidthy=Form1.ScaleHeightIf x y Then t=y 2 Else t=x 2Form1.ScaleMode=1Form1.DrawStyle=0Form1.FillStyle=1For i=0 To t Form1.Line(i,i)-(x-i,y-i),RGB(0,0,255-(i*255)t),BFNext iEnd Sub第42页/共68页【实训实训8.8】模拟带有时针、分针、秒针及刻模拟带有时针、分针、秒针及刻度的时钟，如图度的时钟，如图8-9所示。所示。提示：在窗体上添加时钟

35、控件（提示：在窗体上添加时钟控件（timer1）、直线控件数组（）、直线控件数组（Line1，只画出，只画出line1（0），长度、位置任意）。），长度、位置任意）。图图8-9第43页/共68页参考代码：参考代码：Option ExplicitPrivate Sub Form_Load()Timer1.Interval=1000Form1.Width=4000 Form1.Height=4000 Form1.Left=Screen.Width 2-2000 Form1.Top=(Screen.Height-Height)2End SubPrivate Sub Form_Resize()Dim

36、i,Angle Static flag As Boolean If flag=False Then flag=True 画出表盘画出表盘12个点和时、分、秒共个点和时、分、秒共15个个Line第44页/共68页For i=0 To 14 If i 0 Then Load Line1(i)Line1(i).Visible=True Line1(i).BorderWidth=5 Line1(i).BorderColor=RGB(0,128,0)设置设置Line的粗细和颜色的粗细和颜色 Next i End If Scale(-1,1)-(1,-1)For i=0 To 14 Angle=i*2*A

37、tn(1)/3 Line1(i).X1=0.9*Cos(Angle)Line1(i).Y1=0.9*Sin(Angle)Line1(i).X2=Cos(Angle)Line1(i).Y2=Sin(Angle)Next iEnd Sub第45页/共68页Private Sub timer1_Timer()Const HH=0 Const MH=13 Const SH=14 Dim Angle Angle=0.5236*(15-(Hour(Now)+Minute(Now)/60)设置时针设置时针 Line1(HH).X1=0 Line1(HH).Y1=0 Line1(HH).X2=0.3*Cos(

38、Angle)Line1(HH).Y2=0.3*Sin(Angle)第46页/共68页Angle=0.1047*(75-(Minute(Now)+Second(Now)/60)设置分针设置分针 Line1(MH).BorderWidth=3 Line1(MH).X1=0 Line1(MH).Y1=0 Line1(MH).X2=0.7*Cos(Angle)Line1(MH).Y2=0.7*Sin(Angle)Angle=0.1047*(75-Second(Now)设置秒针设置秒针 Line1(SH).BorderWidth=1 Line1(SH).X1=0 Line1(SH).Y1=0 Line1

39、(SH).X2=0.8*Cos(Angle)Line1(SH).Y2=0.8*Sin(Angle)Form1.Caption=Str(Date+Time()窗口显示精确窗口显示精确的日期和数字化的时间的日期和数字化的时间End Sub第47页/共68页 第第8章章 图形程序设计图形程序设计 8.1 知识要点知识要点 8.2 习题与解答习题与解答 8.3 实训指导实训指导 8.4 测验题测验题第48页/共68页 8.4测验题测验题8.4.1选择题选择题1下面几个控件中能充当容器的控件是下面几个控件中能充当容器的控件是 。A图像框图像框 B标签标签 C图片框图片框 D文本框文本框答案：答案：C2下

40、列关于坐标系的说法错误的是下列关于坐标系的说法错误的是 。A只有正方形的窗体才可以用只有正方形的窗体才可以用Scale方法自定义坐标系。方法自定义坐标系。B若要在窗体上画出规则的图形，必须先自定义坐标系。若要在窗体上画出规则的图形，必须先自定义坐标系。C在一段代码中只能建立一次坐标系，否则会产生冲突。在一段代码中只能建立一次坐标系，否则会产生冲突。DScale方法不是设置坐标系的唯一方法。方法不是设置坐标系的唯一方法。答案：答案：D第49页/共68页3若要在窗体上画一个扇形，必须使用到的方法是若要在窗体上画一个扇形，必须使用到的方法是 。ALine BCircle CPset DLine和和C

41、ircle答案：答案：B若要改变坐标系的度量单位，应通过来若要改变坐标系的度量单位，应通过来 修改。修改。AScale方法方法 BScaleWidth属性属性 CDrawWidth属性属性 DScaleMode属性属性答案：答案：D第50页/共68页5代码代码“form1.line （100,200）”将绘制出将绘制出 。A从坐标（从坐标（0，0）至坐标（）至坐标（100,200）的一条线段。）的一条线段。B从窗体从窗体form1的中心坐标点至坐标（的中心坐标点至坐标（100,200）的一条线段。）的一条线段。C从坐标（从坐标（CurrenetX，CurrentY）至坐标（）至坐标（100,2

42、00）的一条线段。）的一条线段。D产生语法错误提示。产生语法错误提示。答案：答案：C6通过使用通过使用Line方法不能绘制出的图形是方法不能绘制出的图形是 。A扇形扇形 B线段线段 C矩形矩形 D三角函数图像三角函数图像答案：答案：A第51页/共68页7代码代码“Form1.Circle（2000,2000）,800,1,3,2”将绘制出将绘制出 。A扇形扇形 B椭圆弧椭圆弧 C圆形圆形 D圆弧圆弧答案：答案：B8关于关于Line方法的方法的B和和F参数使用方法叙述正确的是参数使用方法叙述正确的是 。AB和和F参数可以单独使用，没有限制。参数可以单独使用，没有限制。B若要使用若要使用B，则必须

43、使用，则必须使用F。C若要使用若要使用F，则必须使用，则必须使用B。DB和参数和参数F连续使用时，必须用逗号分开。连续使用时，必须用逗号分开。答案：答案：C第52页/共68页9如果改变了窗体的如果改变了窗体的DrawWidth属性，将对属性，将对 产生影响。产生影响。ALine、Circle和和Pset方法方法 BLine、Circle、Pset和和 Point方法方法 CLine和和Shape控件控件 D Line、Circle、Pset方法和方法和Line和和Shape控件控件答案：答案：A10代码代码“Form1.cls”将不能清除将不能清除 。A窗体上由窗体上由Print方法产生的文字

44、。方法产生的文字。B窗体上由窗体上由Line、Circle、Pset方法绘制的图形。方法绘制的图形。C窗体上由图形控件构成的图形。窗体上由图形控件构成的图形。D窗体上由窗体上由PaintPicture方法复制的图形。方法复制的图形。答案：答案：C第53页/共68页11设置设置Shape控件的控件的 属性可以改变图形的形状。属性可以改变图形的形状。AShape BFillStyle CDrawStyle DBorderStyle答案：答案：A12若要使窗体在被其他窗体覆盖后，再次显现时，能重新绘制窗体上的所有图形，应该令若要使窗体在被其他窗体覆盖后，再次显现时，能重新绘制窗体上的所有图形，应该令

45、 属性为属性为True。AWidowState BAutoRedraw CDrawMode DDrawStyle答案：答案：B第54页/共68页8.4.2填空题填空题1使用使用Line方法画线段后，方法画线段后，CurrentX和和CurrrenetY的值分别是的值分别是 （1）和和 （2）。答案：（答案：（1）线段终点的横坐标）线段终点的横坐标 （2）线段终点的纵坐标）线段终点的纵坐标 2当我们使用当我们使用Circle方法画弧线时，从圆弧起点到钟点采用方法画弧线时，从圆弧起点到钟点采用 （3）时针方时针方向。向。答案：（答案：（3）逆时针）逆时针3执行代码执行代码Form1.Scale（-

46、150，200）-（200，-150）后，）后，Form1.ScaleLeft=（4），Form1.ScaleTop=（5），Form1.ScaleWidth=（6），Form1.ScaleHeight=（7）。答案：（答案：（4）-150 （5）200 （6）350（7）-350 第55页/共68页4在下面程序的空白处填写合适的代码，实现如下功能。在下面程序的空白处填写合适的代码，实现如下功能。单击单击“画圆画圆”按钮（按钮（Command1），在窗体上随机画出），在窗体上随机画出100个不同颜色的半个不同颜色的半径最大为径最大为300的圆形（半径和颜色具有随机性）；单击的圆形（半径和颜色具

47、有随机性）；单击“清除清除”按钮按钮（Command2），清除窗体上所有图形；单击），清除窗体上所有图形；单击“结束结束”按钮按钮（Command3），退出程序。如图），退出程序。如图8-10所示。所示。图图8-10第56页/共68页Private Sub Form_Load()Form1.BackColor=vbWhiteEnd SubPrivate Sub Command1_Click()Dim x As Integer,y As Integer,r As Integer,i As IntegerFor i=1 To 100 Randomize x=Rnd*Form1.ScaleWidth

48、 （8）r=300*Rnd Form1.Circle(x,y),r,RGB(Rnd*255,Rnd*255,Rnd*255)图8-10 （9）End SubPrivate Sub Command2_Click()（10）End SubPrivate Sub Command3_Click()EndEnd Sub第57页/共68页答案：答案：（8）y=Rnd*Form1.ScaleHeight（9）Next i（10）Form1.Cls 第58页/共68页5在下面程序的空白处填写合适的代码，实现如下功能。在下面程序的空白处填写合适的代码，实现如下功能。绘制如图绘制如图8-11所示的图形。当窗体大小

49、发生变化时，图形的大小也随着窗体一同调整。所示的图形。当窗体大小发生变化时，图形的大小也随着窗体一同调整。图图8-11第59页/共68页Private Sub （11）Form1.Scale(-100,100)-(100,-100)Form1.DrawWidth=2Form1.ForeColor=vbRed （12）（13）（14）End SubPrivate Sub Form_Resize()Form1.Cls （15）End Sub第60页/共68页 答案：答案：(11)Form_Paint()（12）Form1.Line(-100,100)-(100,-100)（13）Form1.Lin

50、e(-100,-100)-(100,100)（14）Form1.Line(-50,50)-(50,-50),B（15）Call Form_Paint第61页/共68页8.4.3编程题编程题画出变化的月亮和满天星。程序运行后在蓝色窗体上动态显示画出变化的月亮和满天星。程序运行后在蓝色窗体上动态显示100个黄色个黄色的的“”，月亮从圆到缺，从缺到圆，周而复始变换。如图，月亮从圆到缺，从缺到圆，周而复始变换。如图8-12所示。所示。提示：在窗体上添加图形控件提示：在窗体上添加图形控件Shape1和和Shape2，图形控件的，图形控件的Shape属性均属性均设置为设置为“Circle”。图图8-12第