VB语言画圆程序设计公开课一等奖省优质课大赛获奖课件

VB语言画圆程序设计1由圆组成标志：2Circle(x,y),r画圆语句格式PrivateSubForm_Click()

Circle(2500,),1000

EndSub圆心位置半径大小3圆心与半径·圆心(2500,)XYO·····1000300040005000·····400010003000PrivateSubForm_Click()

Circle(2500,),1000

EndSub程序:运行结果:半径1000Circle(x,y),r格式:4实践任务一(参考学案要求)2、编写程序,画以下指定圆心（，1500）圆:PrivateSubForm_Click()

Circle(,1500),800EndSub1、开启VB程序，新建工程文件，调整“窗体窗口”到适当大小；将“Load”事件过程修改为“Click”事件过程。5实践任务二(参考学案要求)2、修改四个圆圆心，体会圆位置改变。PrivateSubForm_Click()

Circle(,1500),800Circle(3000,2500),1000……EndSub1、用复制、粘贴方法，画出四个圆。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画圆语句展现颜色方法PrivateSubForm_Click()

Circle(2500,),1000,RGB(255,0,0)

Circle(5000,4000),1000,RGB(0,255,0)

Circle(5500,3000),1000,RGB(0,0,255)EndSub画红圆画绿圆画蓝圆8实践任务三

(参考学案要求)1、给刚才画四个圆加上RGB颜色参数，显示不一样颜色；2、改变RGB颜色参数，看一看相对应圆是否改变颜色.9实践任务四(参考学案要求)1、基本任务:

设计由若干个彩圆组成有规律或创意图案;2、探索性任务(选做):

有能力同学，依据学习资料提醒，可尝试画“奥运五环”等更有创意或复杂图案。10Circle(,2500),1000Circle(4500,2500),1000Circle(7000,2500),1000Circle(3250,3500),1000Circle(5750,3500),100011Inputbox函数

r=inputbox(“请输入圆半径：”，“输入圆半径”）其作用是显示一个提醒输入圆半径对话框，并把用户所输入圆半径值赋给左边变量r。12小结圆心和半径是控制圆位置和大小关键;书写程序要严格按照语法规则进行;13直线粗细改变PrivateSubForm_Load()

Picture1.AutoRedraw=True

Picture1.DrawWidth=1

Picture1.Line(0,0)-(100,500),vbRed

Picture1.DrawWidth=5

Picture1.Line-(100