资源描述：
《“冒泡法”排序的动画演示》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
anti-concentratedimmuneperiodfullimplementationwholevillageadvancework,participateinwholevillageadvanceworkconcentratedimmuneofvillagelevelepidemicpreventionmemberperpersondailygrants100Yuan,districtanimalhealthsupervisionbywillorganizationpersonnelforimmunedensity,immunearchives,situationonTownship,andvillageandthefarmersforhasfieldcheckandassessment,foundproblem,timelyprocessing;while,tiegoodTownshipimplementationgoodthecontrolmeasures,ensuremajoranimalblightcontrolworkinplace.Four,thereisaproblem(a)prevalenceofanimaldiseasesiscomplexIislocatedinthecity'spolitical,economicandculturalcenter,istheflowoflivestockandpoultryanditsproductsdistributioncenter,complexanimalepidemicdiseases,pathogens,mobility.Oneisconvenient,cross-provinceandcrossStateandmunicipaltransportationoflivestockandpoultryanditsproductsbecomethenorm,crosscounty,importedcasesareontherise.Second,higherriskmajoranimaldiseaseoutbreaksoccur,frompathogensurveillanceandepidemiologicalinvestigationsinrecentyears,footandmouthdiseaseandhighlypathogenicavianinfluenza,highlypathogenicblue-earpigdiseasehiddenlargeoutbreaks,goatpox.Third,free-rangelivestockfarmersshareintheautonomousregion,controllingandcleaningmeasuresaredifficulttoimplement,andporcincirclevirus,Parvovirus,Pseudorabiespathogendistributionanddiseasepathogenmixedinfectionatypical,moreprominent. Fourrabies,tuberculosisindairycowsandotherzoonoticdiseasesareontherise,studiesshowthat70%animaldiseasescanbetransmittedtohumans,75%ofhumanemerginginfectiousdiseasesfromanimaloranimal-derivedfoods,doesnotenhancethepreventionandcontrolofanimalepidemics,wouldseriouslyendangerpublichealthandsafety.(B)animaldiseasecontrol,challengingfolks...Constraintshavebecomemoreprominent. (C)tostrengthentheteamconstructionofpresent,mybasicveterinaryfacilitiesandteamweaknesses,staffshortage,lowtechnology,socialservicesarestillnothigh,animalhusbandryandveterinarytechniciansandveterinarytechnicalservicesandnotadaptedtomanagementneeds,liveanimalcross-districtallocationandmarketaccessmechanismisnotperfect,animaldiseasecontrolstillfacesmanydifficultiesandproblems. (D)thecoordinationsegmentofthesectorneedstobestrengthenedthetownship(town)awarenessandorganizationinplace,withnosupportamongcommunitycadres,notfulfillingpublicityandmobilizationresponsibilitiesfarmershearfromimmunization,preventionofsubisafarmerwhoisnotathome,can'tletepidemicprevention. 2016and1tocompletethemajoranimaldiseasesbyhigherauthoritiescompulsoryimmunizationtask. 2,completeantibodysuperiormonitoringandpathogenmonitoringtasks. 3,completediseaseepidemiologysupervisortasks. 4,animaldiseasemortalitysurveytasksassignedbythesuperior. 5,serumsampletasksareassignedtotheTownship,incorporatedintotheRegionalBureauofanimalhusbandryandveterinarymedicineannualtargetassessmentwithintheframeworkoftheanimalhusbandryandveterinarystationinvillagesandtowns. 6,complete,updatetheTownshipandvillageveterinarycoldchainfacilities. 7,adoptionandimplementationofanimaldiseasecontrolmedium-andlong-termplanning. 8,developvillage-levelepidemicpreventionstaffappraisalmanagementandsupervise沈阳航空航天大学课程设计学号2009040301001班级94030101姓名邓冉冉指导教师刘学平2010年3月18日theimplementationoftheTownshipanimalhusbandryandveterinarymedicine.In2016,wewillfurtherimprove,finecontrol,andadheretothe24wordscontrolpolicyandfurtherconsolidatetheFoundation,reinforcingtheresponsibility,innovativemechanismstomoresolidstyletoholdandpracticemeasuresformajoranimalepidemicpreventionandcontrolworkmoresuccess. 沈航设计用纸沈阳航空航天大学课程设计任务书学院：航宇专业：飞行器制造工程班级：94030101学号：2009040301001题目：“冒泡法”排序的动画演示一、课程设计时间2011年3月7日~11日（第1周），共计1周。二、课程设计内容用控件数组技术实现动画演示，用冒泡法对一组数据（例如：18,12,16,10,11,19,13,19）由小到大排序，演示排序过程中元素变换的完整过程。要求：排序过程中欲交换值的2个元素，使用明显颜色、闪烁效果。三、课程设计要求程序质量：²贯彻事件驱动的程序设计思想。²用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。²代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：²课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：________学生签名：________五、成绩六、教师评语第13页，共14页 沈航设计用纸目录一、需求分析4二、设计分析4三、关键技术6四、总结10五、完整的源程序11六、参考文献14第13页，共14页 沈航设计用纸一、需求分析冒泡法是对一组数据进行大小排序的方法，用控件数组技术实现动画演示演示，演示排序过程中元素变换的完整过程。要求：①排序过程中欲交换值的2个元素，使用明显颜色、闪烁效果。②用控件数组技术实现冒泡法排序的动画演示。③要求冒泡法排序的演示过程必须完整，准确。二、设计分析（1）基本原理：整体运用控件数组技术，引入一组随机数组，进行图形操作，并将随机数组作为图形操作的坐标参数值，运用延时函数制作闪烁效果，形象进行数组的比较与排序。（2）总体设计：延时函数控件数组图形操作图1总体设计第13页，共14页 沈航设计用纸（3）详细设计：开始控件数组技术引入随机数图形操作闪烁效果生成数组生成图形动画演示图2详细设计(4)界面设计：第13页，共14页 沈航设计用纸图3界面设计三、关键技术（1）对变量进行生声明:OptionExplicitDima(1To6)AsInteger‘引入一维数组，声明变量属性Dimb(1To6,1To3)AsInteger‘引入二维数组，声明变量属性Dimi,j,m,k,nAsIntegerDimx0,y0,x1,y1,rAsInteger(2)运用控件数组技术，先生成一组随机数组：程序如下PrivateSubCommand1_Click(IndexAsInteger)‘命令按钮click事件SelectCaseIndexCase0'生成数组Label1.Caption=""Fori=1To6‘数组含六个元素Randomize‘避免生成重复数数组第13页，共14页 沈航设计用纸m=Int(Rnd*10+1)'生成随机数组Forj=i-1To1Step-1'检验是否有重复数据Ifa(j)=mThenm=Int(Rnd*10+1)EndIfNextja(i)=mLabel1.Caption=Label1.Caption&""&a(i)Nexti（3）进行图像操作，画圆，数组元素为圆半径Case1‘生成图形Form1.Picture1.DrawWidth=4‘定义线宽Form1.Picture1.DrawStyle=6定义线形x0=-15:y0=40‘圆心坐标初始值x1=x0Fori=1To6Picture1.ForeColor=QBColor(9)‘圆的颜色为蓝色Picture1.FillColor=QBColor(9)x1=x1+30:b(i,1)=x1'将坐标值与半径设为二维数组y1=40:b(i,2)=y1r=a(i)*1.5:b(i,3)=rPicture1.Circle(x1,y1),r‘画圆Nexti第13页，共14页 沈航设计用纸图4生成图形（4）引入延时函数制作闪烁效果，将进行比较的两个数颜色改变，并进行位置变换，并建立标准模块对函数进行声明：Case2‘动画演示Fori=1To5‘进行i-1次比较Forj=1To6-iCalldelay(n)‘制作闪烁效果，引入延时函数delay(0.5)‘延时0.5秒Picture1.ForeColor=vbRed‘将进行比较的两个圆变为红色Picture1.FillColor=vbRedPicture1.Circle(b(j,1),b(j,2)),b(j,3)Picture1.Circle(b(j+1,1),b(j+1,2)),b(j+1,3)delay(0.5)Picture1.ForeColor=QBColor(9)‘再将其变为蓝色Picture1.FillColor=QBColor(9)Picture1.Circle(b(j+1,1),b(j+1,2)),b(j+1,3)Picture1.Circle(b(j,1),b(j,2)),b(j,3)Ifa(j)>a(j+1)Then‘如果大小次序不对m=a(j):a(j)=a(j+1):a(j+1)=m‘交换元素delay(1)第13页，共14页 沈航设计用纸Picture1.ForeColor=&HC0FFC0‘将进行比较的两个圆擦除Picture1.FillColor=&HC0FFC0Picture1.Circle(b(j,1),b(j,2)),b(j,3)Picture1.Circle(b(j+1,1),b(j+1,2)),b(j+1,3)m=b(j+1,3):b(j+1,3)=b(j,3):b(j,3)=mPicture1.ForeColor=QBColor(9)‘将半径r交换，重新画圆画圆Picture1.FillColor=QBColor(9)Picture1.Circle(b(j+1,1),b(j+1,2)),b(j+1,3)Picture1.Circle(b(j,1),b(j,2)),b(j,3)EndIfNextjNextiFork=1To6‘排序结束后Label2.Caption=Label2.Caption&""&a(k)‘在label2中显示正确的排序NextkModule1‘模块1PublicSubdelay(ByValnAsSingle)'n表示需要延时的时间Dimtm1AsSingle,tm2AsSingle‘tm1,tm2代表延时前后的系统时间tm1=TimerDotm2=TimerIftm2-tm1>nThenExitDo‘若系统时间差大于nDoEvents‘将控制权交给操作系统LoopEndSub第13页，共14页 沈航设计用纸图5动画演示（5）操作结束，清空全部内容：Case3'清空Label1.Caption=""Picture1.Cls‘清除图形Label2.Caption=""Case4‘结束EndEndSelectEndSub四、总结这次课设我的题目是冒泡法的动画演示，通过这次课设让我了解了什么是冒泡法排序，也让我了解了VB如何运用进行动画的制作。第13页，共14页 沈航设计用纸在本次课设中，我受益匪浅，不仅仅将VB限制于课本上的理论知识，更让我有机会对学过的知识进行实际上的应用，将冒泡法进行动画演示这道题对于我来说并不是很容易，在解决这道题的时候遇到了很多问题，我通过多种途径解决了解决了遇到的问题，在老师与同学的耐心帮住下，我终于完成了这道题的变成，在一次次的遇到并解决问题的过程中，我得到了锻炼并有所收获。在课设中，我们不但可以直接纠正自己的错误，而且完成后特别让人感到有成就感，并且还不容易遗忘。也就是这么一点点成就感的一点点的累积，让我感到其实学习VB也不是那么枯燥。同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。五、完整的源程序OptionExplicitDima(1To6)AsIntegerDimb(1To6,1To3)AsIntegerDimi,j,m,k,nAsIntegerDimx0,y0,x1,y1,rAsIntegerPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndex第13页，共14页 沈航设计用纸Case0‘生成数组Label1.Caption=""Fori=1To6Randomizem=Int(Rnd*10+1)‘生成随机数组Forj=i-1To1Step-1‘检验是否有重复数据Ifa(j)=mThenm=Int(Rnd*10+1)EndIfNextja(i)=mLabel1.Caption=Label1.Caption&""&a(i)NextiCase1‘生成图形Form1.Picture1.DrawWidth=4Form1.Picture1.DrawStyle=6x0=-15:y0=40x1=x0Fori=1To6Picture1.ForeColor=QBColor(9)‘画圆Picture1.FillColor=QBColor(9)x1=x1+30:b(i,1)=x1‘将坐标值与半径设为二维数组y1=40:b(i,2)=y1r=a(i)*1.5:b(i,3)=rPicture1.Circle(x1,y1),rNextiCase2‘动画演示Fori=1To5Forj=1To6-iCalldelay(n)‘制作闪烁效果delay(0.5)Picture1.ForeColor=vbRed‘将进行比较的两个圆变为红色Picture1.FillColor=vbRedPicture1.Circle(b(j,1),b(j,2)),b(j,3)Picture1.Circle(b(j+1,1),b(j+1,2)),b(j+1,3)delay(0.5)Picture1.ForeColor=QBColor(9)‘再将其变为蓝色第13页，共14页 沈航设计用纸Picture1.FillColor=QBColor(9)Picture1.Circle(b(j+1,1),b(j+1,2)),b(j+1,3)Picture1.Circle(b(j,1),b(j,2)),b(j,3)Ifa(j)>a(j+1)Thenm=a(j):a(j)=a(j+1):a(j+1)=m‘交换元素delay(1)Picture1.ForeColor=&HC0FFC0‘将进行比较的两个圆擦除Picture1.FillColor=&HC0FFC0Picture1.Circle(b(j,1),b(j,2)),b(j,3)Picture1.Circle(b(j+1,1),b(j+1,2)),b(j+1,3)m=b(j+1,3):b(j+1,3)=b(j,3):b(j,3)=mPicture1.ForeColor=QBColor(9)‘将半径r交换，画圆Picture1.FillColor=QBColor(9)Picture1.Circle(b(j+1,1),b(j+1,2)),b(j+1,3)Picture1.Circle(b(j,1),b(j,2)),b(j,3)EndIfNextjNextiFork=1To6Label2.Caption=Label2.Caption&""&a(k)‘显示正确的排序NextkCase3‘清空Label1.Caption=""Picture1.ClsLabel2.Caption=""Case4‘结束EndEndSelectEndSub六、参考文献[1]龚沛曾．《Visual第13页，共14页 沈航设计用纸Basic程序设计教程》．北京：高等教育出版社，2007[2]高春燕.《VisuaBasic程序开发范例宝典》．北京：人民邮电出版社，2009[3]郑海春谢维成主编《visualbasic6.0编程及实例分析教程》清华大学出版社2007年4月[4]夏邦贵刘凡馨．《Visualbasic数据库开发经典实例精解》．北京：北京机械工业出版社，2005第13页，共14页
