图形处理与多媒体应用.docx

1、图形处理与多媒体应用第8章 图形处理与多媒体应用8.1 学习要点与必备知识【学习要点】 多媒体及多媒体控件使用。 图形控件的使用。 常用的绘图方法。 简单动画的实现方法。【必备知识】1多媒体及控件多媒体概念、多媒体控件Multimedia MCI(MMControl)的主要属性(AutoEnable、ButtonEnabled、ButtonVisible、Command、DeviceType、FileName)、主要事件(ButtonClick、StatusUpdate)2图形控件Line、Image、Shape及PictureBox控件主要属性及其应用。3常用绘图方法与绘图有关的主要属性(F

2、illColor、FillStyle、BorderStyle、BorderWidth)，主要方法(Cls、Pset、Point、Line、Circle、PaintPicture、Print)。4动画动画的实现方法(图形方法和使用图形控件Animation)、Animation控件的主要属性和方法(AutoPlay、Center、Open、Play、Stop)。8.2 习 题 精 选8.2.1 题目一、选择题1要消除窗体上的输出区域，应调用其( )方法。ALine BCls CPrint DPset2Cls方法可以清除窗体或图片框中的( )内容。A在运行阶段产生的图形和文字B在设计阶段放置的控件

3、C在设计阶段使用Picture属性设置的背景位图D以上全部内容3要让Line后的区域在Label的缝隙间显示出来，应将其( )属性设为Transparent。AStyle BForeStyte CBackStyle DBackColor4Line对象中表征其终点X坐标的属性是( )。Ax1 Bx2 Cy1 Dy25Picture Box控件中可以使用的图形文件格式有( )(多选)Abmp Bgif Cjpg Dico6下面关于 Animation 控件的说法正确的是( )。(多选)A在对话框中显示出操作的长短和特征B播放有关应用程序的无声动画，提供使用指导C使用户能够播放放入该控件的文件D控件

4、使用了一个独立的线程7在程序运行中要改变Line控件的外形，则下面的做法正确的是( )。A使用Move方法来移动 B使用ReSize方法来实现C改变其Top，Left等属性 D改变其x1, y1, x2, y2属性8关于Shape控件，下面的说法正确的是( )。AShape控件不支持任何事件 BShape控件能作为容器CShape控件只能显示4种图形 D不能在运行时改变其填充类型9关于PictureBox和Image控件的说法，不正确的是( )。A在运行中重画Image控件要快BImage控件不能作为容器C可以使用Image控件的Line方法来画线DPictureBox占用更多的系统资源10语

5、句Line(0,0)-(50,60),VBGreen 的作用是( )。A绘制一条从(0,50)到(60,0)的绿线B绘制一条从(0,50)到(60,0)的红线C绘制一条从(0,0)到(60,50)的绿线D绘制一条从(0,0)到(50,60)的绿线11对通过设置窗体的Picture属性放置的图片，正确的陈述是( )。(多选)A不能隐藏，除非卸载B可以控制图片在窗体中的位置C一次只可以在窗体中放一个图片D不能改变图片尺寸12在Visual Basic中坐标轴的缺省刻度单位是缇，用户可以根据实际需要使用( )改变刻度单位。ADrawStyle属性 BScale属性CScaleMode属性 DDraw

6、Width属性13下面的属性和方法中，( )可以重新定义容器对象的坐标系统。AScaleMode属性 BScale方法CDrawStyle属性 DDrawWidth属性14执行语句Form2.ScaleLeft120：Form2.ScaleTop250之后，窗体Form2的左上角坐标为( )。A(0，0) B (120, 250)C(250，120) D由ScalMode属性的当前值确定15执行下面的程序段之后，窗体左上角坐标为( )，右下角坐标为( )。Form1.ScaleTop=2: Form1.ScaleLeft=2Form1.ScaleHeight=-2: Form1.scaleWi

7、dth=2 A(2 , 2) B(4, 0) C(0, 4) D(-2, 2)16当设置了容器对象的DrawWidth属性后，会影响( )。ALine、Circle、Point方法 BPSet、Line、Circle方法CLine、Shape控件 DPSet、Line、Circle方法和Line、Shape控件17DrawStyle属性用于设置图形方法输出的线型，它受( )属性的限制。ABorderStyle DDrawWidth CFillstyle DFillColor18通过设置Shape控件的( )属性可以绘制多种形状的图形。AShape BBorderStyle CFillStyle

