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