第10章习题答案

1、一、判断题1用Cls方法能够清除窗体或图片框中用picture属性设置的图形。2picture图片框既可用来显示图片和绘制图形，也可用print方法来显示文字。3移动框架时框架内控件也跟随移动，所以框架内各控件的left、top属性值也随之改变。4框架控件和形状控件都不能响应用户的鼠标单击事件。5图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框控件的有关属性值。6VB提供的几种标准坐标系的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则需要使用自定义坐标系统。7Image和PictureBox的 Autosize属性的功能不同。8当Scal

2、e方法不带参数时，则采用默认坐标系。9使用Line方法画矩形时，必须在指令中使用关键字B和F。10Circle方法正向采用顺时针方向。二、选择题1改变控件在窗体中的左右位置应修改该控件的 属性。ATopBLeftCWidthDRight2重新定义图片框控件的坐标系统，可采用该图片框的 方法。AScaleBScaleXCScaleYDSetFocus3若在图片框上用绘图方法绘制一个圆，则图片框的 属性不会对该圆的外观产生影响。ABackColorBForeColorCDrawWidthDDrawStyle4形状控件所显示的图形不可能是 。A圆B椭圆C圆角正方形D等边三角形5执行form1.sca

3、le（10，-20）（-30，20）语句后，form1窗体坐标系X轴和Y轴的正方向是 。A向左和向下B向右和向上C向左和向上D向右和向下6对象的边框类型由 属性设置。ADrawWidthBDrawStyleCBorderstyleDScaleMode7Cls可清除窗体和图片框中的 内容。A运行时输出的文字和图形B设计时放置的控件 CPicture属性设置的背景图案D以上三项8下列用Line方法绘制红色实心矩形的语句正确的是 。ALine（10，10）-Step（50，50），RGB（255，0，0），BFBLine（10，10）-Step（60，60），B，RGB（255，0，0），BFCLi

4、ne（10，10）-Step（60，60），RGB（255，0，0），BDLine Step（10，10）-Step（50，50），BF9. 要清除PictureBox控件中的图形，必须用哪条命令 。A. Picture1.Picture = LoadPicture()B. Picture1.Picture = C. Picture1.Picture = LoadPicture()D. kill Picture1.Picture10用Scale方法改变了窗体坐标系以后，被改变了属性值的窗体属性名是 。 AScaleWidthBWidthCHeight DDrawMode三、填空题1以图片框pi

5、c1的中心位置为圆心，以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

6、As Double, y As Double x = Width / 4 y = Height / 4 Line (x, y)-Step(1000, 1000), , B Line -(x, y)End Sub2画出下列各段程序运行的结果。Private Sub Picture1_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single) x0 = X: y0 = YEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, _Shift As Intege

7、r, 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), BEnd Sub五、程序填空题1. 完成一个行星程序的设计，一个蓝色的小圆围绕红色大圆沿椭圆轨道运行。椭圆方程为：x=x0+rx*cos（alfa），y=y0+ry*sin（alfa），其中X0，Y0为椭圆圆心坐标，RX为水平半径，RY为垂直半径，ALFA为圆心角。具体

8、要求如下：1）在窗体中引入一个合适大小的形状控件SHAPE2，将SHAPE2的SHAPE属性设置为圆形、蓝色。2）TIMER的时间间隔为0.1秒。3）代码窗口中的内容填充完整。效果如图10.17所示。图10.17 行星运动Dim rx As Single, ry As SingleDim alfa As SinglePrivate Sub Form_Load() 窗体最大化充满屏幕Form1.Left = 0Form1.Top = 0Form1.Width = (1) Form1.Height = (2) 将SHAPE1居中Shape1.Left = Form1.ScaleWidth / 2

9、- Shape1.Width / 2Shape1.Top = Form1.ScaleHeight / 2 - Shape1.Height / 2rx = Form1.ScaleWidth / 2 - Shape1.Width / 2ry = Form1.ScaleHeight / 2 - Shape1.Height / 2 将SHAPE2的起始位置定位在水平轴的0度位置上Shape2.Left = Form1.ScaleWidth / 2 + rx - Shape2.Width / 2Shape2.Top = Form1.ScaleHeight / 2 - Shape2.Height / 2E

10、nd SubPrivate Sub Timer1_Timer()alfa = alfa + 0.05x = Form1.ScaleWidth / 2 + rx * Cos(alfa)y = Form1.ScaleHeight / 2 + ry * Sin(alfa)Shape2.Left = (3) Shape2.Top = (4) End Sub图10.18 “画板”程序运行效果2. 下面是一个“画板”程序，程序运行结果如图10.18所示。单击“颜色”按钮（Command1）打开颜色对话框，实现对绘图笔颜色的设置，单击“清除”按钮（Command2）则清除图片框中的图形，使用单选按钮选择线型

11、粗细（Option1）设置为1磅和（Option2）设置为3磅，根据选择的线型的粗细、颜色，用鼠标的左键模拟笔在绘图区随意绘图。Private Sub Command1_Click() 设置图片框前景颜色 CommonDialog1.Action = 3 (1) End SubPrivate Sub Command2_Click() 清除绘制图形 Picture1.ClsEnd SubPrivate Sub Option1_Click() 选择线宽 Picture1.DrawWidth = 1End SubPrivate Sub Option2_Click() 选择线宽 Picture1.Dr

12、awWidth = 3End 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在窗体上画一条正弦曲线，变

13、化范围在02之间。2以缇为单位，以窗体中心点为原点，以窗体的高与宽中最小值的1/2为半径画一个半圆（线为蓝色，线粗为2twip，填充色为红色）。3x1、y1已声明为模块级变量，鼠标按下的事件过程如下：Dim x1 As Single, y1 As SinglePrivate Sub Picture1_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single)x1 = x: y1 = yEnd Sub编制事件过程Picture1_MouseUp，使得在图片框控件Pic1上拖动鼠标后，绘制出一个矩形，鼠标按下、

14、抬起的位置分别为矩形斜对角线的定点，矩形轮廓线为红色，矩形内部填充色为绿色。第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的正方形，

15、并画出其正向对角线2、 在图片框中交替画出空心和实心的矩形五、 程序填空题1、(1) Screen.Width(2) Screen.Height(3) X(4) Y2、（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.Dim i

16、 As SingleForm1.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 iEnd Sub2、Private Sub Form_Click()Dim r As Single, x As Single, y As Singlex = Form1.ScaleWidth / 2y = Form1.ScaleHeight / 2r = xIf r y Then r = yF

17、orm1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, Form1.ScaleTop + Form1.ScaleHeight / 2), r, vbBlue, -2 * 3.14, -3.14End SubPrivate Sub Form_Load()Form1.DrawWidth = 3Form1.FillStyle = 0Form1.FillColor = vbRedEnd Sub3、Dim x1 As Single, y1 As SinglePrivate Sub Picture1_MouseDown(Button As Integer, Shift As In