8、 DStyle19通过设置Line控件的( )属性可以绘制虚线、点线等多种式样的直线。AShape BFillStyle CBorderStyle DStyle20下面叙述正确的是( )。A不能改变PSet方法绘制的点的大小BPSet方法只能使用容器对象的前景颜色画点CPSet方法绘制的点的大小受其容器对象的DrawWidth属性的影响D以上均不对21使用形状控件Shape无法得到的图形是( )。A圆形 B扇形 C矩形 D椭圆22窗体Form、框架Frame、图片框Picture、图像框Image中( )是容器控件。APicture 、Image、Form BForm、Frame、Pictur

9、eCImage、Form、Frame DFrame、Picture、Image23使用Line方法画直线后，当前坐标为( )。A直线的起点 B直线的终点 C容器对象有原点 D容器对象的中心24假设窗体的当前坐标为(200，200)，则执行语句Line Step(100,100)-Step(200,200)时，绘制的点线的起点坐标为( )，终点坐标为 ( )。A(500，500) B(200，200) C(300，300) D(100，100) 25语句Line(200，200)-(600，600)，B的功能是( )。A使用窗体的背景颜色绘制一条直线B使用窗体的背景颜色绘制一个矩形C使用窗体的前

10、景颜色绘制一条直线D使用窗体的前景颜色绘制一个矩形26语句Line(200，200)-(600，600)，vbRed，BF的功能是( )。A在窗体上绘制一个红色的空心矩形B在窗体上绘制一个红色的实心矩形C在窗体上绘制一条红色的实线D在窗体上绘制一条红色的点划线27语句 Line (100,100) Step(500,500)将在窗体( )画一直线。A(200,200)到(400，400) B(100,100)到(500，500)C(100,100)到(600，600) D(100,100)到(400，400)28下列语句序列能绘制一个等腰直角三角形的是( )。ALine (100, 100)-

11、Step(200, 200): Line -Step(-200, 0): Line -Step(0, -200)BLine (100, 100)-Step(200, 200): Line -Step(-100, 0): Line -Step(0, -100)CLine (100, 100)-Step(200, 200): Line (200,200)-Step(-200, 0): Line (0,0),(100, 100)DLine (100, 100)-Step(0, 100): Line -Step(100, 0): Line -Step(100, 100)29下面程序段的功能是( )。F

12、orml.FillColorvbBlueForm1.FillStyle0Line(120，120)-(500，500)，vbRed，BA在窗体上绘制一个边框为蓝色、填充色为红色的矩形B在窗体上绘制一个边框为红色、填充色为蓝色的矩形C在窗体上绘制一个边框为红色、填充色为红色的矩形D在窗体上绘制一个边框为红色、填充色为窗体背景颜色的矩形30方法Point(x, y)的功能是 ( )。A返回该点在Scale坐标系中的坐标值B返回(x，y)点的RGB颜色值C将点移动到(x，y)处D在(x，y)处画一个点31在窗体上画圆，圆的单位按( )指定的。A水平单位 B垂直单位C垂直和水平单位 D以上都不是图8-

13、132绘制图8-1所示图形的语句是( )。ACircle(1000，1000)，1000，0.0001，1.6，0.7 BCircle(1000，1000)，1000，0.001，1.6，0.7CCircle(1000，1000)，1000，-0.001，1.6，7DCircle(1000，1000)，1000，-0.0001，1.6，0.733下列语句中能正确绘制纵横比为2的椭圆的是( )。ACircle (500,500), 300, 2 BCircle (500,500),300,2CCircle (500,500), 300, , , ,2 DCircle (500,500),300,

