VB大作业编程辩论赛计时与评分系统答案参考

设计思路首先设计一个计时器登录系统窗体界面并编辑相关代码以完成登录；然后设计辩论赛计时器主菜单,辩论队名称立场及设置窗体界面并编辑相关代码，其次是设计辩论队比赛规则，队员介绍，各个环节的时间设置以及计时器的窗体界面并编辑相关代码以完成分队计时限时的要求；最后设计一个评委打分和一个颁奖仪式窗体界面并编辑相关代码。设计目标要求辩论赛计时评分系统具有分队计时限时，统计裁判打分并计算最后得分的功能总体设计结构和功能（1）.结构流程图辩论赛计时评分系统辩论赛计时评分系统程序使用方法颁奖仪式计时器评委打分各个环节时间设置队员介绍辩论赛比赛规则辩论队立场及设置辩论赛名称程序使用方法颁奖仪式计时器评委打分各个环节时间设置队员介绍辩论赛比赛规则辩论队立场及设置辩论赛名称计时器主菜单计时器登录系统（2）程序模块和程序代码PrivateSubCommand1_Click()IfText1.Text=""OrText2.Text=""ThenMsgBox"对不起，用户名与密码不能为空！",vbInformation,"输入错误"ExitSubEndIfIfText1="tuqianbiao"AndText2="123456"ThenMsgBox"恭喜你，登录成功!"Form1.HideForm2.ShowElseMsgBox"密码或用户名错误！请您重新输入!"Text2=""EndIfEndSubPrivateSubCommand2_Click()Text1=""Text2=""EndSubPrivateSubPicture1_Click()EndSubPrivateSubLabel2_Click()EndSubPrivateSubCommand1_Click()EndEndSubPrivateSubCommand2_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideForm14.ShowEndSubPrivateSubCommand3_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.ShowEndSubPrivateSubCommand4_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideForm14.HideForm15.ShowEndSubPrivateSubCommand6_Click()Form3.Text1=Form4.Text1Form1.HideForm2.HideForm3.ShowForm4.HideEndSubPrivateSubCommand7_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.ShowForm8.Label5.Caption=Form7.Text1.TextForm8.Label6.Caption=Form7.Text2.TextForm8.Label7.Caption=Form7.Text3.TextEndSubPrivateSubCommand8_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.ShowEndSubPrivateSubCommand9_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.ShowForm10.Label4=Form9.Text1.TextForm10.Label6=Form9.Text2.TextForm10.Label10=Form9.Text3.TextForm10.Label11=Form9.Text4.TextEndSubPrivateSubLabel10_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.ShowEndSubPrivateSubLabel3_Click()Form1.HideForm2.HideForm3.HideForm4.ShowEndSubPrivateSubLabel5_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.ShowEndSubPrivateSubLabel7_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.ShowEndSubPrivateSubLabel9_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.ShowEndSubPrivateSubCommand1_Click()Form1.HideForm2.ShowForm3.HideForm4.HideEndSubPrivateSubText1_Change()Text1.Text=Form4.Text1.TextEndSubPrivateSubCommand1_Click()Text1=""EndSubPrivateSubCommand2_Click()Form1.HideForm2.ShowForm3.HideForm4.HideEndSubPrivateSubPicture1_Click()EndSubPrivateSubCommand1_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideEndSubPrivateSubForm_Load()Label3.Caption=Form6.Text2.TextLabel5.Caption=Form6.Text4.TextEndSubPrivateSubCommand1_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand2_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideEndSubPrivateSubCommand1_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand2_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideEndSubPrivateSubCommand1_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideEndSubPrivateSubCommand1_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand2_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideEndSubPrivateSubCommand1_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideEndSubPrivateSubCommand1_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.ShowEndSubPrivateSubCommand2_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideEndSubPrivateSubCommand1_Click()t=Form11.Text1.Textm=tForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand10_Click()t=Form11.Text5.Textm=tForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand11_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand12_Click()Timer1.Enabled=FalseEndSubPrivateSubCommand13_Click()Timer2.Enabled=TrueEndSubPrivateSubCommand14_Click()Timer2.Enabled=FalseEndSubPrivateSubCommand15_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideEndSubPrivateSubCommand16_Click()If(Timer1.Enabled=True)ThenTimer1.Enabled=FalseTimer2.Enabled=TrueElseTimer1.Enabled=TrueTimer2.Enabled=flseEndIfEndSubPrivateSubCommand17_Click()Timer1.Enabled=FalseTimer2.Enabled=FalseEndSubPrivateSubCommand2_Click()t=Form11.Text2.TextForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand3_Click()t=Form11.Text3.Textm=tForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand4_Click()t=Form11.Text4.TextForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand5_Click()t=Form11.Text5.Textm=tForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand7_Click()t=Form11.Text2.TextForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand8_Click()t=Form11.Text3.TextForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand9_Click()t=Form11.Text4.TextForm12.Label3.Caption=t&"秒"EndSubPrivateSubForm_Load()Label2.Caption="请注意时间限制哦！"EndSubPrivateSubTimer1_Timer()If(t>0)Thent=t-1Form12.Label3.Caption=t&"秒"If(t<0Ort=0)ThenTimer1.Enabled=FalseMsgBox("时间到!")EndIfIf(t<10)ThenTimer3.Enabled=TrueEndIfEndIfEndSubPrivateSubTimer2_Timer()If(m<10Ort<10)ThenTimer3.Enabled=TrueEndIfEndSubPrivateSubTimer3_Timer()If(t<10AndTimer1.Enabled=True)ThenIfpickbmp=0ThenForm12.Image1.Picture=Image2.PictureForm12.Image2.Picture=Image3.PictureForm12.Image3.Picture=Image1.Picturepickbmp=1Elsepickbmp=0EndIfEndIfEndSubPrivateSubCommand1_Click()Text11.Text=Val(Text1)+Val(Text2)+Val(Text3)+Val(Text4)+Val(Text5)EndSubPrivateSubCommand2_Click()Text12.Text=Val(Text6)+Val(Text7)+Val(Text8)+Val(Text9)+Val(Text10)EndSubPrivateSubCommand3_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideEndSubPrivateSubCommand4_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideForm14.ShowEndSubPrivateSubCommand1_Click()IfVal(Form13.Text11)>Val(Form13.Text12)ThenForm14.Label3=Form10.Label4Form14.Label4=F