设计13 程序绘图初步
1、新建一个标准EXE工程，将窗体的高度设为4500，宽度设为7500（默认单位是缇）。我们先画一条从原点出发到屏幕中间的直线来感受一下系统坐标系（把代码写在窗体的单击事件过程中）：
Line (0, 0)-(2000, 2000)
运行并单击表单看看。
图15 感受系统坐标系
看到这个效果，你能说出系统坐标系的原点位置、x轴的方向和y轴的方向吗？
其实呀，对象的Left、Top就是它的左上角的坐标；我们可以用对象的Move方法来移动该对象
Move 横坐标，纵坐标
就是同时改变对象的Left、Top属性值。
2、我们再以(2000,2000)为中心、1000为半径画一个圆（代码加在画线的代码后面得了）：
Circle (2000, 2000), 1000
26
3、上面两句画图的代码再接着加的参数就是颜色，用红绿蓝三原色配置，每种颜色的深度用0~255的整数表示。现在把两句代码改成：
Line (0, 0)-(2000, 2000), RGB(255, 0, 0) Circle (2000, 2000), 1000, RGB(0, 0, 255)
运行看看。
4、试着对画线的代码后面再加B或BF，看看效果。加B画的是什么？加BF又怎么不一样？
5、现在在窗体右边加上一个图片框对象，放大一些，注意它的名称是Picture1，在图片框对象的单击事件过程中写上如下的代码：
Picture1.Line (0, 0)-(2000, 2000), RGB(255, 0, 0), B Picture1.Circle (2000, 2000), 1000, RGB(0, 0, 255)
运行后分别在窗体和图片框上单击，效果如下图。
图16 画矩形和圆
画线、画圆都是方法。方法是一段程序代码。这里用到的方法是系统提供的，我们也可以自己编写方法，那是后话。方法前不加对象默认是窗体的方法，加对象就是那个对象的方法。
27
小变通：
1、CLS是清屏方法，你能把它分别用于窗体和图片框（把画的图清掉）吗？ 2、上面代码中的数值都是用的常量，其实可以用变量或值是数的式子（数值型表达式）。告诉你这一点，你能画出10个同心圆（代码别太笨）吗？
28
动 作 篇
29
?第七单元
设计14 试让简单重复
Print是调用窗体对象的一个方法Form1.Print的简写。Cls是清屏方法，Move是移动方法；图片对象也有这些方法。
窗体对象后面跟的是对该方法未尽事宜的进一步交代，叫参数。在命令按钮的单击事件过程中写上
Print “简单”
就会在窗体上显示“简单”两个字。
要让“简单”这两个字重复9次，不必写9个“简单”，只需要让打印一个“简单”这个简单动作重复9次。用For循环来组织这个工作，代码为： For n=1 to 9 ?n是循环变量，初值为1，终值为9，每次步进1 Print “简单” Next n
这样每次都会换行，在打印项后面加分号就不会换行。如果想打完后再换行，就把代码改成
For n=1 to 9
Print “简单”； ?不换行，下次紧接着输出 Next n
Print ?换行
这样每按一次按钮就输出一行。要想按一次就输出9行，就再用一个循环把上面的动作重复9次。
For m=1 to 9
For n=1 to 9
Print “简单”； Next n Print
Next m
30