（全新）第10章 绘图.docVIP

习题10（绘图） 一、选择题 1．下面哪一类对象具有绘图方法： (A) Image (B) Line (C) PictureBox (D) Frame 2．下列窗体的方法中，哪一个不能画出实际内容： (A) Line (B) Pset (C) Circle (D) Point 3．如果在图片框上使用绘图方法画一个圆，则图片框的属性中，哪个不会对此圆的外观产生影响： (A) BackColor (B) ForeColor (C) DrawWidth (D) DrawStyle 4．如果用长整数H00FF0000来表示颜色，则此颜色为： (A) 红色 (B) 黄色 (C) 蓝色 (D) 绿色 5．下列哪一条语句肯定会引起语法错误： (A) Print int1,Tab(10),int2, (B) Print int1;int3; (C) Print int1,Spc(10);int2 (D) Print int1,int2. 6．调用一次Circle方法，不能画出下面哪个图形： (A) 圆弧 (B) 椭圆弧 (C) 扇形 (D) 螺旋线 二、判断题 1．使用长整型数表示的颜色数比使用RGB函数返回的颜色数多。 2．文本框控件已具备了处理键盘输入的能力，所以当在文本框中进行键盘输入时不会引发任何键盘事件。 3．窗体和图片框的绘图方法所绘制的图形的外观会受对象某些属性的影响。 4．Visual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则必须使用自定义坐标系统。 三、填空题 读下列程序，当单击窗体时，窗体上显示的第一行内容是 （1） ，第二行是 （2） 。 1 Private Sub Form_Click() 2 Dim i As Integer, j As Integer 3 Dim m As Integer, n As Integer 4 Dim a() As Integer 5 Call arry(a) 6 n = UBound(a, 1): m = UBound(a, 2) 7 For i = 1 To m 8 For j = 1 To n 9 Print a(i, j) 10 Next j 11 Print 12 Next 13 End Sub 14 15 Private Sub arry(b() As Integer) 16 Dim i As Integer, j As Integer, k As Integer 17 ReDim b(3, 3) 18 For i = 1 To 3 19 For j = 1 To 3 20 b(i, j) = i * 10 + j 21 Next 22 Next 23 End Sub 四、编程题 1．在窗体上绘制曲线；根据曲线预估一个粗略解，分别使用二分迭代法与牛顿迭代法求方程的最小正根（精度为10-6）。 2．图10.14为李萨如曲线，其方程如下，编程在窗体上绘制此曲线。 （其中a 0） 3．当沿着一个半径为R1的虚拟圆周，使用半径R2画圆（圆心均匀分存于虚拟圆周上），可以得到如图10.15的三种图形。三种图形的条件分别是：（a）R1R2；（b）R1=R2；（c）R1R2。试编程绘制这些图形。 4．编写程序在窗体上绘制如图10.16所示的螺旋线，要求用18条线段填满整个窗体。 5．绘制“分形”图形。如图10.17（a）所示，一条直线段ab，由点c和d三等分，去掉cd段。在线段上方有一点e，与c、d构成等边三角形，连接ce、ed，形成图10.17（b）所示的图形。这个图形由四条线段组成，如果对其中每条线段再进行对ab同样的动作，会产生图10.17（c）所示的图形。这样一直做下去，最后得到类似于图10.18所示的图形。 人们发现了很多类似这样有趣的问题，并且给这些图形取名为：“分形”（Fractal），现在竟然形成了一个专门的学科：“分形图形学”，还用来研究云彩、雨雪的形成过程。 编程在窗体上绘制如图10.18所示的图形。 6．使用递归过程绘制如图10.19所示的“全息”图形。 参考答案 一、选择题 1．C 2．D 3．A 4．C 5．D 6．D 二、判断题 1．× 2．× 3．√ 4．√ 三、填空题 （1）11 （2）12 四、编程题 1．最小正根为0.7408413（程序略，参考例5.21、5.22）。 2． 1 Private Sub Form