第8章 图形处理与多媒体应用

8.2 习题精选

8.2.1 题目

一、要消除窗体上的输出区域，应调用其（ ）方法。 A．Line B.Cls C.Print D.Pset

2.Cls 方法可以清除窗体或图片框中的（ ）内容。 A． 在运行阶段产生的图形和文字 B． 在设计阶段放置的控件

C． 在设计阶段使用Picture属性设置的背景位图 D． 以上全部内容

3．要让Line后的区域在Label的缝隙间显示出来，应将其（ ）属性设置为Transparent. A.Style B.Forestyle C.BackStyle D.BackColor 4.Line对象中表明其终点的X坐标的属性是（ ） A． X1 B.X2 C.y1 D.y2

5.PictureBox控件中可以使用的图形文件格式有（ ）（多选） A..bmp B.gif c..jpg D..ico

6.下面关于Animation控件的说法中，正确的是（ ）（多选） A． 在对话框中显示出操作的长短和特征

B． 播放有关应用程序的无声动画，提供使用指导 C． 使用户能够播放放入该控件中的文件 D． 控件使用了一个独立的线程

7．在程序运行中要改变Line控件的外形，则下面的做法中正确的是（ ） A．使用Move方法来移动 B.使用ReSize方法来实现

C．改变其Top、Left等属性 D。改变其X1、Y1、X2、Y2属性 8．关于Shape控件，下面的说法中正确的是（ ）

A．Shape控件不支持任何事件 B. Shape控件能作为容器

C. Shape控件只能显示4种图形 D.不能在运行时改变其填充类型 9.下列关于PictureBox 和 Image控件的说法中,不正确的是( ) A. 在运行中重画Image控件时要快 B. Image控件不能作为容器

C. 可以使用Image控件的Line方法来画线 D. PictureBox会占用更多的系统资源

10.语句“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中，坐标轴的默认刻度单位是缇，用户可以根据实际需要使用（ ）来改变刻度单位。

A． DrawStyle属性 B.Scale属性

C．ScaleMode属性 D.DrawWidth属性 13．下面的属性和方法中，（ ）可以重新定义容器对象的坐标系统。 A．ScaleMode属性 B.Scale属性 C．DrawStyle属性 D.DrawWidth属性

14.执行语句“Form2.ScaleLeft=120:Form2.ScaleTop=250”后，窗体Form2的左上角的坐标为（ ） A．（0，0） B.（120，250） C．（250，120） D.由ScaleMode属性的当前值来确定 15．执行下面的程序段后，窗体左上角的坐标为（ ），右下角的坐标为（ ） Form1.ScaleTop=2:Form1.ScaleLeft=2

Form1.ScaleHeight=-2: Form1.ScaleWidth=2 A.(2,2) B.(4,0) C.(0,4) D.(-2,2)

16.当设置了容器对象的DrawWidth属性后，会影响（ ） A． Line、Circle、Point方法 B． Pset、line、Circle方法 C． Line、Shape控件

D． Pset、Line、Circle方法和Line、Shape控件

17．Drawstyle属性用于设置图形方法输出的线型，它受（ ）属性的限制。 A．BorderStyle B.DrawWidth C.FillStyle D.FillColor 18.通过设置Shape控件的（ ）属性可以绘制多种形状的图形。 A．Shape B.BorderStyle C.Fillstyle D.Style

19.通过设置Line控件的（ ）属性可以绘制虚线、点线等多种式样的直线。 A．Shape B. Fillstyle C. BorderStyle D.Style 20.下列叙述中，正确的是（ ）

A． 不能改变Pset方法绘制的点的大小 B． Pset方法只能使用容器对象的前景色画点 C． PSet方法绘制的点的大小受其容器对象的DrawWidth属性的影响 D． 以上均不对

21．使用形状控件无法得到的图形是（ ） A．圆形 B.扇形 C.矩形 D.椭圆 22．在窗体（Form）、框架（Frame）、图片框（Picture）、图像框（Image）中，（ ）是容器控件。

A．Picture、Image、Form B.Form、Frame、Picture C.Image、Form、Frame D.Frame、Picture、Image 23.使用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． 使用窗体的前景色绘制一条直线

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．下列语句中能绘制一个等腰直角三角形的是（ ）

