第10章习题答案

1．用Cls方法能够清除窗体或图片框中用picture属性设置的图形。

2．picture图片框既可用来显示图片和绘制图形，也可用print方法来显示文字。

3．移动框架时框架内控件也跟随移动，所以框架内各控件的left、top属性值也随之改变。4．框架控件和形状控件都不能响应用户的鼠标单击事件。

5．图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框控件的有关属性值。

6．VB提供的几种标准坐标系的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则需要使用自定义坐标系统。

7．Image和PictureBox的Autosize属性的功能不同。

8．当Scale方法不带参数时，则采用默认坐标系。

9．使用Line方法画矩形时，必须在指令中使用关键字B和F。

10．Circle方法正向采用顺时针方向。

二、选择题

1．改变控件在窗体中的左右位置应修改该控件的属性。

A．Top B．Left C．Width D．Right

2．重新定义图片框控件的坐标系统，可采用该图片框的方法。

A．Scale B．ScaleX C．ScaleY D．SetFocus

3．若在图片框上用绘图方法绘制一个圆，则图片框的属性不会对该圆的外观产生影响。

A．BackColor B．ForeColor C．DrawWidth D．DrawStyle

4．形状控件所显示的图形不可能是。

A．圆B．椭圆C．圆角正方形D．等边三角形5．执行form1.scale（10，-20）－（-30，20）语句后，form1窗体坐标系X轴和Y轴的正方向是。

A．向左和向下B．向右和向上C．向左和向上D．向右和向下6．对象的边框类型由属性设置。

A．DrawWidth B．DrawStyle C．Borderstyle D．ScaleMode 7．Cls可清除窗体和图片框中的内容。

A．运行时输出的文字和图形B．设计时放置的控件

C．Picture属性设置的背景图案D．以上三项

8．下列用Line方法绘制红色实心矩形的语句正确的是。

A．Line（10，10）-Step（50，50），RGB（255，0，0），BF

B．Line（10，10）-Step（60，60），B，RGB（255，0，0），BF

C．Line（10，10）-Step（60，60），RGB（255，0，0），B

D．Line Step（10，10）-Step（50，50），BF

9. 要清除PictureBox控件中的图形，必须用哪条命令。

A. Picture1.Picture = LoadPicture()

B. Picture1.Picture = ""

C. Picture1.Picture = LoadPicture("")

D. kill Picture1.Picture

10．用Scale方法改变了窗体坐标系以后，被改变了属性值的窗体属性名是。A．ScaleWidth B．Width C．Height D．DrawMode

1．以图片框pic1的中心位置为圆心，以700为半径在pic1上画一个圆的方法是_____________________________________________。

2．画图语句picture1.circle（800，1000），500的含义是。

3．使用Scale方法建立窗体Form1的用户坐标系统，其中窗体左上角坐标为（-200，250），右下角坐标为（300，-100），具体形式为。

4. PictureBox控件可通过设置其属性为True，使图片框可自动调整大小以适应图片的大小；而Image控件可通过设置其________________________属性为True，使其加载的图片能自动调整大小以适应Image。

四、程序阅读题

1．写出下列各段程序运行的结果。

Private Sub Command1_Click()

Dim x As Double, y As Double

x = Width / 4

y = Height / 4

Line (x, y)-Step(1000, 1000), , B

Line -(x, y)

End Sub

2．画出下列各段程序运行的结果。

