VB语言画圆程序设计.ppt

由圆组成的标志： Circle (x, y) , r 圆心与半径 实践任务一 (参照学案要求) 2、编写程序,画如下指定圆心（2000，1500）的圆: 实践任务二 (参照学案要求) 2、修改四个圆的圆心，体会圆的位置变化。 RGB(a,b,c)颜色参数设置 ①RGB颜色参数的格式：RGB（a,b,c) a,b,c 的值为：0-255 画圆语句呈现颜色的方法 实践任务三 (参照学案要求) 1、给刚才画的四个圆加上RGB颜色参数，显示不同颜色； 实践任务四 (参照学案要求) 小结 * * VB语言画圆程序设计 画圆语句的格式 Private Sub Form_Click() Circle(2500,2000),1000End Sub 圆心位置 半径大小 · 圆心(2500,2000) X Y O · · · · · 1000 2000 3000 4000 5000 · · · · · 4000 1000 2000 3000 Private Sub Form_Click()  Circle(2500,2000),1000 End Sub 程序: 运行结果: 半径1000 Circle(x, y), r 格式: Private Sub Form_Click()  Circle(2000,1500),800 End Sub 1、启动VB程序，新建工程文件，调整“窗体窗口”到合适大小；将“Load”事件过程修改为“Click”事件过程。 Private Sub Form_Click() Circle(2000,1500),800 Circle(3000,2500),1000 … … End Sub 1、用复制、粘贴的方法，画出四个圆。 RGB（0，0，0） 表黑色 RGB（255，0，0） 表红色 RGB（0，255，0） 表绿色 RGB（0，0，255） 表蓝色 RGB（255，255，255）表白色 … … 了解更多颜色,请看学案。 三基色图 黄 Private Sub Form_Click()  Circle(2500,2000),1000 ,RGB(255,0,0)  Circle(5000,4000),1000 ,RGB(0,255,0) Circle(5500,3000),1000 ,RGB(0,0,255) End Sub 画红圆 画绿圆 画蓝圆 2、改变RGB颜色参数，看一看相对应的圆是否改变颜色. 1、基本任务: 设计由若干个彩圆组成的有规律或创意的图案; 2、探索性任务(选做): 有能力的同学，根据学习资料的提示，可尝试画“奥运五环”等更有创意或复杂的图案。 Circle (2000, 2500), 1000 Circle (4500, 2500), 1000 Circle (7000, 2500), 1000 Circle (3250, 3500), 1000 Circle (5750, 3500), 1000 Inputbox函数 r=inputbox (“请输入圆的半径：”，“输入圆半径”） 其作用是显示一个提示输入圆半径的对话框，并把 用户所输入圆半径的值赋给左边的变量r。 圆心和半径是控制圆位置和大小的关键; 书写程序要严格按照语法规则进行; *