资源描述：
《后山烧烤策划》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、组长：汪彦(222008323012063)组员：王晨晔(222008323012076)曾波(222008323012085)李火营(222008323012077)寇丹(222008323012063)综合设计分工说明：本小组一共有五位成员组成，大家分工合作，完成了最后的vb综合设计。其中整个实验设计主要流程如下：1.主题讨论，选出设计的方案2.任务分配，具体落实每个组员负责的模块。3.整合意见，大家讨论各自遇到的问题，集思广益解决问题。4.达成共识，综合全部的实验，做最后大体上的布局，完成实验设计。
2、5.小组成员具体的任务分工组长：汪彦(222008323012072):组员任务的分配，综合设计代码调试,综合性设计报告文档的整理。组员：王晨晔(222008323012076)设计一：vb综合设计提交倒计时.曾波(222008323012085)设计二:李火营(222008323012077)设计三：寇丹(222008323012063)设计四：五颜六色的查找并选中找到的字符倒计时关机6.源程序清单王晨晔一实验步骤:设计一：vb综合设计提交倒计时(1)界面设计：综合设计提交时间可任意设置，程序会自动调整
3、字符大小和显示位置。在窗体上放置3个控件：Timerl.Textl、LabelL在属性窗口将Labe11的Index属性设置为0,其他控件及属性无需进行任何设置。(2)程序代码编写PrivateSubForm-Load()DimIAsLong,YAsLongLabell(0).AutoSize=True:Labell(0).Font.Bold=TrueTextl・Font.Bold=TrueForI=1To4LoadLabell(I):Labell(I).Visible=TrueNextMe.Captio
4、n="倒计时"：Labell(0).Caption="综合设计提交倒计时11Y=Format(Date,nyyyyH)I=DateDiff(Hsn,Now,Y&n-6-79:00:00H)IfI<0ThenY=Y+1Textl.Text=Y&"-6-79:00:00nTimerl.Enabled=True:Timerl.1nterval=1000Me.WindowState=vbMaximized/最大化CallTimerl-TimerEndSubPrivateSubForm_Resize()DimIAs
5、Long,HAsSingle,LAsSingle,FAsSingleF=Me.ScaleX(Me.ScaleWidth,Me.ScaleMode,3)/25H=Me.ScaleY(Me.ScaleHeight,Me.ScaleMode,3)/10IfF>HThenF=HForI=0To4Labell(I).Font.Size=FNextTextl・Font・Size=FH=Labell(0).Height*0.5L=(Me.ScaleWidth-H*29)*0.5Labell(0).Move(Me.Sca
6、leWidth-Labell(0).Width)*0.5,(Me.ScaleHeight-H*12)*0.5Labell(1).MoveL,Labell(0).Top+H*4Labell(2).MoveLabell(1).Left,Labell(1).Top+H*3:Labell(2)="提交时间"Textl.MoveLabell(1).Left+Labell(2).Width+H,Labell(2).Top,H*20,H*2Labell(3).MoveLabell(1).Left,Labell(2).T
7、op+H♦3:Labell(3)="剩余时间"Labe11(4).MoveTextl.Left,Labell(3).Top:Labell(4).ForeColor=255EndSubPrivateSubTimerl-Timer()DimDAsLong,HAsLong,MAsLong,SAsLongOnErrorGoTocuoLabell(1)="当前时间n&NowS=DateDiff(Hsn,Now,CDate(Textl.Text))IfS<1ThenLabell(4)="时间到":ExitSubD=S
8、86400z3600*24S=SMod86400:H=S3600S=SMod3600:M=S60S=SMod60Labell(4)=D&"天"&H&"时"&M&"分"&S&"秒"ExitSubcuo:Labell(4)="输入的时间错误"EndSub曾波一一设计二：五颜六色的(1)界面设计:在窗体添加一个控件Timerl(2)程序代码编写PrivateSubForm-Load()Timer1.InteTval=10:Ti
