实验1 考察Visual Basic的图形能力.docVIP

实验1 考察Visual Basic的图形能力 1.1实验目的 通过本实验了解Visual Basic的基本图形能力，掌握建立图形坐标系的方法；掌握图形控件和图形方法；能绘制简单几何图形。 1.2实验内容 1、在窗体上放置一个图形框，两个命令按钮，设置标题为“画图”和“返回”，如下图所示。单击“画图”按钮，在图形框内绘制参数方程的图形；当单击“返回”按钮，程序结束。程序如下： Const pi = 3.14159 Dim a, e, f Dim x1, y1, x2, y2, d As Integer d = 120 Picture1.Cls Picture1.Scale (0, 0)-(640, 480) For a = 0 To 4 * pi Step pi / 60 e = d * (1 + 1 / 2 * Cos(2.5 * a)) x1 = 320 + e * Cos(a) x2 = 320 + e * Cos(a + pi / 6) y1 = 240 - e * Sin(a) y2 = 240 - e * Sin(a + pi / 8) Picture1.Line (x1, y1)-(x2, y2), QBColor(12) Next a 2、编一个循环程序，用line控件对象在屏幕上随机产生20条长度、颜色、宽度不同的直线，如下图所示（提示：在窗体上要先设置一个line控件对象，使其Index值为0）。 程序如下： Private Sub Form_Load() For i = 1 To 20 Load Line1(i) ‘ 添加控件 Line1(i).BorderWidth = Rnd * 10 + 1 Line1(i).BorderColor = QBColor(Rnd * 15) Line1(i).X1 = Form1.Width * Rnd Line1(i).X2 = Form1.Width * Rnd Line1(i).Y1 = Form1.Height * Rnd Line1(i).Y2 = Form1.Height * Rnd Line1(i).Visible = True Next i End Sub 3、用Circle方法绘制如下图所示图形。程序如下： Private Sub Command1_Click() For i = 1 To 20 x = i * 100 + Width / 4 y = Form1.Height / 2 r = i * 50 Circle (x, y), r Next i End Sub 4、设计一个程序以动画方式显示如下图所示图形。程序如下： Private Sub Form_Click() Scale (0, 0)-(20, 20) For i = 0 To 7 Step 0.1 x = 10 + i * Cos(i) y = 8 + i * Sin(i) Line (10, 8)-(x, y) Next i End Sub 5、在窗体上用Pset画10个随机点,用Line画10条随机线，用Circle画10个随机圆，随机值应与窗体的宽度和高度相关。点的大小、线的粗细以及颜色均随机产生。也可选择产生自定义的图案。请写出相应程序。 1.3实验报告要求 1、双击“实验报告模板”，新建一个实验报告文档； 2、按照表格要求填写报告单表头； 3、按照实验要求进行试验，随时把屏幕关键截图存入实验记录表格，并写下实验步骤； 4、最后讨论遇见的相关问题和解决办法； 5、提交到指定地点。 1.4思考题 1、Visual Basic的基本图形能力如何？ 2、绘制简单几何图形的基本方法。 实验2 计算机图形变换程序设计 2.1实验目的 通过本实验了解计算机图形变换的基本原理，掌握计算机图形变换的基本方法，能完成简单的图形变换程序设计。 2.2实验内容 1、设计一个如图所示的图形，然后可以将其任意平移。参考程序如下： Dim x1%, x2%, y1%, y2% ----------------------------------- Private Sub Form_Load() 请先将窗体的AutoReDraw属性设为True Scale (-320, 240)-(320, -240) Cls Line (-320, 0)-(32