ege动画_典型算法的动画演示（样例3）

《典型算法的动画演示.doc》由会员分享，可免费在线阅读全文，更多与《典型算法的动画演示》相关文档资源请在帮帮文库(www.woc88.com)数亿文档库存里搜索。

1、时。以“开始”为例PrivateSubCommand_Click()TimerEnabled=TrueTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=TrueCommandEnabled=TrueCommandEnabled=FalseCommandEnabled=FalseEndSub通过时间循环来实现个数字间比较和互换。开始设置Time起点冒泡法运算循环计时显示于窗体上与冒泡法数据对应以第一次比较为例。PrivateSubTimer_Timer()StaticaAsIntegerIfa=Thena=EndIfPicture(a)BackColor=amHCamPicture(a+)BackColor=amHFFa。

2、SubTimer_Timer()DimkAsInteger,lAsIntegerFork=ToIfVal(Label(k)Cation)ltVal(Label(k+)Cation)Thenl=l+EndIfNextkIfl=ThenTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseCommandfVal(Label(k)Cation)ltVal(Label(k+)Cation)Thenl=l+EndIfNextkIfl=ThenTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseCo。

3、)=PicturePicture(i)BackColor=amHFPicture(i+)BackColor=amHFEndIfi=i+TimerEnabled=TrueTimerEnabled=FalseEndSub主要界面截图总结完整的源程序参考文献需求分析图示冒泡法能够清晰呈现计算机中对于排列大小数组过程，因而可以推及至其它的计算方法的演示。为初学各种语言的人士能够更好的接受和掌握冒泡法及其他方法的掌握。设计分析()概述：基本原理：运用time控件对冒泡法的运算分步体现于窗体上。()总体设计：图总体设计()详细设计：通过Time控件控制时间根据time进行运算显示在窗体上图详细设计技术要点对于个Time控件的控制运行的设置通过各个command的触发来实现其是否。

4、bel(i)BackColor=amHFLabel(i+)BackColor=amHFEndIfi=i+TimerEnabled=TrueTimerEnabled=FalseEndSubPrivateSubTimer_Timer()StaticcAsIntegerIfc=Thenc=EndIfIfVal(Label(c)Cation)ltVal(Label(c+)Cation)ThenLabel(c)BorderStyle=:Label(c+)BorderStyle=Label(c)BackColor=amHFLabel(c+)BackColor=amHFEndIfc=c+TimerEnabled=TrueTimerEnabled=FalseEndSubPrivat。

5、ackColor=amHCamPicture(a+)BackColor=amHFFamIfPicture(a)HeightgtPicture(a+)HeightThenPicture(a)BorderStyle=:Picture(a+)BorderStyle=EndIfa=a+TimerEnabled=TrueTimerEnabled=FalseEndSubPrivateSubTimer_Timer()StaticiAsInteger,jAsIntegerIfi=Theni=EndIfIfPicture(i)HeightgtPicture(i+)HeightThenPicture=Picture(i):Picture(i)=Picture(i+):Picture(i。

6、mandEnabled=TrueCommandEnabled=FalseMsgBoxquot冒泡法演示结束quotText()Text=quotquotText()Text=quotquotText()Text=quotquotText()Text=quotquotText()Text=quotquotText()Text=quotquotEndIfEndSub主要界面截图动画演示界面，为主要要界面。总结通过这次的为期一周的课程设计，对于VB的编程的知识有了更多了解。尤其是对冒泡法和时间控件的掌握和灵活运用。在课设过程中，我遇到了重重困难，例如：VB的各种控件的使用。通过同学的指点和自己查阅资料，我克服了困难，顺利的完成了任务。完整的源程序()PrivateSubF。

7、teSubForm_Load()TimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseCommandEnabled=TrueCommandEnabled=FalseEndSubPrivateSubCommEnabled=FalseTimerEnabled=FalseTimerEnabled=TrueCommandEnabled=TrueCommandEnabled=TrueEndSubPrivateSubCommand_Click()EndEndSubPrivateSubTimer_Timer()StaticaAsIntegerIfa=Thena=EndIfPicture(a)。

8、SubTimer_Timer()DimkAsInteger,lAsIntegerFork=ToIfVal(Label(k)Cation)ltVal(Label(k+)Cation)Thenl=l+EndIfNextkIfl=ThenTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseCommandfVal(Label(k)Cation)ltVal(Label(k+)Cation)Thenl=l+EndIfNextkIfl=ThenTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseCo。

9、rm_Load()TimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseCommandEnabled=TrueCommandEnabled=TrueEndSubPrivateSubCommand_Click()TimerEnabled=TrueTimerrivateSubTimer_Timer()StaticcAsIntegerIfc=Thenc=EndIfIfPicture(c)HeightltPicture(c+)HeightThenPicture(c)BorderStyle=:Picture(c+)BorderStyle=Picture(c)BackColor=amHFP。

10、icture(c+)BackColor=amHFEndIfc=c+TimerEnabled=TrueTimerEnabled=FalseEndSubPrivateSubTimer_Timer()DimkAsInteger,lAsIntegerFork=ToIfPicture(k)HeightltPicture(k+)HeightThenl=l+EndIfNextkIfl=ThenTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=FalseCommandEnabled=TrueCommandEnabled=FalseMsgBoxquot演示结束quotEndIfEndSub()Priv。

11、and_Click()Label()Cation=Text()TextLabel()Cation=Text()TextLabel()Cation=Text()TextLabel()Cation=Text()TextLabel()Cation=Text()TextLabel()Cation=Text()TextTimerEnabled=TrueTimerEnabled=FalseTimerEnabled=FalseTimerEnabled=TrueCommandEnabled=TrueCommandEnabled=FalseEndSubPrivateSubCommand_Click()EndEndSubPrivateSubTimer_Timer()StaticaAsI 。

12、ntegerIfa=Thena=EndIfLabel(a)BackColor=amHCamLabel(a+)BackColor=amHFFamIfVal(Label(a)Cation)gtVal(Label(a+)Cation)ThenLabel(a)BorderStyle=:Label(a+)BorderStyle=EndIfa=a+TimerEnabled=TrueTimerEnabled=FalseEndSubPrivateSubTimer_Timer()StaticiAsInteger,jAsIntegerIfi=Theni=EndIfIfVal(Label(i)CationEnabled=TrueCommandEnabled=FalseMsgBoxquot