A. Line(100,100) –Step(200,200):Line-Step(-200,0):Line-Step(0,-200) B.Line(100,100) –Step(200,200):Line-Step(-100,0):Line-Step(0,-100)

C. Line(100,100) –Step(200,200):Line(200,200)-Step(-200,0):Line(0,0),(100,100) E. Line(100,100)-Step(0,100):Line-Step(100,0):Line-Step(100,100) 29.下面程序段的功能是（ ） Form1.FillColor=vbBlue Form1.Fillstyle=0

Line(120,120)-(500,500),vbRed,B

A． 在窗体上绘制一个边框为蓝色、填充色为红色的矩形 B． 在窗体上绘制一个边框为红色、填充色为蓝色的矩形 C． 在窗体上绘制一个边框为红色、填充色为红色的矩形

D． 在窗体上绘制一个边框为红色、填充色为窗体背景色的矩形 30．方法Point(x,y)的功能是（ ） A． 返回该点在Scale坐标系中的坐标值 B． 返回（x,y）点的RGB颜色值 C． 将点移动到（x,y）处 D． 在（x,y）处画一个点

31．在窗体上画圆，圆的单位是按（ ）指定的。 A．水平单位 B.垂直单位

C．垂直和水平单位 D.以上都不是

32．绘制如图8-1所示的图形的语句是（ ） A． Circle(1000,1000),1000,,0.0001,1.6,0.7 B． Circle(1000,1000),1000,0.001,1.6,0.7 C． Circle(1000,1000),1000,,-0.001,1.6,7 D． Circle(1000,1000),1000,,-0.0001,1.6,0.7

33.下列语句中能正确绘制纵横比为2的椭圆的是（ ）

A．Circle(500,500),300,2 B. Circle(500,500),300,,,2

C.Circle(500,500),300,,,,2 D. Circle(500,500),300,QBColor(12),,,,2 34.下列叙述中，正确的有（ ）（多选） A． 弧的画法是从起点顺时针画到终点 B． 弧的画法是从起点逆时针画到终点 C． 使用Circle方法绘制圆、椭圆、弧或扇形时，如果省略颜色参数，则边框颜色值由所

在的容器对象的ForeColor属性决定

D． 使用Circle方法绘制圆、椭圆、弧或扇形时，如果省略颜色参数，则边框颜色值由窗

体的ForeColor属性值决定

35．当一个窗体被其他窗体覆盖后，又要回到该窗体时，如果要自动刷新或重画该窗体上的所有图形，应将（ ）属性设置为True

A.AutoRedraw B.AutoSize C.Picture D.Enabled

36.当一个对象（如窗体或图片框）被移动或改变大小，或者一个覆盖该对象的窗体被移开之后，如果要保持该对象上所画图形的完整性，可以选择触发（ ）事件来完成图形的重画工作。

A．Click B.Load C.Paint D.Active 二．填空题

1． 图片框内可使用Picturebox根据图片来调整大小的属性为__________;图像框为

________,若使用Image控件可根据图片调整大小，则该属性值应为________. 2． 图片框控件和图像框控件的默认属性都是________，设计时与运行时可读可写。 3． 窗体、图片框或图像框中的图形是通过对象的________属性来设置的。

4． 在窗体上用随机数产生了10000个彩色点，试写出用来取得坐标为（200，300）的

点的颜色的相应代码:________________。

5． 使用Move方法把图片框Picture1的左上角移动到距窗体顶部200缇，距窗体左边

框200缇，同时图形框缩小50%，则相应的代码为_________________。

6． 使用Scale方法建立窗体Form1的用户坐标系，其中窗体左上角的坐标为（-300，

250），右下角的坐标为（400，-100），相应的代码为_________________。

7． 假定有一个名为“pic2.gif”的图形文件，要在运行期间把该文件装入一个图片框

中，应执行的语句为____________________。 8． VB的坐标系统是可以自定义的，使用对象的刻度属性和__________方法即可设置对

象的坐标系统。

9． 窗体对象具有Cls方法，另外，___________对象也具有该方法。 10． 窗体的默认坐标原点在__________，X轴、Y轴的方向分别是__________。 11． 将窗体中（x,y）处的点清除的Pset（x , y）、____________。 12． 在图片框Pic3中画一个左上角在（2000，2000）、边长为2000的红色实心正

