程序编写-作图

五、程序题（本题共30分，每小题10分） 有关作图的程序编写题 窗体中有一个图片框。编写程序，要求单击图片框后，图片框成为正方，设置合适的坐标系，显示如图所示图形。已知图中半圆直径是图片框宽度的一半。 Private Sub Picture1_Click() Picture1.Width = Picture1.Height Picture1.Scale (-2, 2)-(2, -2) Picture1.Circle (0, 0), 1, , -6.28, -3.14 Picture1.Line (1, 0)-(0, -2) Picture1.Line -(-1, 0) End Sub 有关作图的程序编写题 窗体中有一个图片框。编写程序，要求单击图片框后，图片框成为正方，设置合适的坐标系，显示如图所示图形。已知图中半圆直径是图片框宽度的一半。 Private Sub Picture2_Click() Picture2.Width = Picture2.Height Picture2.Scale (-2, 2)-(2, -2) Picture2.Circle (0, 0), 1, , -6.28, -3.14 Picture2.Line (1, 0)-(0, 1) Picture2.Line -(-1, 0) End Sub 有关作图的程序编写题 窗体中有一个图片框。编写程序，要求单击图片框后，图片框成为正方，设置合适的坐标系，显示如图所示图形。已知图中椭圆内切于矩形，矩形的高宽分别是图片框宽度的1 / 3和2 / 3。 Private Sub Picture3_Click() Picture3.Width = Picture3.Height Picture3.Scale (-3, 3)-(3, -3) Picture3.Line (2, 1)-(-2, -1), , B Picture3.Circle (0, 0), 2, , , , 0.5 End Sub 有关作图的程序编写题 窗体中有一个图片框。编写程序，要求单击图片框后，图片框成为正方，设置合适的坐标系，显示如图所示图形。已知图中半圆直径是图片框宽度的一半，实心矩形的高宽也分别是图片框宽度的1 / 4和1 / 2。 Private Sub Picture4_Click() Picture4.Width = Picture4.Height Picture4.Scale (-2, 2)-(2, -2) Picture4.Circle (0, 0), 1, , 3.14, 6.28 Picture4.Line (-1, 0)-(1, 1), , BF End Sub 有关作图的程序编写题 窗体中有一个图片框。编写程序，要求单击图片框后，图片框成为正方，设置合适的坐标系，显示如图所示图形。已知图中椭圆长短径分别是图片框宽度的2 / 3和1 / 3，实心矩形的高宽也分别是图片框宽度的2 / 3和1 / 3。 Private Sub Picture5_Click() Picture5.Width = Picture5.Height Picture5.Scale (-3, 3)-(3, -3) Picture5.Line (1, 2)-(-1, -2), , BF Picture5.Circle (0, 0), 2, , , , 0.5 End Sub