14、QBColor(12), , , ,234下面叙述正确的有( )。(多选)A弧的画法是从起点顺时针画到终点B弧的画法是从起点逆时针画到终点C使用Circle方法绘制圆、椭圆、弧或扇形时，如果省略颜色参数，则边框颜色值由所在的容器对象的ForeColor属性值决定D使用Circle方法绘制圆、椭圆、弧或扇形时，如果省略颜色参数，则边框颜色值由窗体的ForeColor属性值决定35当一个窗体被其他窗体覆盖后，又要回到该窗体时，如果要自动刷新或重画该窗体上的所有图形，应将( )属性设置为True。AAutoRedraw BAutosize CPicture DEnabled36当一个对象(如窗体或图

15、片框)被移动或改变大小之后，或当一个覆盖该对象的窗体被移开之后，如果要保持该对象上所画图形的完整性，可以选择触发( )事件来完成图形的重画工作。AClick BLoad CPaint DActive二、填空题1图片框内可使PictureBox根据图片调整大小的属性为_;影像框为_，若使Image控件可根据图片调整大小，该属性值应为_。2图片框控件和图像控件的缺省属性都是_属性，设计时与运行时可读可写。3窗体、图片框或图像框中的图形通过对象的_属性设置。4在窗体上用随机数产生了10000个彩色点，试写出用来取得坐标为(200，300)的点的颜色的相应代码：_。5使用 Move方法把图形框 Pic

16、turel的左上角移动到距窗体顶部 200 twip，距窗体左边框 200 twip，同时图形框缩小 50，相应的代码为_。6使用Scale方法建立窗体Forml的用户坐标系，其中窗体左上角坐标为(300，250)，右下角坐标为(400，100)，相应的代码为_。7假定有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框，应应执行的语句为_。8VB的坐标系统是可以自定义的，使用对象的刻度属性和_方法，即可设置对象的坐标系统。9窗体对象具有Cls方法，另外_对象也具有该方法。10窗体的默认坐标原点在_，X轴、Y轴的方向分别是_。11将窗体中(x，y)处的点抹去的方法是PSet

17、(x，y)，_。12在图片框Pic3中画一个左上角在(2000，2000)，边长为2000的红色实心正方形的语句为_。13使用_可以绘制圆角矩形，使用_可以绘制扇形。14语句 Circle(3000，3000)，1000，3.142，3.14*32运行的结果_。15使用Circle方法在窗体Foml上以(25，25)为圆心，20为半径画圆，相应的代码为_。16设置图片框控件_属性为_，所产生的图形或文本为持久图形。17使用_方法可设置绘图区的坐标比例，与之相关的属性有_、_、_和_。18要在图片框控件 pic2的中央画一个半径为2000twip的红色圆形，画圆语句为_。19pi=3.14159

18、265：Circle(1500，1500)，1000，-pi3，-pi2语句画出的是_图形。20执行Line(500，500)-Step(1000，0)：Line -Step(，1000)：Line -Step(-1000，0)：Line -Step(0，1000)语句画出的是_图形。21执行_语句，可以清除picture3图片框内的图片。22Scale(0，0)(100，100)：Forml.Line(20，20)(50，50)，B语句画出的是( )图形。23Microsoft Windows Common Control-2 6.0部件中的Animation控件用来播放_文件，用该控件的_

19、方法打开一个.avi文件，用_方法在该控件中播放.avi文件。24要使MMContrl控件自动启用控件中的按钮，应设置_属性为True，要开始播放媒体文件，应设置_属性的值为_，停止播放则设置该属性的值为_。25MMContrl控件的_属性用来指定打开或保存的文件，运行时要改变该属性，必须先_然后才重新打开该控件。8.2.2 答案与分析一、选择题1B 2A 3C 4B 5ABCD6ABCD 7D 8A 9C 10D11ACD 12C 13B 14B 15AB16B 17D 18A 19C 20C21B 22B 23B 24CA 25C26B 27C 28A 29B 30B31A 32D 33C

20、 34BC 35A36C二、填空题1AutoSize Stretch False2Picture3Picture4ThisPointColor=Point(200,200)5Picture1.Move 200,200,Picture1.Width/2,Picture1.Height/26Form1.Scale(-300,250)-(400,-100)7Picture1.Picture=LoadPicture(pic.gif )8Scale9图片框10左上角 X轴向右, Y轴向下11BackColor12pic3.Line (2000,2000)-(4000,4000),RGB(255,0,0)

