2011上海计算机二级vb考试大题_画图专项练习.docVIP

练习1 选择“产生圆” 菜单项，在图形框内按每0.1秒频率随机产生色彩随机变化、半径最大为图形框10%的圆； Private Sub Timer1_Timer() Randomize X = Picture1.ScaleWidth * Rnd Y = Picture1.ScaleHeight * Rnd z = Int(16 * Rnd) r = 0.1 * X Picture1.Circle (X, Y), r, QBColor(z) End Sub 练习2 单击Form2窗体（见图13-4）上的“画图” 菜单项，用Pset方法绘制参数方程： 在之间的图形，其中r为半径，取图形框的高度（或宽度）的一半；选择“返回” 菜单项，回到Form1窗体。 Private Sub Menu21_Click() r = Picture1.ScaleHeight / 2 x0 = Picture1.ScaleWidth / 2 y0 = Picture1.ScaleHeight / 2 For i = 0 To 2 * 3.1415926 Step 0.01 X = r * Cos(4 * i) * Cos(i) + x0 Y = r * Cos(4 * i) * Sin(i) + y0 Picture1.PSet (X, Y) Next i End Sub 练习3 Shape控件可用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形，通过其shape属性可确定所需要的形状，Fillstype属性为形状指定填充的图案，FillColor属性为形状着色。由于本题要求设置成一个圆，则其Shape属性设置为3；要求圆中无填充图案，所以FillStyle属性设置为0；要求圆为红色，所以FillColor设置为VbRed。 练习4 单击“绘图”命令按钮，定义Picture1的坐标系为（-2，2）-（2，-2），在图形框Picture1绘制方程y=1-x2和y=x所包围的面积图形（两线交点对应x的值约为-1.6和0.6，在区间[-1.6，0.6]用Line方法，区间外用Pset方法）。 Private Sub Menu11_Click() Picture1.Scale (-2, 2)-(2, -2) Picture1.Line (-2, 0)-(2, 0) Picture1.Line (0, 2)-(0, -2) Picture1.Line (-2, -2)-(2, 2) For i = -2 To 2 Step 0.001 Picture1.PSet (i, 1 - i * i) Next i For i = -1.6 To 0.6 Step 0.02 Picture1.Line (i, i)-(i, 1 - i * i) Next i End Sub 图13-9 程序运行界面 练习5 选择“画图” 菜单项，定义Picture1的坐标系为（-10，10）-（10，-10），在图形框Picture1绘制一个有缺口的饼图（缺口的角度为900）；并按1秒的频率改变饼图的颜色； 窗体2程序代码如下： Private Sub Menu11_Click() pi = 3.1415926 Picture1.Scale (-10, 10)-(10, -10) Picture1.FillStyle = 4 Picture1.Circle (1, 1), 7, RGB(87, 0, 0), -2 * pi, -0.5 * pi Picture1.Circle (0, 0), 7, , -pi / 2, -2 * pi Timer1.Enabled = True End Sub Private Sub Timer1_Timer() pi = 3.1415926 Randomize a = Int(15 * Rnd) Picture1.FillStyle = 0 Picture1.Circle (0, 0), 7, QBColor(a), -pi / 2, -2 * pi a = Int(8 * Rnd) Picture1.FillStyle = a Picture1.FillColor = QBColor(a) Picture1.Circle (0, 0), 7, QBColor(a), -pi / 2, -2 * pi End Sub 练习6 单击“散点图”按钮，定义窗体Form2的坐标系为（-10，115）-（115，-10），绘制X轴和Y轴，随机产生5个100以内的整数，并用此数据绘制散点图，散点图两点之间间隔20个单位。 窗体2程序代码如下： Pr