《VB语言画圆程序设计.ppt

下载文档

36
0
约2.9千字
约 13页
2017-01-04 发布于四川
举报
版权申诉
保障服务

《VB语言画圆程序设计.ppt

1、本文档共13页，可阅读全部内容。
2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

《VB语言画圆程序设计

由圆组成的标志： 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语言画圆程序设计 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 画圆语句的格式 Private Sub Form_Click() Circle(2500,2000),1000End Sub 圆心位置半径大小 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. · 圆心(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 格式: Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Private Sub Form_Click() Circle(2000,1500),800 End Sub 1、启动VB程序，新建工程文件，调整“窗体窗口”到合适大小；将“Load”事件过程修改为“Click”事件过程。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Private Sub Form_Click() Circle(2000,1500),800 Circle(3000,2500),1000 … … End Sub 1、用复制、粘贴的方法，画出四个圆。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. RGB（0，0，0）表黑色 RGB（255，0，0）表红色 RGB（0，255，0）表绿色 RGB（0，0，255）表蓝色 RGB（255，255，255）表白色 … … 了解更多颜色,请看学案。三基色图黄 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 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 画红圆画绿圆画蓝圆 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copy