资源描述：
《最新VB课程设计报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Visualbasic课程设计报告书VB各种图形设计单位华夏学院分院(系)专业信息工程学号学生姓名指导教师完成日期201年6月7日22一、概述VB图形设计是一个通过利用坐标系统和按钮，使图形框里显示出不同颜色和不同位置的图形。二、功能需求分析（1）运行程序后，由导入界面等待3秒后进入程序，出现主要按钮。（2）出现按钮：一朵花，十朵花，一圆环，十圆环，十正方形等等。（3）通过分别单击这些按钮，可以在图形框里面分别显示不同位置，不同颜色的与按钮相符合的图案。（4）当需要清除当前图形框里面的图形可以单击
2、“清除”按钮。（5）而且同一按钮的当多次单击后，也可以出现不同位置，不同颜色的同种图形，这是通过随即函数来实现的，但需要规定图形的半径等的大小限制条件，以免图形无法显示在图形框中。（6）整个程序结束后，要退出只需单击“结束”按钮，则进入结束界面。三、系统设计22针对于VB各种图形设计系统所要完成的各种功能，这里将介绍一下实现它们的设计思想：（1）欢迎界面主要是为了介绍制作人信息和一些对程序的简单概括。此界面当运行后2秒自己进入下个窗体。（2）主界面这个界面是本次课程设计的核心部分，里面包括了对于V
3、B各种图形设计的按钮和连接按钮，可以展示通过单击来实现对于图形的变化情况。（3）结束界面当然作为一个完成的程序，有了好的开始和系统的程序，必须要做一个作为结束的界面。四、技术实现及使用说明（1）欢迎界面22相关代码为：PrivateSubTimer1_Timer()Form1.HideForm2.ShowTimer1.Enabled=FalseEndSub时钟的时间设计为2秒。（2）主界面相关代码：一朵花：PrivateSubCommand1_Click()P.ClsDimr%,x%,y%P.Fi
4、llColor=QBColor(Rnd*15)P.FillStyle=022r=Rnd*500P.DrawWidth=1x=Rnd*5415:y=Rnd*4000P.Circle(x-1.5*r,y-1.5*r),1.6*rP.Circle(x-1.5*r,y+1.5*r),1.6*rP.Circle(x+1.5*r,y-1.5*r),1.6*rP.Circle(x+1.5*r,y+1.5*r),1.6*rP.FillColor=QBColor(Rnd*10)P.Circle(x,y),rEndS
5、ub十朵花：PrivateSubCommand2_Click()P.ClsDimr%,y%,x%,a%,b%,c%,d%,e%,f%,g%,h%,i%,j%r=Rnd*500P.DrawWidth=1x=Rnd*5000:y=Rnd*4000:a=Rnd*3000:b=Rnd*3000:c=Rnd*4000:d=Rnd*4000:e=Rnd*4000:f=Rnd*4000:n=Rnd*300:t=Rnd*300P.FillStyle=0P.FillColor=QBColor(Rnd*15)P.Ci
6、rcle(x-1.5*(r+n)+a,y-1.5*(r+n)+b),1.6*(r+n)22P.Circle(x-1.5*(r+n)+a,y+1.5*(r+n)+b),1.6*(r+n)P.Circle(x+1.5*(r+n)+a,y-1.5*(r+n)+b),1.6*(r+n)P.Circle(x+1.5*(r+n)+a,y+1.5*(r+n)+b),1.6*(r+n)P.FillColor=QBColor(Rnd*10)P.Circle(x+a,y+b),r+nP.FillStyle=0P.Fi
7、llColor=QBColor(Rnd*15)P.Circle(x-1.5*r,y-1.5*r),1.6*rP.Circle(x-1.5*r,y+1.5*r),1.6*rP.Circle(x+1.5*r,y-1.5*r),1.6*rP.Circle(x+1.5*r,y+1.5*r),1.6*rP.FillColor=QBColor(Rnd*10)P.Circle(x,y),rP.FillStyle=0P.FillColor=QBColor(Rnd*15)P.Circle(x-1.5*(r+t)-c
8、,y-1.5*(r+t)+b),1.6*(r+t)P.Circle(x-1.5*(r+t)-c,y+1.5*(r+t)+b),1.6*(r+t)22P.Circle(x+1.5*(r+t)-c,y-1.5*(r+t)+b),1.6*(r+t)P.Circle(x+1.5*(r+t)-c,y+1.5*(r+t)+b),1.6*(r+t)P.Circle(x-c,y+b),r+tP.FillStyle=0P.FillColor=QBColor(Rnd*15)P.Circle(x-1.5