Private Sub Picture1_MouseDown(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

x0 = X: y0 = Y

End Sub

Private Sub Picture1_MouseUp(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

If Picture1.FillStyle <> 0 Then

Picture1.FillStyle = 0

Else

Picture1.FillStyle = 1

End If

Picture1.Line (x0, y0)-(X, Y), RGB(255, 255, 0), B

End Sub

五、程序填空题

1. 完成一个行星程序的设计，一个蓝色的小圆围绕红色大圆沿椭圆轨道运行。椭圆方程为：x=x0+rx*cos（alfa），y=y0+ry*sin（alfa），其中X0，Y0为椭圆圆心坐标，RX为水平半径，RY为垂直半径，ALFA为圆心角。具体要求如下：

1）在窗体中引入一个合适大小的形状控件SHAPE2，将SHAPE2的SHAPE属性设置为圆形、蓝色。

2）TIMER的时间间隔为0.1秒。

3）代码窗口中的内容填充完整。

效果如图10.17所示。

图10.17 行星运动

Dim rx As Single, ry As Single

Dim alfa As Single

Private Sub Form_Load() ' 窗体最大化充满屏幕

Form1.Left = 0

Form1.Top = 0 Form1.Width = (1) Form1.Height = (2) ' 将SHAPE1居中

Shape1.Left = Form1.ScaleWidth / 2 - Shape1.Width / 2

Shape1.Top = Form1.ScaleHeight / 2 - Shape1.Height / 2

rx = Form1.ScaleWidth / 2 - Shape1.Width / 2

ry = Form1.ScaleHeight / 2 - Shape1.Height / 2 ' 将SHAPE2的起始位置

定位在水平轴的0度位置上

Shape2.Left = Form1.ScaleWidth / 2 + rx - Shape2.Width / 2

Shape2.Top = Form1.ScaleHeight / 2 - Shape2.Height / 2

End Sub

Private Sub Timer1_Timer()

alfa = alfa + 0.05

x = Form1.ScaleWidth / 2 + rx * Cos(alfa)

y = Form1.ScaleHeight / 2 + ry * Sin(alfa) Shape2.Left = (3) Shape2.Top = (4)

End Sub

2. 下面是一个“画板”程序，程序运行结果如

图10.18所示。单击“颜色”按钮（Command1）

打开颜色对话框，实现对绘图笔颜色的设置，单

击“清除”按钮（Command2）则清除图片框中

的图形，使用单选按钮选择线型粗细（Option1）

设置为1磅和（Option2）设置为3磅，根据选择

的线型的粗细、颜色，用鼠标的左键模拟笔在绘

图区随意绘图。

Private Sub Command1_Click()

' 设置图片框前景颜色 CommonDialog1.Action = 3 (1)

End Sub

Private Sub Command2_Click()

' 清除绘制图形 Picture1.Cls

End Sub

Private Sub Option1_Click()

' 选择线宽

Picture1.DrawWidth = 1

End Sub 图10.18 “画板”程序运行效果

Private Sub Option2_Click() ' 选择线宽

Picture1.DrawWidth = 3

End Sub ' 鼠标按下，确定当前坐标

Private Sub Picture1_MouseDown(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

(2)

(3)

End Sub ' 按下鼠标左键，移动鼠标画线

Private Sub Picture1_MouseMove(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

If Button = 1 Then (4)

End Sub

六、程序设计题

1．在窗体上画一条正弦曲线，变化范围在0～2π之间。

2．以缇为单位，以窗体中心点为原点，以窗体的高与宽中最小值的1/2为半径画一个半圆（线为蓝色，线粗为2twip，填充色为红色）。

3．x1、y1已声明为模块级变量，鼠标按下的事件过程如下：

Dim x1 As Single, y1 As Single

Private Sub Picture1_MouseDown(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

x1 = x: y1 = y

End Sub

编制事件过程Picture1_MouseUp，使得在图片框控件Pic1上拖动鼠标后，绘制出一个矩形，鼠标按下、抬起的位置分别为矩形斜对角线的定点，矩形轮廓线为红色，矩形内部填充色为绿色。

第10章习题答案

一、判断题

×√×××√√√××

二、选择题

BAADA CAACA

三、填空题

(1)pic1.Circle (pic1.ScaleLeft + pic1.ScaleWidth / 2, pic1.ScaleTop + pic1.ScaleHeight / 2),

700

(2)以图片框(800,1000)为圆心画一个半径为500的圆

(3)Form1.scale （-200，250）-（300，-100）

(4)Autosize stretch

四、程序阅读题

1、窗体宽和高的1/4为起点，画一个连长为1000的正方形，并画出其正向对角线

2、在图片框中交替画出空心和实心的矩形

五、程序填空题

1、

(1)Screen.Width

(2)Screen.Height

(3)X

(4)Y

2、

（1）Picture1.ForeColor= CommonDialog1.Color

（2）If Option1.Value=True Then Picture1.DrawWidth=1

（3）If Option2.Value=True Then Picture1.DrawWidth=3

（4）Picture1.Pset (x,y)

六、程序设计题

1、

Private Sub Form_Click()

Const Pi = 3.1415926

Dim i As Single

Form1.Scale (0, 1)-(2 * Pi, -1)

Form1.Line (0, 0)-(2 * Pi, 0)

Form1.Line (0, -1)-(0, 1)

For i = 0 To 2 * Pi Step 0.0001

Form1.PSet (i, Sin(i))

Next i

End Sub

2、

Private Sub Form_Click()

Dim r As Single, x As Single, y As Single

x = Form1.ScaleWidth / 2

y = Form1.ScaleHeight / 2

r = x

If r > y Then r = y

Form1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, Form1.ScaleTop + Form1.ScaleHeight / 2), r, vbBlue, -2 * 3.14, -3.14

End Sub

Private Sub Form_Load()

Form1.DrawWidth = 3

Form1.FillStyle = 0

Form1.FillColor = vbRed

End Sub

3、

Dim x1 As Single, y1 As Single

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, yAs Single)

x1 = x: y1 = y

End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Picture1.Line (x1, y1)-(x, y), vbRed, B

End Sub

Private Sub Form_Load()

Picture1.FillStyle = 0

Picture1.FillColor = vbGreen

End Sub