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