方形的语句为_____________________________。 13． 使用________可以绘制圆角矩形，使用_________可以绘制扇形 14． 语句“Circle(3000,3000),1000,,-3.14/2,-3.14*3/2”的运行结果为__________。 15． 使用Circle方法在窗体Form1上以（25，25）为圆心、20为半径画圆，相应

的代码为__________________。 16． 设置图片框的_____________属性为____________，则所产生的图形或文本为

持久图形。

17． 使用___________方法可设置绘图区的坐标比例，与其相关的属性有

______________、____________、______________和___________。

18． 要在图片框控件Pic3的中央画一个半径为2000缇的红色圆形，画圆语句为

________________。 19． “pi=3.14159265：Circle(1500,1500),1000,－pi/3,－pi/2”语句画出的是___________。 20． 执行“Line(500,500)－Step(1000,0)：Line－Step(,1000)：Line－Step(—1000,0)： Ｌine－Step(0,1000)”语句画出的是_________________。 21． 执行___________-语句可以清除图片框Picture3内的图片。 22． “Scale(0,0)—(100,100)：Form1.Line(20,20)－(50,50)，，B”语句画出的是

____________________。

23． Microsoft Windows Common Control－26.0部件中的Animation控件用来播放

______________文件，用该控件的_____________-方法可打开一个.avi文件，用________________方法可在该控件中播放.avi控件。

24． 要使Mmcontrol控件自动启用控件中的按钮，应设置_____________属性为True；

要开始播放媒体文件，就设置____________属性的值为___________；要停止播放，则应设置该属性的值为______________。

25． Mmcontrl控件的____________-属性用来指定打开或保存的文件，运行时要改变该

属性，必须先_____________，然后才能重新打开该控件。

8.3 上 机 实 习

8.3.1 题目 一、编程

1． 利用图像框空件完成简单的动画。要求图片在窗体上随机跳动。 2． 利用Line方法在窗体上画出随机射线。

3． 用Pset方法绘制圆的渐开线。圆的渐开线可以用以下参数方程来表示： x = b(cost +t sint) y = b(sint – t xost)

4. 做函数“Exp(5/x) *Sin(2 * x)”的曲线 5．一条正在运动的帆船。

6．用Timer设计一个小指针式的小时钟。 7．用MMControl控件设计一个媒体播放器。 二、改错或填充

1． 以下程序要求实现窗体从左至右改变背景色。式填空。

Private Sub Command1_Click() DrawWidth = 2

X = Form1.ScaleWidth Y = Form1.ScaleHeight ScaleMode = Twip DrawStyle = Solid FillStyle = Transparent For I = 0 To x Nest I End Sub

2. 窗体中有图片框（Picture1）和计时器（Timer1）两个控件，运行程序时，将图片加载到图片框中，然后图片框以每两秒一次的速度向窗体的右下角移动，每次向左、向右移动100缇（1/20像素）。试填空。

Private Sub Form_Load()

Picture1.Picture = LoadPicture(“c:\\pic\\ball.ico”) .Interval = 2000 End Sub

Private Sub Timer1_Timmer() Static x, y As Integer

X = x+100 Y =y+100

Picture1.Move End Sub

3. 给定的程序要在窗体上画一个圆柱形，如图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 (1900,700),1000 , , , 3/5 End Sub

4. 给定程序的功能是：模拟下雪的效果。试改正程序中的错误，使其能实现指定的功能。

Dim Snow(1000,2),Amounty As Integer Private Sub Form_Load() Form1.Show DoEvents Rnadomize 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(Do Events =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 Loop End Sub

Private Sub Form_MouseDown(button As Integer, shif As Integer, x As Single, y As Single)

Unload Me End Sub

Picture1.Move End Sub

3. 给定的程序要在窗体上画一个圆柱形，如图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 (1900,700),1000 , , , 3/5 End Sub

4. 给定程序的功能是：模拟下雪的效果。试改正程序中的错误，使其能实现指定的功能。

Dim Snow(1000,2),Amounty As Integer Private Sub Form_Load() Form1.Show DoEvents Rnadomize 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(Do Events =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 Loop End Sub

Private Sub Form_MouseDown(button As Integer, shif As Integer, x As Single, y As Single)

Unload Me End Sub

本文来源：https://www.bwwdw.com/article/pvk2.html