21、,BF13Shape Circle14左半个封闭的圆15Circle(25，25)，2016AutoRedraw True17Scale ScaleHeight ScaleWidth ScaleLeft ScaleTop18Circle(Pic3.ScaleWidth/2,Pic3.ScaleHeight/2)，2000,vbRed19始、未两点与圆心相连的弧或饼20正方形21Picture3.Picture=LoadPicture()22空心矩形23无声AVI文件 Open Play24AutoEnable Command Play Stop25FileName 关闭8.3 上 机 实 习8

22、.3.1 题目一、编程1利用图像框控件完成简单的动画。要求图片在窗体上随机跳动。2利用Line方法在窗体上画出随机射线。3用Pset方法绘制圆的渐开线。圆的渐开线可以用以下的参数方程表示： x=b(Cost+tSint) y=b(Sint-tCost)4作函数Exp(5/x)*Sin(2*x)的曲线。5画出一条正在运动的帆船。6用Timer设计一个小指针式小时钟。7用MMContrl控件设计一个媒体播放器。二、改错或填充1以下程序要求实现窗体从左至右改变背景色。试填空。Private Sub Command1_Click() DrawWidth = 2 x = Form1.ScaleWidth

23、 y = Form1.ScaleHeight ScaleMode = twip DrawStyle = solid FillStyle = transparent For i = 0 To x _ Next iEnd Sub2窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2 s一次的速度向窗体的右下角移动，每次向左、向右移动100 twip(1/20像素)。试填空。Private Sub Form_load( ) Picture1.Picture=loadPicture(“c:picball.ico”) _.Interval

24、=2000End SubPrivate Sub Timer1_Timer( ) Static x , y As Integer x=x+100 y=y+100 Picture1.Move _End Sub图8-23给定的程序要在窗体上画一个圆柱体，如图8-2。请修改其中的错误。Private Sub Form_Click() For i = 1000 To 1 Step -1 Circle (1900, 700 + i), 1000, vbRed, , , 3 / 5 Next i FillStyle = 0 FillColor = RGB(255, 255, 255) Circle (190

25、0, 700), 1000, , , 3 / 5End Sub4给定程序的功能是：模拟下雪的效果。请改正程序中的错误，使之能实现指定的功能。Dim Snow(1000,2),Amounty As IntegerPrivate Sub Form_Load() Form1.Show DoEvents Randomize Amounty=500 For J=1 To Amounty Snow(J,0)=Int(Rnd*Form1.Width) Snow(J,1)=Int(Rnd*Form1.Height) Snow(J,2)=10+(Rnd*20) Next J Do While Not(DoEve

26、nts=0) For L=1 To 10 For I=1 To Amounty Snow(I,1)=Snow(I,1)+Snow(I,2) If Snow(I,1)Form1.Height Then Snow(I,1)=0:Snow(I,2)=2+(Rnd*30) Snow(I,0)=Int(Rnd*Form1.Width) End If Circle (Snow(I,0),Snow(I,1),15*Rnd Next I Form1.Cls Next L LoopEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Inte

27、ger, X As Single, Y As Single) Unload MeEnd Sub8.3.2 编程提示一、编程1设计时在控件的Picture属性中选装入一个图片。在时钟的Timer事件过程中，利用控件的Move方法将控件移到一个新的位置，新位置的坐标由随机函数Rnd产生。2编程要点：(1) 随机函数Rnd产生的值在(0,0.5)与(0.5,1)之间的分布是相同的。(2) Rnd值在(0,0.5)时，相应有坐标(x,y)在第一象限，否则坐标值取反，这样可得到其他象限的坐标。参考代码如下：Scale (-320, 240)-(320, -240)For i = 1 To 100 x =

28、 320 * Rnd y = 240 * Rnd If Rnd 0.5 Then x = -x End If If Rnd 0.5 Then y = -y End If ColorCode = 15 * Rnd Line (0, 0)-(x, y), QBColor(ColorCode)Next i3参考代码：ScaleMode = 6 设置坐标的单位为毫米x = ScaleWidth / 2y = ScaleHeight / 2For t = 0 To 30 Step 0.01 xt = Cos(t) + t * Sin(t) yt = -(Sin(t) - t * Cos(t) 屏幕的Y轴向下 PSet (xt + x, yt + y) 相对于中心点画曲线Ne